Note: The other languages of the website are Google-translated. Back to English

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.

doc posílat osobní e-maily 1

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


šipka modrá pravá bublina 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:

doc posílat osobní e-maily 2

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

doc posílat osobní e-maily 3

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:

doc posílat osobní e-maily 4

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 > Jméno a Příjmení, bylo do zprávy vloženo přizpůsobené jméno a název pole je ohraničen «».

doc posílat osobní e-maily 5

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

doc posílat osobní e-maily 6

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:

doc posílat osobní e-maily 7

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.

doc posílat osobní e-maily 8

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!

doc posílat osobní e-maily 18 1


šipka modrá pravá bublina 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:

doc posílat osobní e-maily 9

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.


šipka modrá pravá bublina 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:

doc posílat osobní e-maily 9

3. Do editačního pole vložte jednotlivé názvy pozdravů, prosím vyberte Jméno a 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:

doc posílat osobní e-maily 9

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

doc posílat osobní e-maily 9

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:

doc posílat osobní e-maily 9

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:

doc posílat osobní e-maily 9

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:

doc posílat osobní e-maily 9

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

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Související článek:

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


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (47)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Tento kód fungoval velmi dobře, děkujeme za něj. Ale mám jen malé problémy, snažím se změnit kód tak, aby předem určil buňky, které chci přijímat e-maily a odesílat je, protože jsem vytvořil svůj excelový soubor. Chtěl bych přepnout výběrové pole pro určené pole buněk. Příklad: opravit všechna moje data budou mezi A2:C6, takže když spustím makro, nemusím je znovu vybírat. Mnohokrát děkuji za vše, co jste vysvětlili výše
Tento komentář byl moderátorem webu minimalizován
Můžete upravit kód pro připojení více souborů k e-mailu? Byla by to skvělá pomoc. Díky předem.
Tento komentář byl moderátorem webu minimalizován
je možné přidat kód tak, aby natáhl i můj normální e-mailový podpis? také při výběru mého rozsahu e-mailu mám svou excelovou tabulku filtrovanou, ale když spustím makro, stále stahuje i skryté řádky.
Tento komentář byl moderátorem webu minimalizován
O tom bych také rád věděl!
Tento komentář byl moderátorem webu minimalizován
jak přidat cc do výše uvedeného kódu
Tento komentář byl moderátorem webu minimalizován
Skvělá cesta

Jen se tě musím zeptat na možnost pokaždé změnit předmět na základě emailu??
Tento komentář byl moderátorem webu minimalizován
Ahoj Azizi,
Když použijete Kutools pro Excel, může vám pomoci vložit předměty na základě hodnot buněk, stačí vybrat záhlaví sloupce předmětu v dialogovém okně, jak je znázorněno na následujícím obrázku:

Zkuste to, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Ahoj Skyyang,

