Jak odeslat osobní hromadné e-maily do seznamu z aplikace Excel prostřednictvím aplikace Outlook?

Například mám následující rozsah dat v listu, který obsahuje sloupce Jméno, E-mailová adresa, Registrační kód a nyní chci poslat zprávu s osobním pozdravem a vlastním Registračním kódem na oddělené e-mailové adresy ve sloupci A. Při řešení tohoto problému vám mohou pomoci následující metody.

Posílejte hromadné e-maily přizpůsobené do seznamu z aplikace Excel s funkcí hromadné korespondence

Posílejte personalizované hromadné e-maily do seznamu z aplikace Excel s kódem VBA

Posílejte personalizované hromadné e-maily do seznamu s různými přílohami pomocí Kutools pro Excel

Posílejte hromadné e-maily přizpůsobené do seznamu z aplikace Excel s funkcí hromadné korespondence

Se Slovem Hromadná korespondence funkce, můžete tuto úlohu dokončit rychle a snadno, proveďte prosím následující krok za krokem:

1. Spusťte nový prázdný dokument aplikace Word a poté klikněte na Korespondence > Vyberte příjemce > Použijte stávající seznam, viz screenshot:

2. V Vyberte zdroj dat v okně vyberte sešit obsahující rozsah dat, který chcete použít, a klikněte na Otevřená tlačítko, viz screenshot:

3. V příštích Vyberte tabulku V dialogovém okně vyberte list s požadovaným rozsahem dat a klikněte na OK tlačítko, viz screenshot:

4. A hlavní dokument e-mailové zprávy a váš seznam adres byly propojeny, nyní můžete upravit textovou zprávu a přidat zástupné symboly, které označují, kde se v každé zprávě objeví jedinečné informace.

(1.) Chcete-li vložit jejich individuální název pozdravu, klikněte na Korespondence > Vložit sloučení sloupce > Příjmení, bylo do zprávy vloženo přizpůsobené jméno a název pole je ohraničen «».

(2.) Pokračujte v psaní zprávy a vložte Registrační kód na místo, kde potřebujete, viz screenshot:

5. Po napsání zprávy můžete kliknout Náhled výsledků pod Mailing záložka pro náhled e-mailových zpráv a provedení změn před skutečným dokončením sloučení.

6. Poté, co se ujistíte, že nedochází k žádným problémům, můžete odeslat e-maily samostatným příjemcům, klikněte prosím Korespondence > Dokončit a sloučit > Odeslat e-mailovou zprávu, viz screenshot:

7. Pak vyskočil Sloučit do e-mailu dialogové okno, proveďte následující operace:

(1.) Z Na rozevírací seznam, prosím vyberte Emailová adresa sloupec;

(2.) Předmět můžete zadat do Předmět řádkové textové pole;

(3.) Z Odesílejte záznamy vyberte část Vše .

8. A pak klikněte na tlačítko OK, e-maily se odesílají odděleně příjemcům s vlastním registračním kódem najednou, po odeslání e-mailů můžete přejít do svého Outlooku a ověřit, zda byly e-maily úspěšně odeslány.

Posílejte personalizované hromadné e-maily do seznamu z aplikace Excel s kódem VBA

Kromě funkce hromadné korespondence vám následující kód VBA může poskytnout laskavost, udělejte to takto:

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Odesílejte personalizované hromadné e-maily do seznamu z aplikace Excel:

#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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene výběr rozsahu dat, který chcete použít, viz screenshot:

4. A pak klikněte na tlačítko OK tlačítko, e-maily budou odesílány na samostatné adresy s jejich individuálním registračním kódem jeden po druhém, po odeslání e-mailů můžete přejít do svého Outlooku a ověřit, zda byly e-maily úspěšně odeslány.

Pozor: Ve výše uvedeném kódu můžete změnit předmět nebo tělo zprávy podle svých potřeb.

Posílejte personalizované hromadné e-maily do seznamu s různými přílohami pomocí Kutools pro Excel

Pokud máte Kutools pro Excel, S jeho Odeslat e-maily Díky této funkci můžete rychle posílat osobní e-maily více příjemcům s různými přílohami, jak potřebujete.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools Plus > Odeslat e-maily, viz screenshot:

2. V Odeslat emiály V dialogovém okně vyberte rozsah dat, který chcete použít, a poté podle potřeby zadejte adresy příjemců, přílohy a předmět, viz screenshot:

3. Do editačního pole vložte jednotlivé názvy pozdravů, prosím vyberte Příjmení z rozevíracího seznamu a potom klikněte na Vložte zástupný symbol pro vložení jmen do zprávy, viz screenshot:

4. Poté zadejte text zprávy do pole podle potřeby, viz screenshot:

5. Po dokončení těla e-mailu vyberte požadovaný režim odesílání, který můžete odesílat pomocí aplikace Outlook nebo zadaného serveru, viz screesnhot:

Pozor: Pokud chcete použít jiný server, klikněte na Nastavení odchozího serveru Chcete-li nastavit vlastní režim odesílání, viz screesnhot:

6. Konečně klikněte na tlačítko Odeslat tlačítko pro odeslání e-mailů, po dokončení se zobrazí okno s výzvou, které vám připomene stav odesílání. viz screesnhot:

Klikněte na Stáhnout a vyzkoušejte zdarma Kutools pro Excel hned!

Demo: Odesílejte personalizované hromadné e-maily do seznamu z aplikace Excel prostřednictvím aplikace Outlook

Související článek:

Jak odeslat e-mail více příjemcům v seznamu z aplikace Excel prostřednictvím aplikace Outlook?