2 Metode eficiente pentru a converti un e-mail Outlook într-un document Word

Dacă doriți să salvați sau să convertiți un e-mail Outlook într-un document Word, puteți utiliza cele 2 metode introduse în acest articol.

Outlook nu oferă nicio caracteristică nativă pentru a salva sau a converti un e-mail Outlook ca document Word. Prin urmare, dacă vrei să-l atingi, trebuie să faci niște eforturi suplimentare. Aici vă vom învăța 2 metode rapide. Una este să utilizați inteligent funcția „Salvare”. Celălalt este să utilizați cu tact Outlook VBA. Vă rugăm să citiți mai departe pentru a le obține în detaliu.

Metoda 1: Folosiți funcția „Salvare”.

1. Pentru început, lansați programul Outlook.
2. Apoi prezentați un e-mail.
3. Apoi, accesați meniul „Fișier” și selectați opțiunea „Salvare ca”.
4. Ulterior, în caseta de dialog pop-up, selectați un folder de destinație și alegeți „Numai text” în câmpul „Salvare ca tip”.
5. După ce faceți clic pe butonul „Salvare”, puteți deschide aplicația Microsoft Word.
6. În MS Word, accesați meniul „Fișier” și selectați „Deschidere”.
7. În fereastra de dialog pop-up „Deschidere”, selectați „Toate fișierele” în linia „Nume fișier” și introduceți fișierul text salvat anterior.
8. După ce faceți clic pe „Deschide”, e-mailul de tip text se va deschide în Word.
9. Mai târziu puteți selecta „Fișier” > „Salvare ca”.
10. În cele din urmă, în caseta de dialog „Salvare ca”, alegeți „Document Word” în „Salvare ca tip” și apăsați „Salvare”.

Metoda 2: Utilizați Outlook VBA

1. În primul rând, apăsați comenzile rapide „Alt + F11” în Outlook.
2. Apoi, în fereastra pop-up Outlook VBA editor, deschideți un nou modul.
3. Apoi copiați și inserați următoarele coduri VBA în el.

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. Ulterior, adăugați noul proiect VBA la Bara de instrumente Acces rapid.
5. După aceea, selectați un e-mail și faceți clic pe butonul macro din Bara de instrumente Acces rapid.
6. Se va afișa imediat un document Word cu conținut de e-mail.
7. În cele din urmă, puteți salva noul document pop-up Word ca de obicei.

Eliminați eficient problemele enervante de Outlook

Deoarece Outlook este predispus la erori și corupție, trebuie să depuneți mai multe eforturi pentru a vă proteja datele Outlook. De exemplu, trebuie să faceți copii de rezervă regulate pentru datele dvs. Outlook. În plus, este prudent să puneți mâna pe un preeminent Recuperare Outlook instrument, cum ar fi DataNumen Outlook Repair, care cu siguranță va veni la îndemână într-o zi.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server repara și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com