2 učinkoviti metodi za pretvorbo e-poštnega sporočila iz Outlooka v besedilni dokument

Če želite shraniti ali pretvoriti e-poštno sporočilo iz Outlooka v besedilni dokument, lahko uporabite dva načina, predstavljena v tem članku.

Outlook ne ponuja nobenih izvornih funkcij za shranjevanje ali pretvorbo Outlookovega e-poštnega sporočila kot besedilnega dokumenta. Če želite to doseči, se morate še dodatno potruditi. Tu vas bomo naučili 2 hitrih metod. Ena je pametna uporaba funkcije »Shrani«. Drugi je taktna uporaba Outlook VBA. Prosimo, preberite, če jih želite podrobno prebrati.

1. način: Uporabite funkcijo »Shrani«

1. Za začetek zaženite program Outlook.
2. Nato pošljite e-pošto.
3. Nato zavijte v meni »Datoteka« in izberite možnost »Shrani kot«.
4. Nato v pojavnem pogovornem oknu izberite ciljno mapo in v polju »Shrani kot vrsto« izberite »Samo besedilo«.
5. Ko kliknete gumb »Shrani«, lahko odprete aplikacijo Microsoft Word.
6. V programu MS Word odprite meni »Datoteka« in izberite »Odpri«.
7. V pojavnem pogovornem oknu »Odpri« v vrstici »Ime datoteke« izberite »Vse datoteke« in postavite na predhodno shranjeno besedilno datoteko.
8. Ko kliknete »Odpri«, se e-poštno sporočilo v besedilnem besedilu odpre v besedilu.
9. Kasneje lahko izberete »Datoteka«> »Shrani kot«.
10. Na koncu v pogovornem oknu »Shrani kot« izberite »Word Document« v »Save as type« in pritisnite »Save«.

2. način: Uporabite Outlook VBA

1. V Outlooku najprej pritisnite bližnjične tipke “Alt + F11”.
2. Nato v pojavnem oknu urejevalnika Outlook VBA odprite nov modul.
3. Nato kopirajte in vanj prilepite naslednje kode 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. Nato dodajte nov projekt VBA v orodno vrstico za hitri dostop.
5. Po tem izberite e-poštno sporočilo in v orodni vrstici za hitri dostop kliknite gumb makra.
6. Takoj se prikaže Wordov dokument z e-poštno vsebino.
7. Končno lahko nov pojavni Wordov dokument shranite kot običajno.

Učinkovito odstranite nadležne Outlookove težave

Ker je Outlook nagnjen k napakam in korupciji, si morate bolj prizadevati za zaščito svojih Outlookovih podatkov. Na primer, redno morate varnostno kopirati podatke v Outlooku. Poleg tega je preudarno, da bi se prijeli za vrhunskega Obnovitev programa Outlook orodje, kot DataNumen Outlook Repair, ki vam bo nekoč zagotovo prišel prav.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server popravilo in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com