Wie sendet man eine E-Mail an die in einer Zelle angegebene E-Mail-Adresse in Excel?
Angenommen, Sie verfügen über eine Liste von E-Mail-Adressen und möchten direkt aus Excel heraus per Massenversand Nachrichten an diese Adressen senden – wie geht das? Dieser Artikel zeigt Ihnen Methoden, um E-Mails an mehrere in Excel-Zellen aufgeführte E-Mail-Adressen zu versenden.
Senden Sie E-Mails an E-Mail-Adresse, die in Zellen in Excel angegeben sind, mithilfe von VBA
Senden Sie ganz einfach E-Mails an E-Mail-Adresse, die in Zellen angegeben sind, mit Kutools für Excel
Senden Sie E-Mails an E-Mail-Adresse, die in Zellen in Excel angegeben sind, mithilfe von VBA
Der folgende VBA-Code unterstützt Sie beim Versenden von E-Mails an die in Excel angegebenen E-Mail-Adressen. Gehen Sie dazu wie folgt vor:
1. Drücken Sie in dem Arbeitsblatt, das die E-Mail-Adressen enthält, an die Sie Nachrichten senden möchten, gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im geöffneten Fenster Microsoft Visual Basic für Applikationen auf Extras > Verweise, wie im folgenden Screenshot gezeigt.
3. Suchen Sie im Dialogfeld Verweise – VBAProject die Option Microsoft Outlook-Objektbibliothek, aktivieren Sie sie, und klicken Sie anschließend auf die Schaltfläche OK.
4. Klicken Sie dann auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code, und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Senden Sie E-Mails an E-Mail-Adresse, die in Zellen in Excel angegeben sind
Sub SendEmailToAddressInCells()
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.To = xRgVal
.Subject = "Test"
.Body = "Dear " _
& vbNewLine & vbNewLine & _
"This is a test email " & _
"sending in Excel"
.Display
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubHinweis: Geben Sie Ihren E-Mail-Betreff und den Nachrichtentext im Code sowohl in der Zeile .Subject = „test"als auch in der Zeile .Body = „Sehr geehrte/r " _ & vbNewLine & vbNewLine & _ "dies ist eine Test-E-Mail, " & _ „die aus Excel versendet wird"an.
5. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im geöffneten Dialogfeld Kutools für Excel den Bereich aus, der die E-Mail-Adresse enthält, an die Sie E-Mails senden möchten, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:
Anschließend werden E-Mails basierend auf der ausgewählten E-Mail-Adresse erstellt, wie im folgenden Screenshot dargestellt. Klicken Sie auf die Schaltfläche Senden, um diese E-Mails zu versenden.
Hinweise:
Senden Sie E-Mails an E-Mail-Adresse, die in Zellen angegeben sind, mit Kutools für Excel
In diesem Abschnitt stellen wir Ihnen das Hilfsprogramm E-Mails senden von Kutools für Excel vor. Mit diesem praktischen Tool können Sie ganz einfach E-Mails an die in Excel-Zellen angegebenen E-Mail-Adressen versenden. So geht’s:
1. Wählen Sie die Spalte „E-Mail-Adresse“ einschließlich der Überschriftszelle in Ihrem Arbeitsblatt aus und klicken Sie dann auf KUTOOLS PLUS > E-Mails senden.
2. Nehmen Sie im erscheinenden Dialogfeld E-Mails senden die folgenden Einstellungen vor:
3. Anschließend erscheint das Dialogfeld Kutools für Excel, das Ihnen mitteilt, wie viele E-Mails gesendet wurden. Klicken Sie auf die Schaltfläche OK und schließen Sie das Dialogfeld E-Mails senden. Siehe Screenshot:
Hinweise:
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
Demo: Senden Sie E-Mails an E-Mail-Adresse, die in Zellen angegeben sind, mit Kutools für Excel
Verwandte Artikel:
- Wie sendet man eine E-Mail, indem man einen begrenzten Bereich aus Excel in den E-Mail-Text kopiert und einfügt?
- Wie sendet man eine E-Mail mit mehreren Anhängen direkt aus Excel?
- Wie fügt man beim Versand per VBA in Excel eine Signatur in eine Outlook-E-Mail ein?
- Wie sendet man in Excel eine E-Mail, sobald das Fälligkeitsdatum erreicht ist?
- Wie sendet man automatisch eine E-Mail basierend auf einem bestimmten Zellenwert in Excel?
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