vba - 전자 메일 본문을 Word 문서에 저장

실제로 이메일을 선택했는지 (목록 내에서 열거 나 열 었는지) 다음과 같이 형식이 지정된 본문을 복사하면 확인할 수 있습니다.

Private Sub CopyEMailBodyToWord()
    Dim objOutlook As Outlook.Application
    Dim objMail As Object      'Outlook.MailItem, but has to be checked later
    Dim objWord As Object
    Dim objDocument As Object
    Set objOutlook = Outlook.Application
    Select Case TypeName(objOutlook.ActiveWindow)
    Case "Explorer"     ' get current item in list view
        Set objMail = objOutlook.ActiveExplorer.Selection.Item(1)
    Case "Inspector"    ' get open item
        Set objMail = objOutlook.ActiveInspector.CurrentItem
    End Select
    If objMail.Class = olMail Then
        Set objWord = GetObject(, "Word.Application")
        If objWord Is Nothing Then Set objWord = CreateObject("Word.Application")
        Set objDocument = objWord.Documents.Add
        ' copy formatted body:
        objMail.GetInspector.WordEditor.Range.FormattedText.Copy
        objDocument.Range.Paste
        ' or copy text only:
        'objDocument.Range.Text = objMail.Body
        With objWord.FileDialog(msoFileDialogSaveAs)
            .Title = "Save ..."
            .InitialFileName = objWord.Options.DefaultFilePath(wdDocumentsPath) & _
                "\" & objMail.Subject & ".docx"
            If .Show <> False Then
                objDocument.SaveAs _
                    FileName:=.SelectedItems(1), _
                    AddToMru:=False
            End If
        End With
    End If
End Sub

이 작업을 수행하려고합니까?

Option Explicit
Public Sub Example()
    Dim Email As Outlook.MailItem
    Set Email = Application.ActiveInspector.CurrentItem
    'Word document
    Dim wdApp As Word.Application
    Set wdApp = CreateObject("Word.Application")
    Dim wdDoc As Word.Document
    Set wdDoc = wdApp.Documents.Add
        wdDoc.Activate
    Dim wdRange As Word.Range
    Set wdRange = wdDoc.Range(0, 0)
    'Add email to the document
    wdRange.Text = Email.Body
    wdApp.Visible = True
    wdDoc.SaveAs2 FileName:="C:\Temp\Example.docx", FileFormat:= _
        wdFormatXMLDocument, CompatibilityMode:=15
End Sub

CurrentItem 의 오류를 피하기 위해 ActiveWindow.Class와 함께 작업하고 싶을 수도 있습니다.