Option Explicit
'Benötigt den Verweis auf Microsoft Outlook Object Library
Sub MailsImportieren()
Dim objOutlook As Outlook.Application
Dim objnSpace As Namespace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim LRow As Long
Dim myAr() As Variant
Set objOutlook = New Outlook.Application
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.PickFolder ''' Dialog
With Sheets("Outlook") 'Tabellennamen anpassen !!!!!!!
'Zellen leer machen für neue Daten
.Range("A2:C" & .Rows.Count).Clear
'Überschrift
.Cells(1, 1) = "Absender"
.Cells(1, 2) = "Datum"
.Cells(1, 3) = "Betreff"
.Range("A1:C1").Font.Bold = True
'Array Dimensionieren
Redim myAr(1 To objFolder.Items.Count, 1 To 3)
'Mails aus Ordner lesen
For Each objMsg In objFolder.Items
LRow = LRow + 1
myAr(LRow, 1) = objMsg.SenderEmailAddress 'Mail- Adresse
myAr(LRow, 2) = objMsg.ReceivedTime 'Datum
myAr(LRow, 3) = objMsg.Subject 'Betreff
Next objMsg
'Daten in Zellen schreiben
.Range("A2").Resize(LRow, 3) = myAr
'Breite der Spalten anpassen
.Columns("A:C").EntireColumn.AutoFit
End With
End Sub
Gruß Tino
Um die Kopfzeilen von Outlook-Mails in Excel zu exportieren, befolge diese Schritte:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (dein Arbeitsbuch)" > Einfügen > Modul.
Kopiere den folgenden VBA-Code in das Modul:
Option Explicit
'Benötigt den Verweis auf Microsoft Outlook Object Library
Sub MailsImportieren()
Dim objOutlook As Outlook.Application
Dim objnSpace As Namespace
Dim objFolder As MAPIFolder
Dim objMsg As MailItem
Dim LRow As Long
Dim myAr() As Variant
Set objOutlook = New Outlook.Application
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.PickFolder ' Dialog zur Ordnerauswahl
With Sheets("Outlook") ' Tabellennamen anpassen
.Range("A2:C" & .Rows.Count).Clear ' Zellen leer machen für neue Daten
.Cells(1, 1) = "Absender"
.Cells(1, 2) = "Datum"
.Cells(1, 3) = "Betreff"
.Range("A1:C1").Font.Bold = True
'Array Dimensionieren
ReDim myAr(1 To objFolder.Items.Count, 1 To 3)
'Mails aus Ordner lesen
For Each objMsg In objFolder.Items
LRow = LRow + 1
myAr(LRow, 1) = objMsg.SenderEmailAddress ' Mail-Adresse
myAr(LRow, 2) = objMsg.ReceivedTime ' Datum
myAr(LRow, 3) = objMsg.Subject ' Betreff
Next objMsg
'Daten in Zellen schreiben
.Range("A2").Resize(LRow, 3) = myAr
.Columns("A:C").EntireColumn.AutoFit ' Breite der Spalten anpassen
End With
End SubSetze den Verweis auf die Microsoft Outlook Object Library: Gehe zu Extras > Verweise und aktiviere die „Microsoft Outlook Object Library“.
Führe den Code aus, indem Du im VBA-Editor auf "Ausführen" klickst oder F5 drückst.
Wähle den gewünschten Outlook-Ordner aus dem Dialog, der erscheint.
Fehler: „Benötigt den Verweis auf Microsoft Outlook Object Library“
Fehler: „Typ nicht definiert“
Outlook.Application) korrekt deklariert sind.Keine Daten werden in Excel angezeigt
Falls Du kein VBA verwenden möchtest, kannst Du die Outlook-Mails auch manuell exportieren:
Hier sind zwei Beispiele, wie Du die Outlook-Kopfzeilen in Excel speichern kannst:
Beispiel 1: Nur bestimmte E-Mails exportieren
Beispiel 2: Export mit zusätzlichen Informationen
objMsg.CC und objMsg.BCC in das Array ein.1. Wie kann ich die Kopfzeilen von Outlook-Mails speichern mit Datum und Absender? Du kannst den oben genannten VBA-Code verwenden, um die Absender, das Datum und den Betreff in Excel zu exportieren.
2. Welche Excel-Version benötige ich? Der VBA-Code sollte in Excel 2010 und höheren Versionen funktionieren, solange die Microsoft Outlook Object Library verfügbar ist.
3. Kann ich auch Anhänge exportieren? Nein, der aktuelle Code exportiert nur Kopfzeilen. Um Anhänge zu exportieren, müsstest Du den Code anpassen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen