2 эффективных метода преобразования электронной почты Outlook в документ Word

Если вы хотите сохранить или преобразовать электронное письмо Outlook в текстовый документ, вы можете использовать 2 метода, представленные в этой статье.

Outlook не предлагает никаких встроенных функций для сохранения или преобразования электронной почты Outlook в виде документа Word. Поэтому, если вы хотите этого добиться, вам придется приложить дополнительные усилия. Здесь мы научим вас 2 быстрым методам. Один из них — разумно использовать функцию «Сохранить». Другой — тактично использовать Outlook VBA. Пожалуйста, читайте дальше, чтобы получить их в деталях.

Способ 1: используйте функцию «Сохранить»

1. К start с, запустите программу Outlook.
2. Затем напишите по электронной почте.
3. Затем перейдите в меню «Файл» и выберите опцию «Сохранить как».
4. Затем во всплывающем диалоговом окне выберите папку назначения и выберите «Только текст» в поле «Тип файла».
5. После нажатия кнопки «Сохранить» вы можете открыть приложение Microsoft Word.
6. В MS Word перейдите в меню «Файл» и выберите «Открыть».
7. Во всплывающем диалоговом окне «Открыть» выберите «Все файлы» в строке «Имя файла» и укажите ранее сохраненный текстовый файл.
8. После нажатия «Открыть» электронное письмо в текстовом формате откроется в слове.
9. Позже вы можете выбрать «Файл» > «Сохранить как».
10. Наконец, в диалоговом окне «Сохранить как» выберите «Документ Word» в «Тип файла» и нажмите «Сохранить».

Способ 2: использовать Outlook VBA

1. Во-первых, нажмите сочетания клавиш «Alt + F11» в Outlook.
2. Затем во всплывающем окне редактора Outlook VBA откройте новый модуль.
3. Затем скопируйте и вставьте в него следующие коды VBA.

Sub ConvertEmailtoWordDocument()
    Dim objMail As Outlook.MailItem
    Dim strMessage As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim strFilePath, strFileName As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
    End Select
 
    strMessage = "From: " & objMail.SenderName & vbCrLf & "Sent: " & objMail.SentOn & vbCrLf & "Subject: " & objMail.Subject & vbCrLf & vbCrLf & objMail.Body
 
    'create a word document
    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Add
    objWordDocument.Activate
    Set objWordRange = objWordDocument.Range(0, 0)
    'insert the email information to the document
    objWordRange.Text = strMessage
 
    'change the email contents' format
    With objWordRange.Font
         .Name = "Cambria"
         .Color = wdColorBlack
         .Size = 12
    End With
 
    'show the word document
    objWordApp.Visible = True
    objWordDocument.ActiveWindow.Visible = True
End Sub

4. Затем добавьте новый проект VBA на панель быстрого доступа.
5. После этого выберите письмо и нажмите кнопку макроса на панели быстрого доступа.
6. Сразу же отобразится документ Word с содержимым электронной почты.
7. Наконец, вы можете сохранить новый всплывающий документ Word, как обычно.

Эффективно устраняйте раздражающие проблемы Outlook

Поскольку Outlook подвержен ошибкам и повреждению, вам нужно приложить больше усилий для защиты ваших данных Outlook. Например, вам необходимо регулярно делать резервные копии данных Outlook. Кроме того, разумно приобрести выдающийся Восстановление Outlook инструмент, как DataNumen Outlook Repair, который обязательно пригодится однажды.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server ремонт и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com