E-Mail mit CC in Excel versenden
Schritt-für-Schritt-Anleitung
Um eine E-Mail mit CC in Excel zu versenden, kannst Du den folgenden VBA-Code verwenden. Dieser Code sendet eine E-Mail an die in Zelle L13 angegebene Adresse und fügt eine feste CC-Adresse hinzu.
- Öffne Excel und drücke
ALT + F11
, um den VBA-Editor zu öffnen.
- Wähle im Projektfenster das entsprechende Arbeitsblatt aus.
- Klicke auf
Einfügen
und dann auf Modul
, um ein neues Modul zu erstellen.
- Füge den folgenden Code ein:
Sub Blatt_senden2()
Dim Empfaenger As String
Dim wsQuelle As Worksheet, wsTemp As Worksheet
Dim ccEmpfaenger As String
ccEmpfaenger = "deineFesteEmailAdr" ' Ersetze mit der gewünschten CC-Adresse
Empfaenger = [L13]
If Range("O10").Value = "TEST" Then
Set wsQuelle = Sheets("Abfrage")
Workbooks.Add
Application.DisplayAlerts = False
' Überflüssige Blätter der neuen Mappe löschen
If Sheets.Count > 1 Then
For Each wsTemp In Sheets
If wsTemp.Index > 1 Then wsTemp.Delete
Next
End If
wsQuelle.Cells.Copy
ActiveSheet.Name = wsQuelle.Name
With ActiveSheet.Cells
.PasteSpecial Paste:=xlValues ' Werte einfügen
.PasteSpecial Paste:=xlFormats ' Formate einfügen
End With
' E-Mail mit CC senden
ActiveWorkbook.SendMail Empfaenger & ";" & ccEmpfaenger, "Grenz-Zahl erreicht !"
ActiveWindow.Close
Application.DisplayAlerts = True
End If
End Sub
- Ändere die CC-Adresse in der Zeile
ccEmpfaenger = "deineFesteEmailAdr"
nach Deinen Wünschen.
- Schließe den VBA-Editor und führe das Makro aus.
Häufige Fehler und Lösungen
-
E-Mail wird nicht gesendet: Prüfe, ob Du die Berechtigung hast, E-Mails über Excel zu senden. Manchmal blockieren Sicherheitseinstellungen den Versand.
-
CC wird nicht erkannt: Stelle sicher, dass Du die CC-Adresse korrekt im Code eingefügt hast. Sie sollte durch ein Semikolon von der Hauptadresse getrennt werden.
-
Excel stürzt ab: Manchmal kann es zu Problemen kommen, wenn Du mit großen Datenmengen arbeitest. Stelle sicher, dass die Datei nicht zu viele Blätter oder große Datenmengen enthält.
Alternative Methoden
Wenn Du eine andere Methode bevorzugst, um E-Mails zu versenden, kannst Du VBA in Verbindung mit Outlook verwenden. Hier ist ein Beispiel:
Sub OL_Senden()
Dim olapp As Object
Dim objMail As Object
Dim Empfaenger As String
Dim ccEmpfaenger As String
ccEmpfaenger = "deineFesteEmailAdr" ' CC-Adresse
Empfaenger = [L13]
If Range("O10").Value = "TEST" Then
Set olapp = CreateObject("Outlook.Application")
Set objMail = olapp.CreateItem(0)
With objMail
.To = Empfaenger
.CC = ccEmpfaenger
.Subject = "Grenz-Zahl erreicht!"
.Body = Worksheets("Abfrage").Range("I10").Value
.Send ' Sendet die E-Mail
End With
End If
End Sub
Diese Methode erfordert, dass Outlook auf Deinem Computer installiert ist und ordnungsgemäß konfiguriert wurde.
Praktische Beispiele
Hier sind einige Anwendungsbeispiele für den oben genannten Code:
-
Versenden von Berichten: Du kannst diesen Code verwenden, um regelmäßig Berichte an Dein Team zu senden, indem Du die Zelle L13 mit den entsprechenden Empfängern füllst.
-
Benachrichtigungen: Setze den Code ein, um Benachrichtigungen zu senden, wenn bestimmte Bedingungen erfüllt sind (z. B. wenn eine Grenze überschritten wird).
Tipps für Profis
-
Fehlerbehandlung: Implementiere eine Fehlerbehandlung in Deinem VBA-Code, um unerwartete Fehler zu erfassen. Nutze On Error Resume Next
und On Error GoTo 0
.
-
Mehrere CC-Adressen: Du kannst mehrere CC-Adressen hinzufügen, indem Du sie mit Semikolons trennst, z.B. ccEmpfaenger = "email1@domain.com; email2@domain.com"
.
-
Dynamische E-Mail-Adressen: Nutze Excel-Formeln, um E-Mail-Adressen dynamisch zu generieren, beispielsweise durch Verknüpfungen aus mehreren Zellen.
FAQ: Häufige Fragen
1. Kann ich auch BCC-Adressen hinzufügen?
Ja, Du kannst BCC-Adressen hinzufügen, indem Du die entsprechende Zeile in den VBA-Code einfügst: .BCC = "deineBCCEmailAdr"
.
2. Funktioniert dieser Code mit Gmail?
Ja, der Code sollte auch mit Gmail funktionieren, solange Du die richtigen SMTP-Einstellungen in Excel konfiguriert hast. Beachte, dass bei der Verwendung von Gmail möglicherweise zusätzliche Authentifizierungsschritte erforderlich sind.
3. Ist der Code mit allen Excel-Versionen kompatibel?
Der Code sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren. Ältere Versionen könnten einige Funktionen nicht unterstützen.