如何在 Outlook 中通过 vba 对电子邮件进行分类和发送时进行跟踪？

Question

I had such a problem: In my company we are using outlook as a main tool for daily work. The whole things starts when emploee assigned a category to mail and ends when this mail is sent. I would like to extract data when particular mail was categorized (date and hour, name of category) and when it was send (the same like previously) + subject of this mail, to excel worksheet. I have planned to add such macro into ThisOutlookSession but currently i had no idea how to extract category events from outlook, i've been able only extract info when email was send. Any advice?

Answer 1

You need to handle the PropertyChange event which is fired when an explicit built-in property (for example, Categories ) of the object is changed. The name of the property that was changed is passed as a parameter to the event handler. For example, a raw sketch:

 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