Как отслеживать, когда электронная почта классифицируется и отправляется через VBA в Outlook?

Question

У меня была такая проблема: в моей компании мы используем внешний вид как основной инструмент для повседневной работы.Все начинается, когда сотрудник назначил категорию на почту, и заканчивается, когда эта почта отправляется.Я хотел бы извлечь данные, когда определенная почта была классифицирована (дата и час, название категории) и когда она была отправлена ​​(так же, как ранее) + тема этого письма, в таблицу Excel.Я планировал добавить такой макрос в ThisOutlookSession, но в настоящее время я понятия не имел, как извлечь события категории из внешнего вида, я смог извлечь информацию только при отправке электронного письма.Любой совет?

Answer 1

Вам необходимо обработать событие PropertyChange , которое вызывается при изменении явного встроенного свойства (например, Categories ) объекта.Имя измененного свойства передается в качестве параметра обработчику событий.Например, необработанный эскиз:

 Private WithEvents olExplorer As Outlook.Explorer
 Private olCurSel As Selection
 Private WithEvents olCurSelItem As Outlook.MailItem

 Private Sub olExplorer_SelectionChange()
  Set olCurSel = olExplorer.Selection
  Set olCurSelItem = Nothing
   If TypeName(olCurSel.Item(1)) = "MailItem" Then
    Set olCurSelItem = olCurSel.Item(i)
   End If
 End Sub

 Private Sub olCurSelItem_PropertyChange(ByVal Name As String)
  Debug.Print Name
 End Sub