Как экспортировать основной текст электронной почты Outlook в электронную таблицу Excel?

Если вы хотите экспортировать выбранный текст сообщения электронной почты из Outlook в электронную таблицу Excel, метод, описанный в этой статье, может вам помочь.

Экспорт основного текста электронной почты Outlook в электронную таблицу Excel с кодом VBA

---

Экспорт основного текста электронной почты Outlook в электронную таблицу Excel с кодом VBA<>

Запустите приведенный ниже код VBA, чтобы экспортировать выделенный основной текст электронного письма Outlook в Excel.

1. Откройте электронное письмо, выберите тело письма, которое вы хотите экспортировать в электронную таблицу Excel, а затем нажмите кнопку другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. А затем скопируйте ниже код VBA в окно кода.

Код VBA: экспорт основного текста электронного письма Outlook в электронную таблицу Excel

Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    Set xInspector = xMailItem.GetInspector
    Set xDoc = xInspector.WordEditor
    xDoc.Application.Selection.Range.Copy
    xInspector.Close olDiscard
    Set xExcel = New Excel.Application
    Set xWb = xExcel.Workbooks.Add
    Set xWs = xWb.Sheets.item(1)
    xExcel.Visible = False
    xWs.Activate
    xWs.Paste
    xWs.SaveAs xFilePath & "Email body.xlsx"
    xWb.Close True
    xExcel.Quit
    Set xWs = Nothing
    Set xWb = Nothing
    Set xExcel = Nothing
End Sub

Внимание: В коде "Электронная почта body.xlsx»- это имя книги, которую вы создадите с выбранным основным текстом электронного письма. Вы можете изменить его по своему усмотрению.

3. Нажмите Инструменты > Рекомендации. Затем проверьте оба Библиотека объектов Microsoft Excel и Библиотека объектов Microsoft Word коробки в Ссылки - Проект диалоговое окно. Смотрите скриншот:

4. Затем Просмотр папки появится диалоговое окно, выберите папку для сохранения книги и щелкните значок OK .

Теперь рабочая тетрадь «электронная почта тела”Создается и сохраняется в указанной папке. Откройте книгу, вы увидите, что выбранный основной текст сообщения электронной почты экспортируется на Sheet1 книги.

;