ich möchte gerne aus einem Ordner in Outlook die Mailempfänger auslesen. Am besten die Mailadresse und den Namen.
Folgender Code funktioniert soweit, aber nur für den Sender.
Leider funktioniert es mit "olMail.recipient" oder "olMail.receiver" nicht.
Könnt ihr mir bitte weiterhelfen?
Vielen Dank im Voraus.
Sub Absender_auslesen()
Dim olApp As Object
Dim olFolder As Object
Dim olMail As Object
Dim i As Integer
i = 0
Set olApp = CreateObject("Outlook.Application")
Set olFolder = olApp.ActiveExplorer.currentfolder
For Each olMail In olFolder.items
ActiveSheet.Range("A1").Offset(i, 0).Value = olMail.sender
i = i + 1
Next
End Sub