2 učinkovite metode za pretvaranje Outlook e-pošte u Word dokument

Ako želite spremiti ili pretvoriti Outlook e-poštu u Word dokument, možete koristiti 2 metode predstavljene u ovom članku.

Outlook ne nudi izvorne značajke za spremanje ili pretvaranje Outlook e-pošte kao Word dokumenta. Stoga, ako to želite postići, morate se dodatno potruditi. Ovdje ćemo vas naučiti 2 brze metode. Jedan je da pametno koristite značajku "Spremi". Drugi je da taktično koristite Outlook VBA. Čitajte dalje kako biste ih dobili u detalje.

Metoda 1: Koristite značajku "Spremi".

1. Za početak, pokrenite Outlook program.
2. Zatim predložite e-poruku.
3. Zatim idite na izbornik "Datoteka" i odaberite opciju "Spremi kao".
4. Nakon toga u skočnom dijaloškom okviru odaberite odredišnu mapu i odaberite "Samo tekst" u polju "Spremi kao vrstu".
5. Nakon što kliknete gumb "Spremi", možete otvoriti svoju Microsoft Word aplikaciju.
6. U MS Wordu otvorite izbornik "Datoteka" i odaberite "Otvori".
7. U skočnom dijaloškom okviru "Otvori", odaberite "Sve datoteke" u retku "Naziv datoteke" i postavite prethodno spremljenu tekstualnu datoteku.
8. Nakon klika na “Otvori”, e-mail u tekstualnoj fil vrsti otvorit će se u wordu.
9. Kasnije možete odabrati “Datoteka” > “Spremi kao”.
10. Na kraju u dijaloškom okviru "Spremi kao", odaberite "Word dokument" u "Spremi kao vrstu" i pritisnite "Spremi".

Metoda 2: Koristite Outlook VBA

1. Kao prvo, pritisnite tipke "Alt + F11" prečace u programu Outlook.
2. Zatim u skočnom prozoru uređivača programa Outlook VBA otvorite novi modul.
3. Zatim kopirajte i zalijepite sljedeće VBA kodove u njega.

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. Nakon toga dodajte novi VBA projekt na alatnu traku za brzi pristup.
5. Nakon toga odaberite e-poštu i kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
6. Odjednom će se prikazati Word dokument sa sadržajem e-pošte.
7. Na kraju možete spremiti novi skočni Word dokument kao i obično.

Učinkovito riješite dosadne Outlook probleme

Budući da je Outlook sklon pogreškama i oštećenjima, morate uložiti više napora u zaštitu svojih Outlook podataka. Na primjer, morate redovito izrađivati ​​sigurnosne kopije svojih Outlook podataka. Nadalje, mudro je dočepati se nadmoćnog Outlook oporavak alat, poput DataNumen Outlook Repair, koji će vam jednog dana sigurno dobro doći.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com