Neue Nachricht an ausgewählte Kontakte unter Verwendung des BCC-Feldes, per Outlook VBA

Outlook VBA

Dieses Skript erstellt eine neue E-Mail-Nachricht und füllt das BCC-Feld mit den ausgewählten Kontakten. Wenn Sie eine Kontaktgruppe auswählen, werden alle Kontakte in der Gruppe hinzugefügt. Das Skript öffnet die neue Nachricht, sobald es ausgeführt wird.

So gehen Sie vor:

Als erstes öffnen Sie das Visual Basic Editor-Fenster in Outlook, indem Sie auf die Schaltfläche “Visual Basic” im Menüband klicken. Anschließend klicken Sie auf “Einfügen” und wählen “Modul” aus, um ein neues Modul zu erstellen.

Geben Sie dem Modul einen aussagekräftigen Namen, wie zum Beispiel “NachrichtAnKontakte”. Dann können Sie den folgenden Code in das Modulfenster einfügen:

Sub NachrichtAnKontakte()
Dim objMail As Outlook.MailItem
Dim objContact As Outlook.ContactItem
Dim strContacts As String

Set objMail = Application.CreateItem(olMailItem)

' Kontaktgruppe auswählen '
Set objContact = Application.Session.PickFirst()
If objContact IsNot Nothing Then
strContacts = objContact.DLName
End If

' BCC-Feld mit ausgewählten Kontakten füllen '
objMail.BCC = strContacts

' Neue Nachricht öffnen '
objMail.Display

Set objMail = Nothing
Set objContact = Nothing

End Sub

Um das Skript auszuführen, speichern Sie das Modul und schließen Sie den Visual Basic Editor. Klicken Sie dann auf die Schaltfläche “Makro” im Menüband und wählen Sie das Skript “NachrichtAnKontakte” aus. Wenn Sie es auswählen, wird eine neue E-Mail-Nachricht mit den Adressen im BCC-Feld geöffnet.

-

Vorheriger Artikel Nächster Artikel

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

CAPTCHA eingeben * Das Zeitlimit ist erschöpft. Bitte CAPTCHA neu laden.