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 Senden Schaltflächen zum Senden dieser E-Mails.

Anmerkungen:

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.

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

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

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:

Anmerkungen:

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

In Verbindung stehende Artikel:

• Wie sende ich eine E-Mail mit dem Kopieren und Einfügen eines bestimmten Bereichs in den E-Mail-Text in Excel?
• Wie sende ich E-Mails mit mehreren Anhängen in Excel?
• Wie füge ich beim Senden per VBA in Excel eine Signatur in eine Outlook-E-Mail ein?
• Wie sende ich eine E-Mail, wenn das Fälligkeitsdatum in Excel erreicht wurde?
• Wie sende ich automatisch E-Mails basierend auf dem Zellenwert in Excel?

---

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

Kutools for 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 Formelriegel (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-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 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 jeden Tag Hunderte von Mausklicks für Sie!

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