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.
