Hallo,
ich habe es jetzt bei mir ausprobiert und es funktioniert ebenfalls problemlos. Leider hast Du auch nicht geschrieben, bei welcher Zeile der Fehler kommt.
Ist es die mit dem .To?
Da der Betreff ja funktioniert (wie Du schreibst), hast Du ja wohl auch den Verweis auf die Outlook-Bibliothek gesetzt.
Hier habe ich noch mal eine Variante ohne Verweis, sogenanntes Late Binding. Probiere es einfach mal aus. Hier habe ich aber ein zeilenweises Auflisten Deiner gesendeten eMail vorgenommen. Denn bei Deinem Code wird die Zelle ja immer wieder überschrieben. Oder hast Du nur eine einzige Mail versendet?
Sub GetEmpfängerLastBinding()
'Gesendete Mails => Empfänger, Betreff auflisten
Dim oMail As Object, iZeile As Long
With CreateObject("Outlook.Application").GetNamespace("MAPI")
For Each oMail In .getdefaultfolder(5).Items '5=olFolderSentMail
Range("B" & iZeile + 7).Value = oMail.Subject
Range("E" & iZeile + 7).Value = oMail.To
iZeile = iZeile + 1
Next oMail
End With
End Sub
viele Grüße
Karl-Heinz
|