Wie sende ich personalisierte Massen-E-Mails aus einer Excel-Liste über Outlook?

Zum Beispiel habe ich den folgenden Datenbereich in einem Arbeitsblatt, der die Spalten Name, E-Mail-Adresse und Registrierungscode enthält. Nun möchte ich eine Nachricht mit einer personalisierten Begrüßung und dem jeweiligen Registrierungscode an die separaten E-Mail-Adressen in Spalte A senden. Um dieses Problem zu lösen, könnten Ihnen die folgenden Methoden helfen.

Senden Sie personalisierte Massen-E-Mails aus einer Excel-Liste mit der Serienmail-Funktion

Senden Sie personalisierte Massen-E-Mails aus einer Excel-Liste mit VBA-Code

Senden Sie personalisierte Massen-E-Mails mit unterschiedlichen Anhängen mithilfe von Kutools für Excel

Senden Sie personalisierte Massen-E-Mails aus einer Excel-Liste mit der Serienmail-Funktion

Mit der Serienmail-Funktion von Word können Sie diese Aufgabe schnell und einfach erledigen. Bitte gehen Sie wie folgt Schritt für Schritt vor:

1. Öffnen Sie ein neues leeres Word-Dokument, und klicken Sie dann auf E-Mails > Empfänger auswählen > Vorhandene Liste verwenden, siehe Screenshot:

2. Wählen Sie im Fenster Datenquelle auswählen die Arbeitsmappe aus, die den Datenbereich enthält, den Sie verwenden möchten, und klicken Sie auf die Schaltfläche Öffnen, siehe Screenshot:

3. Wählen Sie im erscheinenden Dialogfeld Tabelle auswählen das Arbeitsblatt mit dem benötigten Datenbereich aus, und klicken Sie dann auf die Schaltfläche OK, siehe Screenshot:

4. Die Hauptdokument-E-Mail-Nachricht und Ihre Adressliste wurden nun verbunden. Jetzt können Sie den Text bearbeiten und Platzhalter hinzufügen, die anzeigen, wo die individuellen Informationen in jeder Nachricht erscheinen werden.

(1.) Um ihre individuelle Begrüßung einzufügen, klicken Sie auf E-Mails > Serienbrieffeld einfügen > Name. Der personalisierte Name wurde in die Nachricht eingefügt, und der Feldname wird von « » umgeben.

(2.) Fahren Sie fort, Ihre Nachricht zu tippen und fügen Sie den Registrierungscode an die Stelle ein, an der Sie ihn benötigen, siehe Screenshot:

5. Nachdem Sie die Nachricht verfasst haben, können Sie unter der Registerkarte E-Mails auf Vorschauergebnisse klicken, um die E-Mail-Nachrichten zu überprüfen und Änderungen vorzunehmen, bevor Sie den Versand abschließen.

6. Wenn Sie sicher sind, dass alles in Ordnung ist, können Sie die E-Mails an die einzelnen Empfänger senden. Klicken Sie dazu auf E-Mails > Fertigstellen & Zusammenführen > E-Mail-Nachricht senden, siehe Screenshot:

7. Im erscheinenden Dialogfeld „In E-Mail zusammenführen“ führen Sie die folgenden Schritte aus:

(1.) Wählen Sie aus der Dropdown-Liste Von die Spalte E-Mail_Adresse aus;

(2.) Geben Sie den Betreff in das Textfeld Betreffzeile ein;

(3.) Wählen Sie im Abschnitt Datensätze senden Alle aus.

8. Klicken Sie anschließend auf OK, und die E-Mails werden sofort an die separaten Empfänger mit ihren jeweiligen Registrierungscodes gesendet. Nach dem Versenden der E-Mails können Sie in Ihrem Outlook überprüfen, ob die E-Mails erfolgreich versendet wurden.

Senden Sie personalisierte Massen-E-Mails aus einer Excel-Liste mit VBA-Code

Abgesehen von der Serienmail-Funktion kann Ihnen auch der folgende VBA-Code helfen. Gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Senden Sie personalisierte Massen-E-Mails aus einer Excel-Liste:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Hinweisfenster wird angezeigt, das Sie auffordert, den zu verwendenden Datenbereich auszuwählen, siehe Screenshot:

4. Klicken Sie anschließend auf OK, und die E-Mails werden nacheinander an die separaten Adressen mit dem jeweiligen Registrierungscode gesendet. Nach dem Versenden der E-Mails können Sie in Ihrem Outlook überprüfen, ob die E-Mails erfolgreich versendet wurden.

Hinweis: Im obigen Code können Sie den Betreff oder den Nachrichtentext nach Bedarf ändern.

Senden Sie personalisierte Massen-E-Mails mit unterschiedlichen Anhängen mithilfe von Kutools für Excel

Wenn Sie Kutools für Excel haben, können Sie mit der Funktion Senden von E-Mails schnell personalisierte E-Mails an mehrere Empfänger mit unterschiedlichen Anhängen versenden.

Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:

1. Klicken Sie auf Kutools Plus > Senden von E-Mails, siehe Screenshot:

2. Wählen Sie im Dialogfeld E-Mails senden den zu verwendenden Datenbereich aus, und geben Sie dann die Empfängeradressen, Anhänge und den Betreff nach Bedarf an, siehe Screenshot:

3. Fügen Sie im Bearbeitungsfeld die individuellen Begrüßungsnamen ein. Wählen Sie Namen aus der Dropdown-Liste aus, und klicken Sie dann auf Platzhalter einfügen , um die Namen in die Nachricht einzufügen, siehe Screenshot:

4. Geben Sie dann den Nachrichtentext in das Feld ein, wie Sie es benötigen, siehe Screenshot:

5. Nachdem Sie den E-Mail-Text fertiggestellt haben, wählen Sie den gewünschten Sendemodus aus. Sie können entweder über Outlook oder Ihren angegebenen Server senden, siehe Screenshot:

Hinweis: Wenn Sie einen anderen Server verwenden möchten, klicken Sie auf SMTP-Einstellungen, um den Sendemodus auf Ihre eigenen Einstellungen festzulegen, siehe Screenshot:

6. Klicken Sie abschließend auf die Schaltfläche Senden, um die E-Mails zu versenden. Nach Abschluss des Vorgangs wird ein Hinweisfenster angezeigt, das Sie über den Sendestatus informiert, siehe Screenshot:

Klicken Sie hier, um Kutools für Excel jetzt herunterzuladen und kostenlos zu testen!

Demo: Senden Sie personalisierte Massen-E-Mails aus einer Excel-Liste über Outlook

Verwandter Artikel:

Wie sende ich E-Mails an mehrere Empfänger aus einer Liste über Outlook?