Как экспортировать основной текст электронной почты 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 книги.

---

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      Купите