CC-Versand mit VBA in Outlook
Schritt-für-Schritt-Anleitung
Um in Outlook mit VBA einen CC-Versand zu implementieren, folge diesen Schritten:
-
Öffne den VBA-Editor in Outlook (Alt + F11).
-
Erstelle ein neues Modul.
-
Füge den folgenden Code ein:
Sub SendMailWithCC()
Dim olApp As Object
Dim myItem As Object
Dim myRecipient As Object
Set olApp = CreateObject("Outlook.Application")
Set myItem = olApp.CreateItem(0) ' olMailItem
' Hauptempfänger hinzufügen
Set myRecipient = myItem.Recipients.Add("j.m.@xyz.de")
' CC-Empfänger hinzufügen
Set myRecipient = myItem.Recipients.Add("cc.empfaenger@xyz.de")
myRecipient.Type = 2 ' olCC
' Betreff und Nachricht hinzufügen
myItem.Subject = "Betreff der E-Mail"
myItem.Body = "Inhalt der E-Mail"
' E-Mail senden
myItem.Send
End Sub
-
Passe die E-Mail-Adressen und den Inhalt nach Bedarf an.
-
Führe das Makro aus (F5 oder über die Schaltfläche "Ausführen").
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du eine andere Methode zur Erstellung von CC-Empfängern in Outlook VBA ausprobieren möchtest, kannst du auch den Folgenden Befehl verwenden:
myItem.Recipients.Add("cc.empfaenger@xyz.de").Type = olCC
Diese Methode fügt den CC-Empfänger direkt hinzu und spart eine Zeile Code.
Praktische Beispiele
Hier sind einige Beispiele, wie du recipients.add in verschiedenen Szenarien verwenden kannst:
-
E-Mail mit mehreren Empfängern:
Set myRecipient = myItem.Recipients.Add("empfaenger1@xyz.de")
myRecipient.Type = olTo
Set myRecipient = myItem.Recipients.Add("empfaenger2@xyz.de")
myRecipient.Type = olCC
-
E-Mail ohne Hauptempfänger, nur mit CC:
Set myItem = olApp.CreateItem(olMailItem)
Set myRecipient = myItem.Recipients.Add("cc.empfaenger@xyz.de")
myRecipient.Type = olCC
myItem.Subject = "Nur CC"
Tipps für Profis
-
Verwende Konstanten: Anstelle von Zahlen für die Typen (z.B. 2 für olCC), definiere sie als Konstanten am Anfang deines Codes, um die Lesbarkeit zu verbessern.
-
Fehlerbehandlung einfügen: Nutze On Error Resume Next, um mögliche Fehler beim Hinzufügen von Empfängern zu handhaben.
On Error Resume Next
myItem.Recipients.Add("fehlerhafter.empfaenger@xyz.de")
If Err.Number <> 0 Then
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
End If
FAQ: Häufige Fragen
1. Wie füge ich mehrere CC-Empfänger hinzu?
Du kannst mehrere myItem.Recipients.Add-Befehle für verschiedene CC-Adressen verwenden und jeweils den Typ auf olCC setzen.
2. Was ist der Unterschied zwischen olMailItem und CreateItem(0)?
CreateItem(0) entspricht olMailItem, da 0 die Konstante für MailItem ist. Es ist eine Abkürzung, die oft verwendet wird.