Zkoušel jsem a snažím se dostat svůj e-mailový podpis, ale prostě se mi to nedaří! Máte nějaký kód, který mohu přidat, aby se to stalo?
Tento komentář byl moderátorem webu minimalizován
Toto je šílený příspěvek, tento je falešný a tomuto obsahu nevěřte
Tento komentář byl moderátorem webu minimalizován
Ahoj kamaráde,
to je fantastické, potřebuji pomoc, potřebuji pokaždé připojit jiný soubor PDF k jinému e-mailu.
může mi někdo pomoct?
Tento komentář byl moderátorem webu minimalizován
ahoj Skyyang,
Potřebuji ke každému mailu připojit jiný soubor pdf. můžete prosím pomoci??
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Arvinde,
Kutools vám může pomoci přidat více různých příloh při odesílání e-mailů.
Nejprve byste měli vložit cestu příloh do buněk a poté použít Kutools, podívejte se na následující snímek obrazovky:
Doufám, že vám to pomůže, děkuji!
Tento komentář byl moderátorem webu minimalizován
ahoj Skyyang,
Použil jsem váš níže uvedený kód k odeslání pošty a funguje perfektně, můžete mi s něčím pomoci upravit kód pro odesílání příloh PDF.
Potřebuji odeslat více než 100 e-mailů, takže je obtížné pokaždé připojit soubor. funguje Kutools podle dané cesty a automaticky odesílá poštu?
Tento komentář byl moderátorem webu minimalizován
Ahoj,
můžete mi pomoci s funkcí attachment.add? s vaším výše uvedeným kódem VBA musím poslat přílohu.
nemůžu používat Kutools :(
Tento komentář byl moderátorem webu minimalizován
jak v tom cc lidi?
Tento komentář byl moderátorem webu minimalizován
co když mám data pro mnoho zákazníků a někteří zákazníci mají více než 1 data... a nechci zákazníkům posílat samostatné e-maily, ale možná je poslat v tabulkovém formátu v e-mailu. Jak mohu poslat zákazníkovi pouze 1 e-mail.
Tento komentář byl moderátorem webu minimalizován
Ahoj Stevene, našel jsi způsob, jak to udělat? Pomůžeme vám s jednoduchým online webovým portálem
Tento komentář byl moderátorem webu minimalizován
Ahoj, vyřešil jsi to?
Tento komentář byl moderátorem webu minimalizován
Chci vědět, jak to udělat. Můžeš mi říct?
Tento komentář byl moderátorem webu minimalizován
Díky!!

Ale snažím se udělat test a nic neposílám na e-mail. Také žádná chybová zpráva.. Mohu vědět, co se stalo?
Tento komentář byl moderátorem webu minimalizován
Mám seznam e-mailových adres v excelu, na které potřebuji posílat e-maily Předmět a tělo jsou v buňkách kromě e-mailové adresy a mám skript níže, ale potřebuji odeslat 100 e-mailů za 1 hodinu, jak mohu potěšit vaši podporu

Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set Mail_Object = CreateObject("Outlook.Application")
Pro i = 2 až lr
S Mail_Object.CreateItem(o)
.Předmět = Rozsah("B" & i).Hodnota
.Do = Rozsah("A" & i).Hodnota

.Tělo = Rozsah("C" & i).Hodnota
.přílohy.Přidat (Sheets("List1").Range("H" & i).Text)
.přílohy.Přidat (Sheets("List1").Range("I" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
.Poslat

'.display 'zakázat zobrazení a povolit odesílání automaticky
Konec s
Příště já
MsgBox "E-mail úspěšně odeslán", 64
Application.DisplayAlerts = False
Nastavit Mail_Object = nic
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, hiba,
Naše Kutools pro odesílání e-mailů aplikace Excel vám mohou pomoci vyřešit váš problém. Nastavte podmínky podle následujícího obrázku obrazovky:
Pomocí této funkce můžete také použít funkce CC, BCC a můžete také vložit více příloh.
Tento komentář byl moderátorem webu minimalizován
Ahoj admin


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
Tento komentář byl moderátorem webu minimalizován
Z nějakého důvodu má tento kód tam, kde posílá každý další e-mail v seznamu. Je nějaký důvod, proč to nepošle každý? Přímo jsem zkopíroval kód, který byl výše, a nic jsem nezměnil
Tento komentář byl moderátorem webu minimalizován
Kód VBA funguje dobře, díky, ale jak přidat kopii? Zkusil jsem a neuspěl...
Tento komentář byl moderátorem webu minimalizován
Kód VBA funguje dobře, díky, ale jak přidat kopii? Zkoušel jsem s:


Dim xCc jako řetězec
pak
xCc = xRg.Cells(i, 9) (adresa je v 9. sloupci)


a nepodařilo se...
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Jean,

Chcete-li vyřešit svůj problém, použijte níže uvedený kód: (Poznámka: Do sloupce C byste měli přidat sloupec CC)

#If VBA7 a Win64 Pak
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
#Jiný
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()
Dim xEmail jako řetězec
Dim xSubj jako řetězec
Dim xMsg jako řetězec
Dim xURL jako řetězec
Dim i As Integer
Dim k As Double
Dim xCell As Range
Dim xRg jako rozsah
Dim xTxt As String
Dim xCC jako řetězec
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Vyberte rozsah dat:", "Kutools pro Excel", xTxt, , , , , 8)
Pokud xRg není nic, pak Exit Sub
If xRg.Columns.Count <> 4 Then
MsgBox "Chyba regionálního formátu, prosím zkontrolujte", , "Kutools pro Excel"
Konec Sub
End If
Pro i = 1 To xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "Váš registrační kód"
xMsg = ""
xMsg = xMsg & "Vážený" & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & "Toto je váš registrační kód"
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & " prosím vyzkoušejte to a jsme rádi za vaši zpětnou vazbu!" & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
další
End Sub
Tento komentář byl moderátorem webu minimalizován
Použil jsem výše uvedený kód VBA v části „Odeslat personalizované hromadné e-maily do seznamu z aplikace Excel s kódem VBA“. Chtěl jsem vědět, jestli mohu poslat e-mail určitým jednotlivcům, kteří potřebují upozornit na základě Excelu, s tím, že mám posílat upomínky těm, kteří mají nadcházející smlouvy, jejichž platnost končí? Nemohu přimět Excel, aby rozeslal e-maily, a vím, že je to kvůli samotnému kódu. Může mi prosím někdo pomoci vyřešit tento problém?
Tento komentář byl moderátorem webu minimalizován
Chci poslat e-maily s jedinečným předmětem, jak to mohu udělat s tímto VBA?
Tento komentář byl moderátorem webu minimalizován
Zdravím všechny!

Mám seznam e-mailů na jednom listu a koncept e-mailu na druhém.
Potřebuji kód k automatickému odeslání konceptu e-mailu z listu 2 každému 5 členům v seznamu uvedeném na listu 1.
Jakmile bude odesláno prvních 5, měl by je kód označit jako „Odesláno“ v novém vyhrazeném sloupci a poté počkat 60 sekund, než odešlete dalších 5 e-mailů.
Kód by měl běžet až do konce celého seznamu.

Kód může používat aplikaci outlook k odesílání e-mailů z výchozího profilu v aplikaci outlook.

Prosím, pomozte.

Pokud budete potřebovat další vysvětlení, dejte mi vědět
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění