Když uživatelé posílají e-maily svým zákazníkům nebo šéfům, je poměrně těžké mít o tom přehled. V takovém případě se hodí aplikace Excel. Proto je třeba "odeslat automatický e-mail z". Excel na Výhled" se osvědčil jako časově úsporný přístup. Makra Excel VBA a HYPERLINK funkce může odesílat automatické e-maily nebo vytvářet návrhy pomocí položek aplikace Excel.

Řekněme, že máme Restrukturalizovaný plat zaměstnance data v Excelu a chceme odeslat automatický e-mail pomocí Outlook .

V tomto článku demonstrujeme několik variant Makra VBA a HYPERLINK funkce pro automatické odesílání e-mailů z Excel na Outlook .

Stáhnout sešit aplikace Excel

⧭ Otevření jazyka Microsoft Visual Basic a vložení kódu do modulu

Než přistoupíme k demonstraci jakýchkoli metod, je nutné znát způsoby otevření a vložení souboru. Modul v Microsoft Visual Basic v aplikaci Excel.

🔄 Otevření Microsoft Visual Basic: Existují především 3 způsoby otevření Microsoft Visual Basic okno.

1. Použití klávesových zkratek: Tisk ALT+F11 celkem otevřít Microsoft Visual Basic okno.

2. Použití karty Vývojář: V pracovním listu aplikace Excel přejděte na Karta Vývojář > Vyberte Visual Basic . Microsoft Visual Basic zobrazí se okno.

3. Pomocí karty Pracovní list: Přejděte na libovolný pracovní list, Kliknutí pravým tlačítkem myši na něm> Vyberte si Zobrazit kód (z Kontext Nabídka ).

🔄 Vložení modulu v jazyce Microsoft Visual Basic: Existují 2 způsoby vložení Modul na adrese Microsoft Visual Basic okno,

1. Použití možností listu: Po otevření Microsoft Visual Basic vyberte okno Pracovní list > Kliknutí pravým tlačítkem myši na něm> Vyberte Vložte (z Kontextová nabídka )> pak zvolte Modul .

2. Použití panelu nástrojů: Můžete to také provést výběrem Vložte (z Panel nástrojů )> pak volba Modul .

4 snadné způsoby odesílání automatických e-mailů z aplikace Excel do aplikace Outlook

Metoda 1: Použití makra VBA pro automatické odesílání e-mailů pomocí aplikace Outlook vybraným příjemcům

Chceme vytvořit spuštění makra Tlačítko pomocí kterého můžeme jednoduše odeslat poštu vybraným příjemcům pouhým kliknutím.

Krok 1: Přejděte na Vložte karta> Tvary > Vyberte některý z nabízených tvarů (např., Obdélníkový tvar: zaoblené rohy ).

Krok 2: Přetáhněte Ikona Plus kamkoli chcete vložit Tvar jak je znázorněno na obrázku níže.

Krok 3: Vyberte si preferovaný Tvarová výplň a Náčrt Barva pak na něj klikněte pravým tlačítkem myši. Klikněte na Upravit text pro vložení textu.

Krok 4: Použijte instrukce otevřít Microsoft Visual Basic a vložte Modul . Vložte následující makro do Modul .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' Můžete použít .Send End With Next r End Sub 

➤ v kódu,

1 - začít makro proceduru deklarací proměnných jako Objekt a Řetězec .

2 - spustit VBA PRO smyčka pro každý řádek ve výběru k přiřazení e-mailu Odeslat na , Předmět a Tělo pomocí řádkových záznamů.

3 - přiřadit proměnné.

4 - provést VBA s příkaz k vyplnění Outlook položky jako např. Odeslat na , Předmět pošty , atd. Zde makro provede pouze příkaz Zobrazit příkaz k vyvolání Outlook s návrhem e-mailu. Pokud však Odeslat se používá místo nebo po příkazu Zobrazení, Outlook odešle vytvořený e-mail vybraným příjemcům.

5 - dokončit VBA PRO smyčka.

Krok 5: Vraťte se na pracovní list. Klikněte pravým tlačítkem myši na položku Tvar pak vyberte Přiřazení makra z Kontextová nabídka možnosti.

Krok 6: Vyberte makro (tj, ExcelToOutlookSR ) v rámci Název makra a vyberte Makro v možnost jako Tento pracovní sešit . Klikněte na OK .

Krok 7: Nyní v pracovním listu vyberte jednoho nebo více zaměstnanců a klikněte na tlačítko Tlačítko tvaru .

Krok 8: Výzvy aplikace Excel Outlook na oběd a vytvoří nebo odešle e-maily vybraným zaměstnancům. Jakmile vyberete dva ze zaměstnanců, Outlook vygeneruje dva různé návrhy e-mailů připravené k odeslání.

Protože makro poskytuje pouze Zobrazit příkaz, Outlook pouze zobrazí návrh e-mailu, aniž by jej odeslal. Použijte příkaz Odeslat příkaz pro automatické odesílání e-mailů z Excel na Outlook pomocí záznamů v buňkách.

Přečtěte si více: Makro aplikace Excel pro automatické odesílání e-mailů (3 vhodné příklady)

Metoda 2: Automatické odesílání e-mailů z aplikace Excel do aplikace Outlook v závislosti na konkrétní hodnotě buňky

Co když chceme odeslat automatický e-mail po dosažení cílů z Excel na Outlook ? Tuto úlohu snadno zvládne makrokód.

Předpokládejme, že máme Čtvrtletní údaje o prodeji jak je znázorněno níže, po dosažení cíle (tj, Prodej> 2000 ) se automaticky zobrazí výzva Outlook odeslat e-mail z aplikace Excel na přiřazené e-mailové ID.

Krok 1: Zadejte následující makrokód do libovolného Modul .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If End Sub Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Zdravím vás, pane" & vbNewLine & vbNewLine & _ "Naše prodejna má čtvrtletní tržby vyšší než cíl." & vbNewLine & _ "Je to potvrzovací mail." & vbNewLine & vbNewLine & _ "S pozdravem" & vbNewLine & _ "Tým prodejny" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Oznámení o dosažení prodejního cíle" .Body = mMailBody .Display 'nebo můžete použít .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Z výše uvedeného obrázku, v sekcích,

1 - přiřadit buňku (tj, F17 ) v rámci rozsahu pro provedení VBA IF Pokud je výsledkem příkazu Pravda , makro zavolá k provedení jiné makro.

2 - deklarovat typy proměnných a přiřadit je k vyplnění. Outlook .............................

3 - provádět VBA s k přiřazení proměnných k e-mailovým položkám. Použijte příkaz Odeslat místo příkazu Zobrazit v případě, že chcete přímo odesílat e-maily bez jejich kontroly. E-mail příjemce je vložen v rámci makra. V případě, že chcete automaticky vložit e-mailové ID příjemce, použijte alternativní metody.

4 - vymazat určité proměnné z přiřazení.

Krok 2: Použijte F5 spustit makro. Za chvíli Excel načte makra. Outlook s automaticky vytvořeným návrhem e-mailu, jak je znázorněno na následujících obrázcích. Můžete kliknout na tlačítko Odeslat nebo automatické odesílání pomocí Odeslat v makru.

Přečtěte si více: Automatické odesílání e-mailů z aplikace Excel na základě obsahu buněk (2 metody)

Podobná čtení

• Jak zjistit, kdo je ve sdíleném souboru aplikace Excel (v rychlých krocích)
• Povolení sdílení sešitu v aplikaci Excel
• Jak sdílet soubor aplikace Excel pro více uživatelů
• Jak použít makro pro odeslání e-mailu z aplikace Excel s přílohou

Metoda 3: Použití makra VBA k odeslání e-mailu s aktivním pracovním listem z aplikace Excel pomocí aplikace Outlook

Případně se mohou vyskytnout případy, kdy potřebujeme odeslat celý Aktivní list na přidělenou e-mailovou adresu. V takovém případě můžeme použít Vlastní funkce VBA které se mají volat v rámci makra.

Krok 1: Vložte níže uvedené makro do Modul .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean On Error Resume Next Dim mApp As Object Dim rItem As Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'nebo můžete použít .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Čtvrtletní údaje o prodeji" mBd = "Zdravím vás, pane" & vbNewLine & vbNewLine & _ "V příloze tohoto mailu naleznete čtvrtletní údaje o prodeji společnosti Outlet." & vbNewLine & _ "Je to oznamovací mail." & vbNewLine & _ "S pozdravem" &vbNewLine & _ "Výstupní tým" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Úspěšně vytvořen koncept pošty nebo odesláno" End If End Sub 

➤ Z výše uvedeného obrázku vyplývá, že části kódu,

1 - deklarovat a nastavit proměnné.

2 - přiřadit příkazy pomocí VBA s výpis. Použijte Zobrazit nebo Odeslat příkaz pro prohlížení nebo přímé odesílání e-mailů.

3 - vymazat dříve nastavené proměnné.

4 - přiřadit VBA s příkazy s texty.

5 - provést Vlastní funkce VBA .

Krok 2: Chcete-li makro spustit, stiskněte tlačítko F5 , a Excel okamžitě zobrazí Outlook s návrhem e-mailu ke kontrole podobně jako na obrázku níže. Poté jej můžete odeslat.

Přečtěte si více: Jak odeslat hromadný e-mail z aplikace Outlook pomocí aplikace Excel (3 způsoby)

Metoda 4: Automatické odesílání e-mailů z aplikace Excel do aplikace Outlook pomocí funkce HYPERLINK

Na stránkách HYPERLINK generuje v buňkách Excelu odkaz, na který lze kliknout, a přivádí tak k Outlook jako prostředek pro odesílání automatických e-mailů z aplikace Excel.

Krok 1: Do buňky zadejte následující vzorec H5 .

Na stránkách HYPERLINK funkce přebírá "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 jako link_location a "Klikněte zde" jako friendly_name .

Krok 2: Hit ENTER a vložte odkaz. Poté na odkaz klikněte.

Krok 3: Aplikace Excel vás přenese do Outlook A vidíte všechny Outlook položky jsou vyplněny přiřazenými daty z aplikace Excel. Klikněte na tlačítko Odeslat .

Krok 4: Přetáhněte Plnicí rukojeť použít vzorec na další buňky.

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

Závěr

Varianty maker VBA a HYPERLINK Funkce může být užitečná při odesílání automatických e-mailů z aplikace Excel do aplikace Outlook. Doufám, že v rámci výše popsaných metod najdete tu, kterou preferujete. Pokud máte další dotazy nebo chcete něco dodat, napište komentář.