2 ефективни метода за конвертиране на имейл от Outlook в документ на Word

Ако искате да запазите или конвертирате имейл на Outlook в документ с думи, можете да използвате 2-те метода, въведени в тази статия.

Outlook не предлага никакви собствени функции за запазване или конвертиране на имейл на Outlook като документ с думи. Следователно, ако искате да го постигнете, трябва да положите допълнителни усилия. Тук ще ви научим на 2 бързи метода. Единият е да използвате интелигентно функцията „Запазване“. Другият е да използвате тактично Outlook VBA. Моля, прочетете, за да ги получите подробно.

Метод 1: Използвайте функцията „Запазване“

1. За начало стартирайте програмата Outlook.
2. След това представете имейл.
3. След това се обърнете към менюто „Файл“ и изберете опцията „Запазване като“.
4. Впоследствие в изскачащия диалогов прозорец изберете папка на местоназначение и изберете „Само текст“ в полето „Запазване като тип“.
5. След като щракнете върху бутона „Запазване“, можете да отворите приложението си Microsoft Word.
6. В MS Word обърнете се към меню „Файл“ и изберете „Отваряне“.
7. В изскачащия диалогов прозорец „Отваряне“ изберете „Всички файлове“ в реда „Име на файла“ и стъпка върху предварително запазения текстов файл.
8. След като щракнете върху „Отваряне“, имейлът в текстов тип филм ще се отвори в word.
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