Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe de hoofdtekst van Outlook-e-mail exporteren naar een Excel-spreadsheet?

Als u de geselecteerde hoofdtekst van de e-mail van Outlook naar een Excel-spreadsheet wilt exporteren, kan de methode in dit artikel u helpen.

Exporteer Outlook-e-mailtekst naar Excel-spreadsheet met VBA-code


Exporteer Outlook-e-mailtekst naar Excel-spreadsheet met VBA-code<

Voer de onderstaande VBA-code uit om de geselecteerde hoofdtekst van een Outlook-e-mail naar Excel te exporteren.

1. Open de e-mail, selecteer de hoofdtekst van de e-mail die u naar Excel-spreadsheet wilt exporteren en druk vervolgens op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. En kopieer vervolgens de VBA-code naar het codevenster.

VBA-code: exporteer de hoofdtekst van Outlook-e-mail naar Excel-spreadsheet

Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    Set xInspector = xMailItem.GetInspector
    Set xDoc = xInspector.WordEditor
    xDoc.Application.Selection.Range.Copy
    xInspector.Close olDiscard
    Set xExcel = New Excel.Application
    Set xWb = xExcel.Workbooks.Add
    Set xWs = xWb.Sheets.item(1)
    xExcel.Visible = False
    xWs.Activate
    xWs.Paste
    xWs.SaveAs xFilePath & "Email body.xlsx"
    xWb.Close True
    xExcel.Quit
    Set xWs = Nothing
    Set xWb = Nothing
    Set xExcel = Nothing
End Sub

Opmerking:: In de code, "E-mail body.xlsx”Is de werkmapnaam die u maakt met de geselecteerde hoofdtekst van de e-mail. U kunt het wijzigen op basis van uw behoefte.

3. klikken Toolbox > Referenties. Controleer vervolgens beide Microsoft Excel-objectbibliotheek als Microsoft Word-objectbibliotheek dozen in de Referenties - Project dialoog venster. Zie screenshot:

4. Vervolgens een Blader naar de map dialoogvenster verschijnt, selecteer een map om de werkmap op te slaan en klik op het OK knop.

Nu een werkmap met de naam "e-mail lichaam”Wordt gemaakt en opgeslagen in een opgegeven map. Open de werkmap, u kunt zien dat de geselecteerde hoofdtekst van de e-mail wordt geëxporteerd naar Blad1 van de werkmap.


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Michaael Rejano · 2 years ago
    this work but in one email only what if in folder theres a multiple email thats need to be extracted in excel?
  • To post as a guest, your comment is unpublished.
    Divya · 2 years ago
    Hi the code only returned directly, into the excel and not the body of the email, may I know why was that??
    • To post as a guest, your comment is unpublished.
      Rohit · 2 years ago
      same issue for me as well