Hallo,
Ich würde gerne mittels eines Makros eine Email an eine eine Verteilerliste, die sich in meinen Kontakten befinder, senden.
Der klassiche Code lautet wie folgt;
Sub INFOMAIL()
Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim myRecipient As Outlook.Recipient
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myItem.Recipients.Add("Muster.Mustermann@gmx.de")
myItem.Subject = "TEST"
myItem.Body= "ES ist ein TEST"
myItem.Display
End Sub
Mein Problem ist dass ich nicht weiss wie ich dem Programm sage dass er die Verteilerliste von meinen Kontakten nimmt und sie als Recipient setzt. Am besten wäre wenn er sie direkt als BCC setzt
Danke im Voraus |