Question

我遇到了一个问题：在我的公司中，我们将Outlook用作日常工作的主要工具。当员工为邮件分配类别时，整个过程开始，而当该邮件发送时，整个过程结束。我想在对特定邮件进行分类（日期和时间，类别名称）以及将其发送时（与之前相同）+此邮件的主题提取数据到excel工作表。我计划将此类宏添加到ThisOutlookSession中，但是目前我不知道如何从Outlook中提取类别事件，我只能在发送电子邮件时提取信息。有什么建议吗？

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

如何跟踪Outlook中通过vba分类和发送电子邮件的时间？

1 个答案: