Wie sende ich E-Mails an E-Mail-Adressen, die in Excel-Zellen angegeben sind?

Angenommen, Sie haben eine Liste mit E-Mail-Adressen und möchten jetzt E-Mail-Nachrichten in großen Mengen direkt in Excel an diese E-Mail-Adressen senden. Wie erreicht man das? Dieser Artikel zeigt Ihnen Methoden zum Senden von E-Mails an mehrere E-Mail-Adressen, die in Zellen in Excel angegeben sind.

Senden Sie E-Mails an E-Mail-Adressen, die in Zellen in Excel mit VBA angegeben sind
Senden Sie E-Mails einfach an E-Mail-Adressen, die in Zellen mit Kutools for Excel angegeben sind

Senden Sie E-Mails an E-Mail-Adressen, die in Zellen in Excel mit VBA angegeben sind

Der folgende VBA-Code kann Ihnen beim Senden von E-Mails an die angegebenen E-Mail-Adressen in Excel helfen. Bitte gehen Sie wie folgt vor.

1. Drücken Sie im Arbeitsblatt die E-Mail-Adressen, an die Sie E-Mails senden müssen, und drücken Sie die Taste Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In der Öffnung Microsoft Visual Basic für Applikationen Fenster, bitte klicken Tools > Referenzen wie unten Screenshot gezeigt.

3. In dem Referenzen - VBAProject Dialogfeld finden und überprüfen Sie die Microsoft Outlook-Objektbibliothek Option, und klicken Sie dann auf OK .

4. Dann klick Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.

VBA-Code: E-Mail an E-Mail-Adressen senden, die in Excel-Zellen 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 Sub

Hinweis: Bitte geben Sie in beiden Fällen Ihren Betreff und Ihren Text an .Subject = "test" und .Body = "Dear" _ & vbNewLine & vbNewLine & _ "Dies ist eine Test-E-Mail" & _ "Senden in Excel" Zeilen im Code.

5. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. In der Eröffnung Kutools for Excel Wählen Sie im Dialogfeld den Bereich aus, der die E-Mail-Adressen enthält, an die Sie E-Mails senden möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:

Anschließend werden E-Mails basierend auf ausgewählten E-Mail-Adressen wie im folgenden Screenshot gezeigt erstellt. Bitte klicken Sie auf Absenden Schaltflächen zum Senden dieser E-Mails.

Einschränkungen:

1. Wenn in ausgewählten Zellen drei E-Mail-Adressen separat vorhanden sind, werden drei E-Mail-Nachrichten erstellt.

2. Der VBA-Code funktioniert nur, wenn Sie Outlook als E-Mail-Programm verwenden.

Senden Sie E-Mails an E-Mail-Adressen, die in Zellen mit Kutools for Excel angegeben sind

In diesem Abschnitt wird Ihnen das empfohlen E-Mails senden Nutzen von Kutools for Excel. Mit diesem Dienstprogramm können Sie E-Mails einfach an E-Mail-Adressen senden, die in Zellen in Excel angegeben sind. Bitte gehen Sie wie folgt vor.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Wählen Sie die E-Mail-Adressen mit der Kopfzelle in Ihrem Arbeitsblatt aus und klicken Sie dann auf Kutools Plus > E-Mails senden.

2. Beim Auftauchen E-Mails senden Im Dialogfeld führen Sie bitte die folgenden Konfigurationen durch:

2.1) Wählen Sie den Header der E-Mail-Adressliste in der Zu Dropdown-Liste;

2.2) Geben Sie den Betreff der E-Mail in das Feld ein Betreff Box;

2.3) Verfassen Ihres E-Mail-Körpers;

2.4) Überprüfen Sie die Senden Sie E-Mails über Outlook Box;

2.5) Klicken Sie auf Absenden Taste. Siehe Screenshot:

3. Dann a Kutools for Excel Das Dialogfeld zeigt an, wie viele E-Mails gesendet wurden. Bitte klicken Sie auf OK Taste und schließen Sie die E-Mails senden Dialogbox. Siehe Screenshot:

Einschränkungen:

1. Sie können zu den Outlooks gehen Gesendete Objekte Ordner, um nach dem Senden von E-Mails zu suchen.

2. Sie können auch einen anderen Server verwenden, indem Sie auf klicken Ausgehende Servereinstellungen um den Sendemodus auf Ihren eigenen einzustellen.

Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.

Demo: Senden Sie E-Mails an E-Mail-Adressen, die in Zellen mit Kutools for Excel angegeben sind

In Verbindung stehende Artikel:

Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf...

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!