如何在Excel中获取Outlook对话ID？

我在Excel中使用电子数据表发送大量电子邮件，使用Outlook参考库作为我的VBA代码。

当我发送电子邮件时，我需要将会话ID号保存到表单元格中。 如何从电子邮件返回此属性以优秀？

Answer 1

一旦发送电子邮件，search发送文件夹，然后获取对话ID。

示例这里按主题searchIf olItem.Subject = "0m3r" Then打印ConvID到单元格A1

 Option Explicit Sub ConvID() Dim olNameSpace As Outlook.Namespace Dim olApp As Outlook.Application Dim olSentMail As Outlook.MAPIFolder Dim olItem As Object ' Mail Item Dim ConvID As Object ' ConversationID Set olApp = CreateObject("Outlook.Application") Set olNameSpace = olApp.GetNamespace("MAPI") Set olSentMail = olNameSpace.GetDefaultFolder(olFolderSentMail) Set olItem = olApp.CreateItem(olMailItem) For Each ConvID In olSentMail.Items If olItem.Class = olMail Then ' ignores MeetingItem or ReportItem If TypeName(ConvID) = "MailItem" Then Set olItem = ConvID If olItem.Subject = "0m3r" Then Debug.Print olItem.ConversationID Range("A1").Value = olItem.ConversationID End If End If End If Next End Sub