Hallo ihr Lieben,
kann mir bitte jemand weiterhelfen bei folgender Herausforderung?
Ich möchte neben der Betreffzeile (was funktioniert) einfach nur noch den Empfänger meiner gesendeten Outlook Mail in einer Zelle auslesen.
Mein aktueller code sieht wie folgt aus:
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.getdefaultfolder(olFolderSentMail)
For Each OutlookMail In Folder.items
Range("B7") = OutlookMail.Subject
Range("E7") = OutlookMail.Recipient 'So geht es leider nicht....
Next OutlookMail
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
Könnt ihr mir bitte weiterhelfen. Habe nach langer Recherche nichts findne können.
Danke im Voraus.
|