显示来自ConversationID的电子邮件

Question

我想显示来自ConversationID的电子邮件

Sub displayEmail()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Msg As Object

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")

Set Msg = OutlookNamespace.GetItemFromID("2A744DEFCE5C054F81AB5B960E02AC9A")
Msg.Display
End Sub

我在这句话中犯了一个错误：OutlookNamespace.GetItemFromID("2A744DEFCE5C054F81AB5B960E02AC9A")

Answer 1

很可能是您遇到了以下问题，here解释说。从本质上讲，您应该为要引用的Outlook对象使用上下文管理器，以便在不再需要它们时将它们释放。这使您可以重复执行代码而不会出现问题。

Set OutlookApp = New Outlook.Application

With OutlookApp
    Set OutlookNamespace = .GetNameSpace("MAPI")
    With OutlookNamespace
        Set Msg = OutlookNamespace.GetItemFromID("2A744DEFCE5C054F81AB5B960E02AC9A")
        Msg.Display
    End With
End With
OutlookApp.Quit