Sub GetEmpfänger()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Object
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.getdefaultfolder(olFolderSentMail)
For Each OutlookMail In Folder.Items
Debug.Print OutlookMail.Subject
Debug.Print OutlookMail.To
Next OutlookMail
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End Sub
Dann musss das beiDir an etwas anderem liegen.
viele Grüße
Karl-Heinz