Как я могу удалить частный флаг из сотен сообщений в общих почтовых ящиках?

1416
user517776

Я работаю с клиентом Outlook 2010 x86 и сервером Exchange 2013. Во многих « общих почтовых ящиках » есть несколько писем с « частным флагом », и невозможно прочитать эти письма в Outlook 2010. С помощью MFCMAPI-Editor можно убрать этот « частный флаг » по одному, но у меня есть сотни писем. Свойство почты PR_SENSITIVITY, PidTagSensitivityи ptagSensitivity.

Я пытался написать сценарий VBA, в котором чувствительность была изменена с « Частный » на « Нормальный », но у меня большие проблемы с написанием сценариев VBA.

Возможно ли это с помощью сценария VBA или существует метод, который делает это с помощью Exchange Powershell?

0
Добро пожаловать в Супер пользователя. Вы сказали, что пытались написать VBA и "* есть большие проблемы *". Можете ли вы определить, что это значит для нас? Пожалуйста, укажите ваш текущий код и какие сообщения об ошибках вы получаете. CharlieRB 8 лет назад 1

1 ответ на вопрос

-1
user517776

Thanks for your fast comment CharlieRB. Thats my code:

Sub ClearPrivateFlag() Dim ol As New Outlook.Application Dim ns As Outlook.NameSpace Dim fdMail As Outlook.MAPIFolder Dim objItem As Object Dim objAppt As MailItem Dim i, nCount As Integer Set ns = ol.GetNamespace("MAPI") 'Reference the default Mail folder Set fdMail = ns.GetDefaultFolder(olFolderInbox) i = 1 nCount = fdMail.Items.Count Do While i < nCount Set objItem = fdMail.Items(i) If objItem.Class = olMailItem Then Set objAppt = objItem If (objAppt.Sensitivity = olPrivate) Then objAppt.Sensitivity = olNormal MsgBox objAppt End If End If i = i + 1 Set objItem = Nothing Set objAppt = Nothing Loop Set fdCalendar = Nothing Set ns = Nothing Set ol = Nothing End Sub
Вы должны отредактировать свой оригинальный комментарий и добавить это. Dean Meehan 8 лет назад 0
Это будет работать только для одного почтового ящика по умолчанию и только для папки «Входящие». ОП попросил способ обработки общих почтовых ящиков. thims 8 лет назад 0
Я извиняюсь за это в папке «Входящие», но ничего не происходит. user517776 8 лет назад 0

Похожие вопросы