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 Zobrazit 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 osobní e-maily více příjemcům s různými přílohami:
S Kutools pro Excel's Odeslat e-maily Díky této funkci můžete rychle odesílat osobní e-maily více příjemcům s různými přílohami z aplikace Excel prostřednictvím aplikace Outlook podle potřeby. Současně můžete zprávy CCC nebo Bcc posílat také konkrétní osobě. Stáhněte si zdarma zkušební verzi Kutools pro Excel!
|
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.
Poznámka: 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.
| Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
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:
Poznámka: 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 Poslat 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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
