Jak odeslat e-mail ze seznamu aplikace Excel (2 efektivní způsoby)

Hugh West

02-10-2023 Pokročilý Excel
  • Sdílet Toto
Hugh West

Pokud potřebujete odeslat hromadný e-mail velké skupině lidí, budete potřebovat automatizovaný proces, který rychle zvládne opakující se úlohy. Vytvoření Excel soubor se seznamem e-mailů je nejběžnějším způsobem hromadného odesílání e-mailů. V tomto návodu si ukážeme, jak odeslat e-mail ze souboru Excel seznam automaticky velkému počtu osob.

Stáhnout cvičebnici

Stáhněte si tento cvičební sešit a procvičujte si při čtení tohoto článku.

Odeslat e-mail.xlsm

2 šikovné přístupy k odesílání e-mailů ze seznamu aplikace Excel

Na obrázku níže jsme přiložili soubor dat se jmény některých osob a jejich e-maily a registračními čísly. Z webu Excel musíme poslat e-maily jednotlivým osobám. K tomu použijeme následující příkaz Mail Merge aplikace Microsoft Word funkce , po kterém následuje VBA kód pro odesílání e-mailů preferovaným osobám ze stávajícího seznamu.

1. Použití funkce Mail Merge k odeslání více e-mailů ze seznamu aplikace Excel

⇒ Krok 1: Otevření nového souboru aplikace Word

  • Otevření prázdného Slovo dokument.
  • Klikněte na Zásilky tab.
  • Z Vybrat příjemce vyberte možnost Použití existujícího seznamu možnost.

⇒ Krok 2: Propojení seznamu aplikace Excel se souborem aplikace Word

  • Vyberte Excel kde jste vytvořili seznam, a klikněte na tlačítko Otevřít otevřít soubor.

  • Vyberte číslo listu, na kterém jste seznam zapsali.
  • Poté klikněte na tlačítko OK .

⇒ Krok 3: Vložení polí

  • Z Zásilky klikněte na možnost Vložení pole sloučení zadejte pole, která chcete vložit.
  • Nejprve vložte Název pole kliknutím na něj a v preferované pozici obecné pošty.

  • Jak je znázorněno na obrázku níže, po přidání položky Název se zobrazí jako proměnná jména každé osoby.

  • Podobně umístěte Reg kdekoli v textové zprávě.

  • Proto se zobrazí jako obrázek uvedený níže.

⇒ Krok 4: Zkontrolujte výsledky náhledu

  • Klikněte na Náhled výsledků zobrazit konečný náhled před odesláním e-mailu.
  • Níže uvedený obrázek obrazovky ukazuje, jak bude vypadat vzorový e-mail.

⇒ Krok 5: Sloučení e-mailů

  • Chcete-li e-maily sloučit, klikněte na tlačítko Dokončit & amp; Sloučit možnost.
  • Otevření Sloučení do e-mailu vyberte pole Odesílání e-mailových zpráv možnost.

  • V poli Komu vyberte E-mail možnost.
  • Do pole předmět napište požadovaný Řádek předmětu box.
  • Formát pošty bude následující HTML ve výchozím nastavení, takže jej nemusíte měnit.
  • V možnosti Odeslat záznamy klikněte na Všechny .
  • Nakonec klikněte na OK odesílat e-maily více příjemcům najednou.

  • Všechny e-maily budou následně odesílány prostřednictvím přidružených Outlook Zkontrolujte si Outlook možnost odesláno pro potvrzení, že e-maily byly odeslány.

  • Když otevřete odeslaný e-mail, všimnete si, že každé pole je vyplněno informacemi o konkrétní osobě.

Poznámky. Microsoft Outlook musí být vaší výchozí poštovní aplikací. Pokud používáte jinou poštovní aplikaci, nebudete moci tímto postupem odesílat e-maily.

Přečtěte si více: Jak automaticky odeslat e-mail při splnění podmínky v aplikaci Excel

Podobná čtení

  • Jak odeslat upravitelnou tabulku aplikace Excel e-mailem (3 rychlé metody)
  • [Řešeno]: Sdílení sešitu se nezobrazuje v aplikaci Excel (se snadnými kroky)
  • Automatické odesílání e-mailových upomínek z pracovního listu aplikace Excel pomocí VBA
  • Jak zjistit, kdo je ve sdíleném souboru aplikace Excel (v rychlých krocích)
  • Jak povolit sdílení sešitu v aplikaci Excel

2. Spuštění kódu VBA pro odesílání e-mailů z výběru rozsahu

S požehnáním VBA , můžete vytvořit program, který bude odesílat e-maily z Excel Seznam s preferovaným výběrem rozsahu. Při provádění úkolu postupujte podle níže uvedených kroků.

⇒ Krok 1: Vytvoření modulu

  • Otevření Makro VBA , stiskněte tlačítko Alt + F11 .
  • Klikněte na Vložte tab.
  • Vyberte Modul možnost vytvořit Modul .

⇒ Krok 2: Vložení kódů VBA

  • V novém Modul , vložte následující Kód VBA . 
 #If VBA7 And Win64 Then 'Ptr se používá ke změně pro operační 32 bit na 64 bit Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() 'Deklarujte proměnné DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next 'Výběr rozsahu vyberte adresu xSelectTxt = ActiveWindow.RangeSelection.Address 'Vytvořte vstupní pole pro výběr rozsahu Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , , 8) 'Použít podmínku If pro zadání čísel sloupců pro operaci If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Zobrazit výsledek v msg boxu pro nesplnění podmínky MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Použít smyčku For pro provedení operace v každém řádku zvlášť For k = 1 To xIntRg.Rows.Count' Shromážděte e-mailovou adresu a nastavte ji do proměnné xMailAdd = xIntRg.Cells(k, 2) ' Zadejte předmět e-mailu xRegCode = "Registrační číslo ExcelWIKI" ' Zadejte tělo e-mailu xBody = "" ' Vložte jména pomocí proměnné xIntRg xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & " Zde je vaše registrační číslo ExcelWIKI. " ' VložteRegistrační číslo s proměnnou xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Jsme opravdu rádi, že jste navštívili naše stránky, podporujte nás." & vbCrLf xBody = xBody & "ExcelWIKI Team" ' Definujte mezery pomocí (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Zadejte nahrazení návratů vozíku pomocí(hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Vytvořte URL Odkaz xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Použijte Odkaz pro zahájení odesílání e-mailů ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' třísekundový interval pro odesílání stisků kláves Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub

⇒ Krok 3: Spuštění programu

  • Tisk F5 ke spuštění programu.
  • Vyberte rozsah v zadávacím poli.
  • Klikněte na OK k odesílání e-mailů.

  • V důsledku toho se zobrazí náhledy odesílaných e-mailů, jak je znázorněno na obrázku níže.

  • Nakonec můžete zkontrolovat odeslané e-maily pro potvrzení.

Přečtěte si více: Jak odeslat e-mail při splnění podmínek v aplikaci Excel (3 snadné metody)

Závěr

Doufám, že vám tento článek přinesl návod, jak odesílat hromadné e-maily z aplikace Excel seznam. Všechny tyto postupy byste se měli naučit a aplikovat je na svůj soubor dat. Podívejte se na cvičný sešit a vyzkoušejte si tyto dovednosti. K další tvorbě podobných výukových programů nás motivuje vaše cenná podpora.

V případě jakýchkoli dotazů nás prosím kontaktujte. V níže uvedené části můžete také zanechat komentáře.

My, Exceldemy Tým vždy reaguje na vaše dotazy.

Zůstaňte s námi a učte se dál.

Předchozí příspěvek Jak přidat 30 dní k datu v aplikaci Excel (7 rychlých metod)
Další příspěvek Jak převést desetinný čas na hodiny a minuty v aplikaci Excel

Hugh West je velmi zkušený školitel a analytik Excelu s více než 10 lety zkušeností v oboru. Má bakalářský titul v oboru Účetnictví a finance a magisterský titul v oboru Business Administration. Hugh má vášeň pro výuku a vyvinul jedinečný přístup k výuce, který lze snadno sledovat a pochopit. Jeho odborné znalosti Excelu pomohly tisícům studentů a profesionálů po celém světě zlepšit své dovednosti a vyniknout ve své kariéře. Prostřednictvím svého blogu Hugh sdílí své znalosti se světem a nabízí bezplatné výukové programy Excelu a online školení, které jednotlivcům a firmám pomohou dosáhnout jejich plného potenciálu.