Получить текущее тело через Active Explorer в настоящее время отправка электронной почты

Question

Я пробовал различные подходы из экспериментов или поиска в Google, но, похоже, не могу понять это.

В этом коде, когда электронное письмо отправляется из проводника посредством ответа, оно захватывает только тело снизу того, что «отправляется сейчас», а не lof оно.Я предполагаю, что есть объект, который я не смог найти интуитивно, который содержит это, но я, кажется, не могу понять.

Кто-нибудь знает, что я могу посмотреть?

Используемый код

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim prompt As String
    Dim msg As MailItem
    Set msg = GetCurrentItem()
    prompt = msg.Body
    MsgBox prompt
End Sub

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select 
    Set objApp = Nothing
End Function