Wie sendet man aus Excel heraus über Outlook eine E-Mail an mehrere Empfänger aus einer Liste?
In vielen beruflichen Situationen stoßen Sie möglicherweise auf Fälle, in denen eine Liste von E-Mail-Adressen in einer Spalte eines Excel-Arbeitsblatts gespeichert ist – etwa beim Verteilen von Newslettern, dem Versenden von Rechnungen oder der Benachrichtigung von Teilnehmern zu einer Veranstaltung. Anstatt jede Adresse manuell einzugeben oder Outlook extra zum Erstellen der E-Mail zu öffnen, können Sie mit Excel den gesamten Prozess optimieren und Nachrichten direkt an alle Empfänger versenden. Dieser Leitfaden liefert detaillierte Lösungen, um mehrere E-Mails gleichzeitig aus Excel heraus zu versenden – nahtlos integriert mit Outlook, um Zeit zu sparen und Fehler zu vermeiden.
Senden einer E-Mail an mehrere Empfänger aus Excel mithilfe von VBA-Code
Senden einer E-Mail an mehrere Empfänger aus Excel mithilfe von VBA-Code
Wenn Sie dieselbe E-Mail gleichzeitig an eine Gruppe von Personen senden möchten und deren Adressen in einer Spalte eines Arbeitsblatts aufgelistet sind, können Sie einen VBA-Code nutzen, um diesen Vorgang zu automatisieren. Diese Methode eignet sich ideal für Massenbenachrichtigungen oder Gruppenaktualisierungen – ganz ohne manuelles Hinzufügen einzelner Empfänger in Outlook. Gehen Sie dazu wie folgt vor:
1. Drücken Sie ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Falls Sie die Registerkarte „Entwickler“ noch nicht aktiviert haben, finden Sie die Anleitung in den Excel-Einstellungen.
2. Klicken Sie im VBA-Fenster auf Einfügen > Modul. Dadurch wird ein leeres Modulfenster geöffnet, in das Sie Ihren Code eingeben können. Fügen Sie dort den folgenden Code ein:
VBA-Code: E-Mail an mehrere Empfänger senden
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Drücken Sie F5(oder klicken Sie auf „Ausführen“), um den Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie die Adressliste aus Ihrem Arbeitsblatt auswählen können. So wählen Sie ganz einfach alle Zellen mit den gewünschten E-Mail-Adressen aus und stellen sicher, dass der Code nur Empfänger berücksichtigt, die einem gültigen E-Mail-Format entsprechen ()*@*). Siehe Screenshot:
4. Nachdem Sie die Adressen ausgewählt haben, klicken Sie auf OK. Outlook öffnet ein neues Nachrichten-Fenster, in dem die ausgewählten Adressen automatisch in das Feld An eingetragen werden. Sie können nun Betreff und Nachrichtentext ganz nach Ihren Anforderungen gestalten. Bei Bedarf bietet das Fenster zudem weitere Möglichkeiten zur Personalisierung oder Klarstellung. Siehe Screenshot:
5. Sobald Ihre Nachricht fertiggestellt ist, klicken Sie auf die Schaltfläche Senden, um die E-Mail gleichzeitig an alle aufgeführten Empfänger zu versenden. So stellen Sie sicher, dass keine Adressen vergessen werden, und beschleunigen die Gruppenkommunikation.
Tipp: Stellen Sie sicher, dass Outlook installiert und als Standard-E-Mail-Client festgelegt ist, damit diese Methode reibungslos funktioniert. Sollte das Eingabefeld nicht angezeigt werden, überprüfen Sie Ihre Makrosicherheitseinstellungen in Excel.
Anwendungsszenarien: Verwenden Sie diese Methode für Teamankündigungen, Veranstaltungshinweise oder das Versenden identischer Informationen an mehrere Personen. Der Vorteil liegt in der Geschwindigkeit und Genauigkeit bei minimalem manuellem Aufwand; die Einschränkung besteht darin, dass keine individuelle Personalisierung der Nachricht pro Empfänger möglich ist.
Fehlerbehebung: Sollte sich das Outlook-Nachrichtenfenster nicht öffnen, vergewissern Sie sich, dass Outlook ordnungsgemäß läuft und als Standard-E-Mail-Programm eingestellt ist. Stellen Sie zudem sicher, dass alle ausgewählten Zellen gültige E-Mail-Adressen enthalten – obwohl eine Fehlerbehandlung integriert ist, sollten leere oder falsch formatierte Zellen zur optimalen Funktionsweise unbedingt vermieden werden.
Senden Sie personalisierte E-Mails an mehrere Empfänger mit unterschiedlichen Anhängen: Für anspruchsvollere Anforderungen – wie das Versenden eindeutiger Anhänge, individuell angepasster Inhalte oder das automatische Hinzufügen von CC/Bcc – bietet die Kutools für ExcelE-Mails senden-Funktion eine schnelle und einfache Möglichkeit, personalisierte E-Mails direkt aus Excel über Outlook zu versenden. Mit dieser Funktion gestalten Sie jede E-Mail individuell, fügen Empfängern jeweils eigene Anhänge hinzu und nehmen Empfänger bei Bedarf in CC oder Bcc auf – für maximal flexible Massen-E-Mail-Versandoptionen.Klicken Sie hier, um Kutools für Excel herunterzuladen!
|
Senden einer E-Mail an mehrere Empfänger mit der Aktuelle Arbeitsmappe als Anhang mithilfe von VBA-Code
Wenn Sie Ihre aktuelle Excel-Arbeitsmappe als Anhang an eine Gruppe von Empfängern versenden möchten, automatisiert die folgende VBA-Lösung diesen Prozess – ideal zum schnellen und zuverlässigen Verteilen von Berichten, Finanzzusammenfassungen oder kollaborativen Dokumenten an mehrere Stakeholder.
1. Öffnen Sie Excel und drücken Sie ALT + F11, um die Entwicklungsumgebung Microsoft Visual Basic for Applications zu starten.
2.Navigieren Sie im VBA-Editor zu Einfügen>Modul, und kopieren Sie dann den unten stehenden Code in das Modulfenster:
VBA-Code: Senden einer E-Mail an mehrere Empfänger mit der Aktuelle Arbeitsmappe als Anhang
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Drücken Sie F5, um den Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie die Zellen mit den E-Mail-Adressen auswählen sollen. Dieser Mechanismus hilft Ihnen, alle relevanten Empfänger aus Ihrem Arbeitsblatt einfach einzubeziehen, und stellt sicher, dass nur korrekt formatierte E-Mail-Adressen hinzugefügt werden. Siehe folgender Screenshot:
4. Nach Bestätigung der Auswahl klicken Sie auf OK. Outlook erstellt automatisch ein neues Nachrichten-Fenster, listet die ausgewählten Empfänger im Feld An auf und fügt die aktuell geöffnete Arbeitsmappe als Anhang hinzu. Anschließend können Sie Betreff und Nachrichtentext individuell anpassen, bevor Sie die E-Mail versenden. Siehe Screenshot:
5. Klicken Sie auf die Schaltfläche Senden, um Ihre E-Mail – inklusive der angehängten Arbeitsmappe – auf einmal an alle ausgewählten Empfänger zu versenden.
Vorsichtsmaßnahme: Falls Ihre Arbeitsmappe vertrauliche Informationen enthält, überprüfen Sie Ihre Empfängerliste sorgfältig, bevor Sie senden. Sollte beim Anhängen der Datei ein Fehler auftreten, stellen Sie sicher, dass die Arbeitsmappe gespeichert ist, nicht in einem anderen Programm geöffnet ist und Outlook korrekt für das automatisierte Versenden von E-Mails eingerichtet wurde.
Anwendungsfälle: Diese Lösung wird häufig zum Verteilen periodischer Berichte, zum Einreichen kollaborativer Arbeitsmappen oder zum Teilen von Referenzdateien mit Teams oder Kunden genutzt. Sie ist effizient für den Massenversand von Dokumenten, erlaubt jedoch keine separaten Anhänge pro Empfänger.
Häufige Probleme: Sollte sich das Eingabefenster nicht öffnen oder die E-Mail nicht versendet werden, vergewissern Sie sich, dass Sie Makroberechtigungen erteilt und Ihre Arbeitsmappe vor dem Ausführen des Codes gespeichert haben. Prüfen Sie außerdem, ob sich leere Zellen in Ihrer Auswahl befinden – der Code überspringt Inhalte, die nicht dem Standard-E-Mail-Format entsprechen.
Alternative Lösung: Senden von E-Mail-Adresse, getrennt durch Semikolons, mithilfe einer Excel-Formel
Wenn Sie eine Liste von E-Mail-Adressen schnell in einer einzelnen Zelle zusammenstellen möchten – getrennt durch Semikolons, damit Sie sie problemlos in die Empfängerfelder von Outlook kopieren können – bieten Excel-Formeln eine schnelle und einfache Lösung, besonders wenn Sie auf Makros verzichten möchten. So können die Empfänger direkt in die Felder An, CC oder Bcc eingefügt werden.
1. Angenommen, Ihre E-Mail-Adressen befinden sich in Spalte A, Zeilen 1 bis 7. Geben Sie die folgende Formel in eine leere Zelle ein (z. B. B1):
=TEXTJOIN(";",TRUE,A1:A7)2. Drücken Sie Enter. Das Ergebnis ist eine einzelne Textzeichenfolge, die alle E-Mail-Adressen aus dem ausgewählten Bereich enthält, getrennt durch Semikolons. Sie können diese Zelle dann kopieren und direkt in die Empfängerfelder von Outlook einfügen.
Formelparameter:
- TEXTVERKETTEN: Verkettet einen Zellbereich mit dem angegebenen Trennzeichen – in diesem Fall einem Semikolon.
- WAHR: Schließt leere Zellen im Bereich aus. Alle gültigen E-Mail-Adressen werden lückenlos verkettet.
- A1:A10: Passen Sie diesen Bereich an Ihre Liste der E-Mail-Adressen an.
Vorteile: Dieser Ansatz erfordert keine Makro-Aktivierung und eignet sich daher ideal für Umgebungen mit eingeschränktem VBA-Zugriff. Er ermöglicht es Ihnen, eine zusammengefasste Liste schnell in jede beliebige E-Mail-Plattform – nicht nur Outlook – zu kopieren.
Einschränkungen: Im Gegensatz zu VBA erstellt es keine E-Mails automatisch und automatisiert auch nicht den Versandprozess – steigert jedoch die Effizienz beim Umgang mit Empfängerlisten.
Tipp: Wenn sich Ihre Liste ändert, passen Sie den Formelbereich entsprechend an. Ersetzen Sie für andere Formate als Semikolon-Trennzeichen ";" durch das von Ihnen bevorzugte Zeichen.
Verwandter Artikel:
Wie versendet man personalisierte Massen-E-Mails aus einer Excel-Liste über Outlook?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins