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 > Bibliographie 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
Note: 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.
Notizen:
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:
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:
Notizen:
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:
- 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?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!