Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

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

Angenommen, Sie haben eine Liste von E-Mail-Adressen und möchten jetzt eine E-Mail-Nachricht direkt in Excel an diese E-Mail-Adressen senden. Wie erreiche ich 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 an E-Mail-Adressen, die in Zellen mit Kutools für Excel angegeben wurden

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel - Das beste Office-Produktivitäts-Tool löst die meisten Ihrer Excel-Probleme
  • Alles wiederverwenden: Fügen Sie die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und andere Elemente zu Ihren Favoriten hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20-Textfunktionen: Extrahieren Sie die Nummer aus der Textzeichenfolge. Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umrechnen ...
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einer; Mehrere Zellen / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren; Doppelte Zeilen und Summe zusammenführen ...
  • Geteilte Werkzeuge: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe in mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten ...
  • Einfügen überspringen Versteckte / Gefilterte Zeilen; Zählung und Summe nach Hintergrundfarbe; Mailingliste erstellen und Senden Sie E-Mails nach dem Wert von Cell...
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie diese auf alle Blätter an. Art nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung im Unternehmen; Kostenlose 60-Testversion für alle Funktionen.

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 tun Sie wie folgt.

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

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

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

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

VBA-Code: Senden Sie eine E-Mail an E-Mail-Adressen, 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 Sub

Text: Bitte geben Sie in beiden den Betreff und den Inhalt Ihrer E-Mail an .Subjekt = "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 mit den E-Mail-Adressen aus, an die Sie E-Mails senden möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:

Dann werden E-Mails basierend auf ausgewählten E-Mail-Adressen erstellt, wie im Screenshot gezeigt. Bitte klicken Sie auf Senden Schaltflächen zum Senden dieser E-Mails.

Notizen:

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 für Excel angegeben wurden

Dieser Abschnitt wird Ihnen das empfehlen E-Mails senden Nutzen von Kutools for Excel. Mit diesem Dienstprogramm können Sie problemlos E-Mails an E-Mail-Adressen senden, die in Zellen in Excel angegeben sind. Bitte wie folgt vorgehen.

Kutools for Excel : mit mehr als 300 praktischen Excel Add-Ins, Es ist kostenlos in 60 Tagen zu versuchen.

1. Wählen Sie die E-Mail-Adressen mit der Kopfzeile in Ihrem Arbeitsblatt aus und klicken Sie auf Unternehmen > E-Mails senden. Siehe Screenshot:

2. In dem Auftauchen E-Mails senden Dialogfeld, führen Sie bitte folgende Konfigurationen aus:

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

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

2.3) Verfassen Sie Ihren E-Mail-Text;

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

2.5) Klicken Sie auf Senden Taste. Siehe Screenshot:

3. Dann ein Kutools for Excel Das Dialogfeld öffnet sich, um Ihnen mitzuteilen, wie viele E-Mails gesendet wurden. Bitte klicken Sie auf OK klicken Sie und schließen Sie die E-Mails senden Dialogbox. Siehe Screenshot:

Notizen:

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

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

Tip.Wenn Sie dieses Programm kostenlos testen möchten, gehen Sie bitte zu Laden Sie die Software kostenlos herunter zuerst, und gehen Sie dann, um die Operation gemäß den obigen Schritten anzuwenden.


Demo: Senden Sie eine E-Mail an E-Mail-Adressen, die in Zellen mit Kutools für Excel angegeben sind

Kutools for Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos zu testen, ohne Einschränkung in 60 Tagen. Laden Sie jetzt die kostenlose Testversion herunter!


In Verbindung stehende Artikel:


Kutools for Excel - Das beste Office-Produktivitäts-Tool Steigern Sie Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); 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 der Zellen teilen; 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; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung 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. Kostenlose 60-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.