Sub LetztenEmpfängerAuslesen()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Postausgang As MAPIFolder
Dim OutlookMail As Object
Dim letzteMail As Object
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Postausgang = OutlookNamespace.GetDefaultFolder(olFolderSentMail)
Set letzteMail = Postausgang.Items(1)
Range("E7") = letzteMail.To
Set Postausgang = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End Sub