Outlook Mail-Empfänger auslesen

Hallo zusammen,

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 

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 373810

Url: https://administrator.de/forum/outlook-mail-empfaenger-auslesen-373810.html

Ausgedruckt am: 23.04.2025 um 04:04 Uhr

3 Kommentare

Neuester Kommentar

Leider funktioniert es mit "olMail.recipient" oder "olMail.receiver" nicht.

Kein Wunder denn die Eigenschaft heißt Recipients und ist ein Array aus Recipient Objekten

....
...
Dim rec as Object
for each rec in olMail.Recipients
    MsgBox rec.Address
Next
...
...

Einfach mal die Doku lesen
https://msdn.microsoft.com/de-de/vba/outlook-vba/articles/recipients-obj ...
https://msdn.microsoft.com/de-de/vba/outlook-vba/articles/recipient-obje ...

Vielen Dank für die Hilfe.

Er gibt mir trotzdem eine Fehlermeldung für Recipient aus. Ich bin leider noch nicht so fit darin. Könntest du mir das eventuell in den bestehenden Code einbauen. Das wäre sehr nett.