Question

I d like obtain the Conversation ID (which is in the header of a message).

我假定,在展望图书馆,它属于“邮电系统”班级和电离层信息数据库成员。我在如何从选定的电子邮件、开放式电子邮件或作为新邮局起火的事件中获取这种信息方面正遭受损失。

任何帮助都将受到全球教育论坛的赞赏。

Answer 1

这一例子将在信息箱中显示对话情况。

Sub GetConvID()

Dim obj As Object
Dim msg As Outlook.mailItem

Set obj = GetCurrentItem

If TypeName(obj) = "MailItem" Then
  Set msg = obj
  MsgBox msg.ConversationID
End If

End Sub

Function GetCurrentItem() As Object
  returns reference to current item, either the one
  selected (Explorer), or the one currently open (Inspector)

  Select Case True
  Case IsExplorer(Application.ActiveWindow)
    Set GetCurrentItem = ActiveExplorer.Selection.item(1)
  Case IsInspector(Application.ActiveWindow)
    Set GetCurrentItem = ActiveInspector.CurrentItem
  End Select

End Function
Function IsExplorer(itm As Object) As Boolean
  IsExplorer = (TypeName(itm) = "Explorer")
End Function
Function IsInspector(itm As Object) As Boolean
  IsInspector = (TypeName(itm) = "Inspector")
End Function

关于新邮局:

The NewMail event is useful for scenarios in which you want to be notified when a new e-mail message arrives. If you want to process items that arrive in the Inbox, consider using the ItemAdd event on the collection of items in the Inbox. The ItemAdd event passes a reference to each item that is added to a folder.

为在这次活动中查阅选定的电子邮件,使用ActiveExplorer.Selection.item(1)。查阅公开电子邮件:ActiveInspector.CurrentItem。

友情链接