Serienmail mit Anhängen in Excel versenden
Schritt-für-Schritt-Anleitung
Um Serienmails mit Anhängen aus Excel zu versenden, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es dir, individuelle Anhänge zu versenden und eine Signatur aus Outlook zu integrieren.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Erstelle ein neues Modul, indem du mit der rechten Maustaste auf „VBAProject (dein Arbeitsblattname)“ klickst und „Einfügen“ > „Modul“ auswählst.
- Füge den folgenden Code in das Modul ein:
Sub SerienmailMitAnhang()
Dim oOLApp As Object
Dim oOLMsg As Object
Dim sRec As String
Dim sSub As String
Dim sBody As String
Dim iCounter As Integer
Dim sAnhang As String
' Outlook-Instanz erstellen
Set oOLApp = CreateObject("Outlook.Application")
' Schleife durch die Zeilen
For iCounter = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
sRec = Cells(iCounter, 1).Value ' Empfänger
sSub = Cells(iCounter, 2).Value ' Betreff
sBody = Cells(iCounter, 3).Value ' Mailtext
sAnhang = Cells(iCounter, 4).Value ' Anhang
Set oOLMsg = oOLApp.CreateItem(0) ' Neue E-Mail erstellen
With oOLMsg
.Recipients.Add sRec
.Subject = sSub
.GetInspector
.HTMLBody = sBody & "<br>" & .HTMLBody ' Body und Signatur verknüpfen
If sAnhang <> "" Then .Attachments.Add sAnhang ' Anhang hinzufügen
.Display ' E-Mail anzeigen
End With
Next iCounter
' Aufräumen
Set oOLMsg = Nothing
Set oOLApp = Nothing
End Sub
-
Fülle dein Excel-Blatt mit den entsprechenden Informationen:
- Spalte A: E-Mail-Adressen
- Spalte B: Betreff
- Spalte C: Mailtext
- Spalte D: Dateipfade der Anhänge
-
Schließe den VBA-Editor und führe das Makro aus.
Häufige Fehler und Lösungen
-
Problem: Reiter „Serienmail“ in Excel fehlt.
- Lösung: Stelle sicher, dass du das richtige VBA-Skript verwendest und die erforderlichen Berechtigungen in Excel und Outlook aktiviert sind.
-
Problem: Der Mailtext überschreibt die Signatur.
- Lösung: Achte darauf, dass du den HTML-Body korrekt verknüpfst, indem du den oben genannten Code verwendest.
-
Problem: Anhänge werden nicht hinzugefügt.
- Lösung: Überprüfe, ob die Dateipfade in Spalte D korrekt sind und die Dateien existieren.
Alternative Methoden
Falls du Outlook 2016 verwendest, kannst du auch die Seriendruck-Funktion nutzen, um Serienmails zu generieren. Dies erfordert jedoch das Erstellen einer Verbindung zwischen Excel und Word.
- Erstelle ein neues Word-Dokument.
- Wähle „Sendungen“ > „Seriendruck starten“ > „E-Mail-Nachrichten“.
- Wähle „Empfänger auswählen“ und importiere deine Excel-Tabelle.
- Füge den Text und die Anhänge manuell hinzu.
Praktische Beispiele
-
Serienmail mit individuellem PDF-Anhang:
- In Spalte D kannst du den spezifischen Pfad zu jedem PDF-Dokument angeben, um personalisierte Anhänge zu versenden.
-
Serienmail mit individueller Signatur:
- Statt einer festen Signatur kannst du HTML-Quelltexte in Spalte K einfügen, um verschiedene Signaturen zu verwenden.
Tipps für Profis
- Nutze HTML-Formatierungen im Mailtext, um die Gestaltung deiner E-Mails zu verbessern.
- Teste verschiedene Anhänge und Formate, um sicherzustellen, dass sie in den E-Mail-Clients korrekt angezeigt werden.
- Achte darauf, dass deine Excel-Tabelle gut strukturiert ist, um Fehler zu vermeiden.
FAQ: Häufige Fragen
1. Wie kann ich sicherstellen, dass der Mailtext nicht überschrieben wird?
Verwende den HTML-Code, um den Text korrekt zu formatieren und die Signatur einzufügen.
2. Kann ich mehrere Anhänge für jede E-Mail hinzufügen?
Ja, du kannst das Skript anpassen, um mehrere Dateipfade in einer Zelle zu verarbeiten, indem du eine Schleife über die Dateipfade implementierst.
3. Welche Excel-Version wird benötigt?
Das Skript sollte mit Excel 2016 und neuer funktionieren, aber auch ältere Versionen unterstützen in der Regel die grundlegenden Funktionen.