Làm cách nào tôi có thể xóa Cờ riêng tư khỏi hàng trăm thư trong hộp thư chung?

Tôi làm việc với Máy khách Outlook 2010 x86 và Máy chủ Exchange 2013. Trong nhiều " Hộp thư được chia sẻ " là một số Thư có " Cờ riêng " và không thể đọc thư này trong Outlook 2010. Với Trình soạn thảo MFCMAPI, bạn có thể xóa từng " Cờ riêng " này, nhưng tôi có hàng trăm thư. Thuộc tính thư là PR_SENSITIVITY, PidTagSensitivityvà ptagSensitivity.

Tôi đã cố gắng viết một tập lệnh VBA đặt độ nhạy từ " Riêng tư " thành " Bình thường ", nhưng tôi gặp vấn đề lớn khi viết tập lệnh VBA.

Có thể với tập lệnh VBA không, hoặc có một phương thức hiện có để thực hiện điều này với Exchange Powershell không?

Cảm ơn bình luận nhanh của bạn CharlieRB. Đó là mã của tôi:

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