Note: The other languages of the website are Google-translated. Back to English

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:

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 Kutoolen 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 Senden 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:

Anmerkungen:

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 wünschen (30-Tag) dieses Dienstprogramms, 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 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.
kte tab 201905

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!
officetab unten
Kommentare (4)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
수신인과 마찬가지의 방법으로 참조인을 선택하려면 어떻게 하나요?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Lee,
Entschuldigung, ich verstehe Ihre Frage nicht. Möglicherweise müssen Sie einen Screenshot anhängen, um das Problem klarer zu beschreiben.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hogyan választhatom ki a CC-ket ugyanúgy, mint a címzetteket? Lee ezt kérdezte :D
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo KK,
Wenn Sie CC-Empfänger mit den E-Mail-Adressen in bestimmten Zellen hinzufügen möchten, müssen Sie manuell eine E-Mail-Adresse zur Zeile An im Code hinzufügen und dann eine Cc-Zeile hinzufügen.
Die beiden Zeilen sind wie folgt.
.To = "xxx@xxx.com"
.Cc = xRgVal
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL