Office: (Office 2013) Per Makro E-Mail auslesen und in Excel Tabelle speichern

swooper · 14. November 2019

Hallo zusammen,

ich stehe zurzeit vor folgendem Problem.
Ich möchte gerne im Outlook Mails in Excel per Makro auslesen und habe schon folgendes zusammen bekommen.

Jetzt möchte ich aber nicht nur den Posteingang "auslesen" sondern andere unterordner.

Kann mich bei der richtigen Lösungsfindung jemand von Euch unterstützen?

Vielen Dank im voraus

Sub OutlookPosteingang() 'Variablendeklaration Dim OLF As Outlook.MAPIFolder Dim AnzEintraege As Integer, i As Integer, Email As Integer ' Hier wird eine Tabelle hinzugefügt Sheets.Add 'Globale Fehlerbehandlung -> Excel soll automatisch weitermachen, egal welcher Fehler On Error Resume Next ' Überschriften im neuen Blatt -> die erste Zeile von A1 - F1 [A1].Value = "Betreff" [B1].Value = "Datum Uhrzeit" [C1].Value = "empfangen von" [D1].Value = "gelesen" [E1].Value = "Nachricht" [F1].Value = "Dateianhänge" 'Erste Zeile soll Fett formatiert werden Rows(1).Font.Bold = True 'Setzen der Variable als Outlook Application; Zugriff auf Outlook Set OLF = GetObject("", "Outlook.Application") _ .GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 'Setzen der Variable -> es sollen alle Nachrichten im Ordner 'Posteingang (olFolderInbox) gezählt werden AnzEintraege = OLF.Items.Count 'Setzen der Variablen auf '0' i = 0: Email = 0 'Beginn Schleifendurchlauf (Schleife 1) -> die Variable 'i' läuft solange, wie Anzahl der EMails vorhanden sind While i < AnzEintraege i = i + 1 'Anzeigen einer Nachricht in der Statuszeile Application.StatusBar = "Lese Posteingang " & _ Format(i / AnzEintraege, "0%") 'Was soll mit den Nachrichten geschehen? (Schleife 2) With OLF.Items(i) Email = Email + 1 'Zelle 1 mit dem Wert Betreff in der EMail Cells(Email + 1, 1).Value = .Subject 'Zelle 2 mit dem Wert 'Empfangen am' in der EMail Cells(Email + 1, 2).Value = .ReceivedTime 'Zelle 3 Absender Cells(Email + 1, 3).Value = .SenderName 'Zelle 4 der gelesenen Nachrichten Cells(Email + 1, 4).Value = Not .UnRead 'Zelle 5 mit der eigentlichen Nachricht Cells(Email + 1, 5).Value = .Body 'Zelle 6 -> Anzahl der Anhänge in der EMail Cells(Email + 1, 6).Value = .Attachments.Count 'Ende der Schleife 2 End With 'Ende der Schleife 1 Wend 'Die Variable muss wieder auf Null gesetzt werden = nothing halt Set OLF = Nothing 'Die Spalten sollen automatisch in der Breite angeglichen werden Columns("A:F").AutoFit 'Die Zelle 'A2' soll selektiert werden [A2].Select 'Die Exceldatei wird gespeichert ActiveWorkbook.Saved = True 'Die Statuszeile wird wieder ausgeschaltet Application.StatusBar = False End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Hajo_Zi · 16. November 2019

Crossposting - Hajo's Excelseiten
Oder
Crossposting | Excel ist sexy!
Du hast Glück das JINX nicht mehr da ist, ansonsten würde Dein Beitrag wegen Crossposting geschlossen werden.
Ein Zitat aus der Netiquette (hier im Forum):
Unerwünscht sind auch Crosspostings - also dieselbe Frage gleichzeitig in mehreren Foren (nicht nur im MSOF).
Denn auf diese Weise werden mehrere Gruppen von Leuten mit dem gleichen Thema befasst, ohne dass sie voneinander wissen.
Naturgemäß laufen dann die Antworten, die im einen Forum "zu spät" gegeben wurden, ins Leere und bleiben ohne Resonanz.
Es reicht also, zunächst in einem Forum zu posten - wenn die Antworten dann unbefriedigend sein sollten, steht es einem anschließend immer noch offen, ein anderes Forum zu Rate zu ziehen.
Ich mache keine Werbung für andere Foren und verzichte darum auf den Link.
Die Forumssoftware verhindert das auch bei den meisten Foren.

swooper · 16. November 2019

Hallo Hajo,

vielen Dank für den Hinweis.

Du kannst auch gerne meinen Beitrag schliessen, was schade wäre, Da ich dringend auf Hilfe hoffe.

Schade, dass in Deinem Post keine Hilfe für meine Anfrage zu finden ist.

Trotzdem danke für Deine Mühe

Schönen Abend noch

Office: (Office 2013) Per Makro E-Mail auslesen und in Excel Tabelle speichern

Per Makro E-Mail auslesen und in Excel Tabelle speichern

Per Makro E-Mail auslesen und in Excel Tabelle speichern

Per Makro E-Mail auslesen und in Excel Tabelle speichern - Similar Threads - Makro Mail auslesen

Komplexes Makro ohne Ahnung :-/

Makro erstellen: PDF erstellen und als Mail verschicken.

E-Mail Makro

Makro Zellüberwachung wenn Wert dann Mail mit Wert einer anderen Zelle

Nach Update auf Office 365 sendet Makro keine Mails mehr

Bild mittels Makro in E-Mail einbetten

Excel Datei mit Makro in mehrere PDF's konvertieren + E-Mail-Versand