Es gibt 2 Möglichkeiten, wie man mit Outlook arbeiten kann.

Zum Einen kann man mit Datei / Externe Daten / Tabellen verknüpfen(/importieren)
die Daten direkt holen.

Dazu muss man allerdings über das Exchange-Konto gehen.

Die andere Möglichkeit ist es, sich eine Outlookinstanz zu öffnen und hier
Daten hin- und herzukopieren

oder sogar nur in Outlook etwas zu machen. Hierzu verwendet man eine Outlookinstanz und kann dann mit

einem Recordset Daten lesen oder schreiben. Ein Verweis auf die Outlook-Bibliothek ist erforderlich!


Zu Beachten ist hier, dass sich die 'Tabellen' als MAPI-Verzeichnisse darstellen.


Ein Beispiel für den Standard Outlookeingangsordner:

Dim objOutlook          As Outlook.Application
Dim objNameSpace        As Outlook.NameSpace
Dim objDefaultMail      As Outlook.MAPIFolder
Dim objMail             As Outlook.Items
Dim lng                 As Long

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objDefaultMail = objNameSpace.GetDefaultFolder(olFolderInbox)
Set objMail = objDefaultMail.Items

lng = objMail.Count
For lng = lng To 1 Step -1
	Debug.Print objMail.Item(lng).Subject
Next lng

Set objMail = Nothing
Set objDefaultMail = Nothing
Set objNameSpace = Nothing
Set objOutlook = Nothing

Mit der GetDefaultFolder-Methode hat man Zugriff auf alle Standardkontoordner.

Wenn man auf einen anderen Ordner zugreifen möchte, dann muss sich erst auf diesen beziehen

und kann sich dann auf den nächsten Unterordner beziehen.

Dim objOutlook          As Outlook.Application
Dim objNameSpace        As Outlook.NameSpace
Dim objMailordner       As Outlook.MAPIFolder
Dim objNewMailordner    As Outlook.MAPIFolder


Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objMailordner = objNameSpace.Folders.Item("MeinOrdner")
Set objNewMailordner = objMailordner.Folders("MeinVerzeichnis")

Natürlich hat jedes Element auch andere Einstellungen.

Diese kann man sich sehr einfach im Objektbrowser anzeigen lassen.