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.
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 373810
Url: https://administrator.de/contentid/373810
Printed on: April 27, 2024 at 22:04 o'clock
3 Comments
Latest comment
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
...
...
https://msdn.microsoft.com/de-de/vba/outlook-vba/articles/recipients-obj ...
https://msdn.microsoft.com/de-de/vba/outlook-vba/articles/recipient-obje ...
War ja mal wieder klar (Copy n' Paster sind wieder in da house), einfach das ganze in deine bereits vorhandene For-Schleife packen, fertig!