Como posso remover o sinalizador privado de centenas de mensagens em caixas de correio compartilhadas?

Question

Eu trabalho com um cliente do Outlook 2010 x86 e um Exchange 2013 Server. Em muitas " caixas de correio compartilhadas " há alguns e-mails com um " sinalizador privado " e não é possível ler esses e-mails no Outlook 2010. Com o MFCMAPI-Editor é possível para limpar este " Private Flag " um por um, mas eu tenho centenas de e-mails. A propriedade de e-mail é PR_SENSITIVITY , PidTagSensitivity e ptagSensitivity .

Eu tentei escrever um script VBA que define a sensibilidade de " Privado " para " Normal ", mas tenho grandes problemas para escrever scripts VBA. / p>

É possível com um script VBA, ou existe um método existente para fazer isso com o Exchange Powershell?

    

Answer 1

Obrigado pelo seu comentário rápido CharlieRB. Esse é o meu código:

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