Отображение электронной почты с 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

Возможно, вы столкнулись со следующей проблемой, объясненной здесь .По сути, вы должны использовать менеджер контекста для объектов 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