Outllok Mail auslesen - verschiedene Ordner

Forumthread: Outllok Mail auslesen - verschiedene Ordner
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Outllok Mail auslesen - verschiedene Ordner

02.05.2007 14:34:00

Tipping

Hallo zusammen,
im folgenden Topic habe ich schon eine erste Antwort bekommen:
https://www.herber.de/forum/archiv/776to780/t776454.htm#776454
Aber wie kann ich zusätzlich den Ordner bestimmen, der ausgelesen werden soll?
In meinem Fall brauche ich Daten aus dem Ordner Posteingang/Ordner1/UnterordnerA...
Danke und Gruß
Tipping Dee

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outllok Mail auslesen - verschiedene Ordner

02.05.2007 15:46:30

IngGi
AW: Outllok Mail auslesen - verschiedene Ordner

02.05.2007 15:50:00

Tipping

AW: Outllok Mail auslesen - verschiedene Ordner

02.05.2007 15:46:30

IngGi

Hallo Tipping Dee,
da musst du dich Stück für Stück durch deine Ordnerhierarchie durchwurschteln:


Sub eMails_zeigen()
Dim olApp As Object
Dim olMAPI As Object
Dim olFolder As Object
Dim olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMAPI = olApp.GetNamespace("MAPI")
'Unterordner für Unterordner zum gewünschten Ordner durchhangeln
Set olFolder = olMAPI.GetDefaultFolder(6)
Set olFolder = olFolder.Folders("Ordner1")
Set olFolder = olFolder.Folders("UnterordnerA")
For Each olMail In olFolder.Items
Range("A65536").End(xlUp).Offset(1, 0) = olMail.Subject
Range("A65536").End(xlUp).Offset(0, 1) = olMail.Body
Next 'olMail
End Sub

Gruß Ingolf