2 effectieve methoden om een ​​Outlook-e-mail naar een Word-document te converteren

Als u een Outlook-e-mail wilt opslaan of converteren naar een Word-document, kunt u de 2 methoden gebruiken die in dit artikel worden geïntroduceerd.

Outlook biedt geen native-functies om een ​​Outlook-e-mail op te slaan of om te zetten als een Word-document. Daarom, als u dit wilt bereiken, moet u wat extra inspanningen leveren. Hier leren we je 2 snelle methoden. Een daarvan is om slim gebruik te maken van de "Opslaan" -functie. De andere is om Outlook VBA tactvol te gebruiken. Lees verder om ze in detail te krijgen.

Methode 1: Gebruik de functie "Opslaan"

1. Begin met het opstarten van uw Outlook-programma.
2. Pitch dan op een e-mail.
3. Ga vervolgens naar het menu "Bestand" en selecteer de optie "Opslaan als".
4. Selecteer vervolgens in het pop-upvenster een bestemmingsmap en kies "Alleen tekst" in het veld "Opslaan als type".
5. Nadat u op de knop "Opslaan" hebt geklikt, kunt u uw Microsoft Word-toepassing openen.
6. Ga in MS Word naar het menu "Bestand" en selecteer "Openen".
7. Selecteer in het pop-upvenster "Openen" "Alle bestanden" in de regel "Bestandsnaam" en toonhoogte op het eerder opgeslagen tekstbestand.
8. Nadat u op "Openen" hebt geklikt, wordt de e-mail in het tekstbestandstype in word geopend.
9. Later kunt u "Bestand"> "Opslaan als" selecteren.
10. Kies tenslotte in het dialoogvenster "Opslaan als" "Word-document" in "Opslaan als type" en klik op "Opslaan".

Methode 2: gebruik Outlook VBA

1. Druk in de eerste plaats op de sneltoetsen "Alt + F11" in Outlook.
2. Open vervolgens in het pop-upvenster van de Outlook VBA-editor een nieuwe module.
3. Kopieer en plak vervolgens de volgende VBA-codes erin.

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. Voeg vervolgens het nieuwe VBA-project toe aan de werkbalk Snelle toegang.
5. Selecteer daarna een e-mail en klik op de macroknop in de werkbalk Snelle toegang.
6. Meteen wordt een Word-document met e-mailinhoud weergegeven.
7. Eindelijk kunt u het nieuwe pop-up Word-document zoals gewoonlijk opslaan.

Gooi vervelende Outlook-problemen effectief weg

Omdat Outlook vatbaar is voor fouten en corruptie, moet u meer moeite doen om uw Outlook-gegevens te beschermen. U moet bijvoorbeeld regelmatig back-ups maken van uw Outlook-gegevens. Bovendien is het verstandig om een ​​vooraanstaand persoon te bemachtigen Outlook-herstel tool, zoals DataNumen Outlook Repair, wat op een dag zeker van pas zal komen.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL Server reparatie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com