Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie exportiert man automatisch E-Mails von Outlook nach Excel?

Normalerweise können Sie die E-Mails mit der Import / Export-Funktion von Outlook nach Excel exportieren. Haben Sie jemals versucht, die E-Mails automatisch in eine Excel-Datei zu exportieren, wenn neue Nachrichten eintreffen? In diesem Artikel werde ich darüber sprechen, wie die Informationen der neuen eingehenden Nachrichten automatisch in Excel exportiert werden.

Auto-Export von E-Mail-Informationen von Outlook nach Excel mit VBA-Code


Exportieren Sie E-Mails aus dem Posteingang / Gesendete Objekte / Entwürfe schnell in die Excel-Datei:

Mit  Kutools for Outlook's Kurzbericht Mit dieser Funktion können Sie ganz einfach eine XML-Datei generieren, mit der Sie die Informationen aller Elemente im aktuellen E-Mail-Ordner oder Aufgabenordner melden können

doc Auto-Export-E-Mails zu Excel 5

Kutools for Outlook: mit mehr als 40 + handlichen Excel-Add-Ins, die in 60-Tagen kostenlos getestet werden können. Laden Sie die kostenlose Testversion herunter und probieren Sie sie aus!

Auto-Export von E-Mail-Informationen von Outlook nach Excel mit VBA-Code

Um die neu ankommenden E-Mails automatisch in eine Excel-Arbeitsmappe zu exportieren, wenden Sie bitte den folgenden VBA-Code an:

1. Zunächst sollten Sie eine Arbeitsmappe mit den folgenden Kopfzeileninformationen erstellen, wie im folgenden Screenshot gezeigt, damit diese Informationen der Nachrichten in diese Excel-Datei exportiert werden.

doc Auto-Export-E-Mails zu Excel 1

2. Dann gehe zu Outlook und halte die ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick ThisOutLookSession von dem Project1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: E-Mail-Informationen von Outlook nach Excel automatisch exportieren:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

Text: In dem obigen Code, C: \ Benutzer \ DT168 \ Desktop \ geteiltes Dokument \ kto-data.xlsx ist der Excel-Dateipfad und der Excel-Name, nach dem Sie die exportierten Informationen suchen möchten, ändern Sie sie bitte nach Bedarf.

doc Auto-Export-E-Mails zu Excel 2

4. Immer noch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Referenzen auf dem Sprung Referenzen-Project1 Dialogfeld und überprüfen Microsoft Excel-Objektbibliothek Option von der Verfügbare Referenzen Listenfeld, siehe Screenshot:

doc Auto-Export-E-Mails zu Excel 3

5. Dann klick OK Klicken Sie auf diese Schaltfläche, um den Dialog zu schließen, und speichern und schließen Sie das Codefenster.

6. Jetzt sollten Sie Outlook neu starten, damit dieser Code wirksam wird. Wenn neue E-Mails ankommen, werden sie automatisch in die spezifische Arbeitsmappe exportiert, siehe Screenshot:

doc Auto-Export-E-Mails zu Excel 4


Kutools for Outlook - bringt erweiterte 100-Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC durch Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antworten (Alle) mit allen Anhängen in der E-Mail-Konversation; Antworten Sie auf viele E-Mails in Sekunden; Gruß automatisch hinzufügen wenn antworten; Datum in Betreff einfügen ...
  • Anhangstools: Alle Anhänge in allen Mails verwalten, Automatisch lösen, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails vom Brauch; Entfernen Sie doppelte Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
schusskutools outlook kutools plus tab 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Sailu G · 1 months ago
    I have followed above steps but have blanks in excel.
    what should I do?
  • To post as a guest, your comment is unpublished.
    Marduk20 · 6 months ago
    How to capture the Categories, Importance or the User-defined column on the same folder view?
  • To post as a guest, your comment is unpublished.
    sagar khomane · 7 months ago
    Can you please let me know how to deal with sub-folders in above code.
  • To post as a guest, your comment is unpublished.
    Sagar · 7 months ago
    how to deal with subfolders.
  • To post as a guest, your comment is unpublished.
    Jorge · 1 years ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Jorge,
      If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.