Keď používatelia posielajú e-maily svojim zákazníkom alebo šéfom, je dosť ťažké mať prehľad. V takom prípade sa hodí aplikácia Excel. Preto je potrebné "odoslať automatický e-mail z Excel na Výhľad" sa osvedčil ako časovo úsporný prístup. Makrá Excel VBA a HYPERLINK funkcia môže odosielať automatické e-maily alebo vytvoriť návrh pomocou položiek programu Excel.

Povedzme, že máme Reštrukturalizovaný plat zamestnanca údaje v programe Excel a chceme odoslať automatický e-mail pomocou Outlook .

V tomto článku demonštrujeme viacero variantov Makrá VBA a HYPERLINK funkcia na odosielanie automatických e-mailov z Excel na Outlook .

Stiahnite si zošit programu Excel

⧭ Otvorenie jazyka Microsoft Visual Basic a vloženie kódu do modulu

Predtým, ako pristúpite k demonštrácii akýchkoľvek metód, je potrebné poznať spôsoby otvorenia a vloženia Modul v Microsoft Visual Basic v programe Excel.

🔄 Otvorenie Microsoft Visual Basic: Existujú najmä 3 spôsoby otvorenia Microsoft Visual Basic okno.

1. Používanie klávesových skratiek: Tlač ALT+F11 celkovo otvoriť Microsoft Visual Basic okno.

2. Používanie karty Vývojár: V hárku programu Excel prejdite na položku Karta Vývojár > Vyberte Visual Basic . Microsoft Visual Basic sa zobrazí okno.

3. Pomocou karty Pracovný hárok: Prejdite na ľubovoľný pracovný hárok, Kliknutie pravým tlačidlom myši na ňom> Vyberte si Zobraziť kód (z Kontext Ponuka ).

🔄 Vloženie modulu v Microsoft Visual Basic: Existujú 2 spôsoby vloženia Modul na stránke Microsoft Visual Basic okno,

1. Používanie možností hárku: Po otvorení Microsoft Visual Basic vyberte okno Pracovný list > Kliknutie pravým tlačidlom myši na ňom> Vyberte Vložte (z Kontextové menu )> potom vyberte Modul .

2. Používanie panela nástrojov: Môžete to urobiť aj výberom Vložte (z Panel nástrojov )> potom výber Modul .

4 jednoduché spôsoby odosielania automatických e-mailov z programu Excel do aplikácie Outlook

Metóda 1: Použitie makra VBA na automatické odosielanie e-mailov pomocou aplikácie Outlook vybraným príjemcom

Chceme vytvoriť spustenie makra Tlačidlo pomocou ktorého môžeme jednoducho odoslať poštu vybraným príjemcom jediným kliknutím.

Krok 1: Prejdite na Vložte karta> Tvary > Vyberte niektorý z ponúkaných tvarov (napr., Obdĺžnikový tvar: zaoblené rohy ).

Krok 2: Potiahnite Ikona Plus kamkoľvek chcete vložiť Tvar ako je znázornené na obrázku nižšie.

Krok 3: Vyberte si preferovanú Tvarová výplň a Náčrt Farba potom naň kliknite pravým tlačidlom myši. Kliknite na Upraviť text na vloženie textu.

Krok 4: Použite inštrukcie otvoriť Microsoft Visual Basic a vložte Modul . Vložte nasledujúce 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žiť .Send End With Next r End Sub 

➤ v kóde,

1 - začať makro procedúru deklarovaním premenných ako Objekt a String .

2 - spustiť VBA PRE slučka pre každý riadok vo výbere na priradenie e-mailu Odoslať na , Predmet a Telo pomocou riadkových záznamov.

3 - priradiť premenné.

4 - vykonať VBA s príkaz na vyplnenie Outlook položky ako napr. Odoslať na , Predmet pošty , atď. Tu makro vykoná iba Zobrazenie príkaz na vyvolanie Outlook s návrhom e-mailu. Ak však Odoslať sa používa namiesto alebo po príkaze Zobrazenie, Outlook odošle vytvorený e-mail vybraným príjemcom.

5 - dokončiť VBA PRE slučka.

Krok 5: Vráťte sa na pracovný hárok. Kliknite pravým tlačidlom myši na Tvar potom vyberte Priradenie makra z Kontextová ponuka možnosti.

Krok 6: Vyberte makro (t. j, ExcelToOutlookSR ) pod Názov makra a vyberte Makro v možnosť ako Tento pracovný zošit . Kliknite na OK .

Krok 7: Teraz v pracovnom hárku vyberte jedného alebo viacerých zamestnancov a potom kliknite na Tlačidlo tvaru .

Krok 8: Výzvy programu Excel Outlook na obed a vytvorí alebo odošle e-maily vybraným zamestnancom. Keď vyberiete dvoch zamestnancov, Outlook vygeneruje dva rôzne návrhy e-mailov pripravené na odoslanie.

Keďže makro poskytuje iba Zobrazenie príkaz, Outlook len zobrazí návrh e-mailu bez jeho odoslania. Odoslať príkaz na automatické odosielanie e-mailov z Excel na Outlook pomocou položiek v bunkách.

Prečítajte si viac: Makro programu Excel na automatické odosielanie e-mailov (3 vhodné príklady)

Metóda 2: Automatické odosielanie e-mailov z programu Excel do aplikácie Outlook v závislosti od konkrétnej hodnoty bunky

Čo ak chceme odoslať automatický e-mail po dosiahnutí cieľov z Excel na Outlook ? Túto úlohu môže ľahko vykonať makrokód.

Predpokladajme, že máme Štvrťročné údaje o predaji ako je znázornené nižšie, po dosiahnutí cieľa (t. j, Predaj> 2000 ) sa automaticky zobrazí výzva Outlook odoslať e-mail z aplikácie Excel na priradené e-mailové ID.

Krok 1: Zadajte nasledujúci makrokód do ľubovoľné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 = "Pozdravujem vás, pane" & vbNewLine & vbNewLine & _ "Naša predajňa má štvrťročne viac tržieb ako cieľ." & vbNewLine & _ "Je to potvrdzujúci mail." & vbNewLine & vbNewLine & _ "S pozdravom" & vbNewLine & _ "Výdajný tím" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Notification on Achieving Sales Target" .Body = mMailBody .Display 'alebo môžete použiť .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Z vyššie uvedeného obrázka, v častiach,

1 - priradiť bunku (t. j, F17 ) v rámci rozsahu na vykonanie VBA IF Ak je výsledkom príkazu Pravda , makro zavolá na vykonanie iné makro.

2 - deklarovať typy premenných a priradiť ich na vyplnenie Outlook 's položky.

3 - vykonávať VBA s na priradenie premenných k položkám e-mailu. Použite príkaz Odoslať namiesto príkazu Zobrazenie v prípade, že chcete priamo odoslať e-maily bez ich kontroly. E-mail príjemcu sa vloží v rámci makra. V prípade, že chcete automaticky vložiť e-mailové ID príjemcu, použite alternatívne metódy.

4 - vymazať určité premenné z priradenia.

Krok 2: Použite F5 spustiť makro. Za chvíľu Excel načíta Outlook s automaticky vytvoreným návrhom e-mailu, ako je znázornené na nasledujúcich obrázkoch. Môžete kliknúť na Odoslať alebo automatické odosielanie pomocou Odoslať príkaz v makre.

Prečítajte si viac: Automatické odosielanie e-mailov z programu Excel na základe obsahu buniek (2 metódy)

Podobné čítania

• Ako zistiť, kto je v zdieľanom súbore Excel (s rýchlymi krokmi)
• Povolenie zdieľania zošita v programe Excel
• Ako zdieľať súbor programu Excel pre viacerých používateľov
• Ako použiť makro na odoslanie e-mailu z aplikácie Excel s prílohou

Metóda 3: Použitie makra VBA na odoslanie e-mailu s aktívnym pracovným hárkom z aplikácie Outlook

Prípadne sa môžu vyskytnúť prípady, keď potrebujeme poslať celý Aktívny hárok na pridelenú e-mailovú adresu. V takom prípade môžeme použiť Vlastná funkcia VBA ktoré sa majú volať v rámci makra.

Krok 1: Vložte nižšie 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 'alebo môžete použiť .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 = "Údaje o štvrťročnom predaji" mBd = "Pozdravujem vás, pane" & vbNewLine & vbNewLine & _ "V prílohe tohto mailu nájdete údaje o štvrťročnom predaji Outletu." & vbNewLine & _ "Je to notifikačný mail." & vbNewLine & _ "S pozdravom" &vbNewLine & _ "Výstupný tím" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Úspešne vytvorený návrh pošty alebo odoslaný" End If End Sub 

➤ Z vyššie uvedeného obrázka, časti kódu,

1 - deklarovať a nastaviť premenné.

2 - priradiť príkazy pomocou VBA s výpis. Použite Zobrazenie alebo Odoslať príkaz na preskúmanie alebo priame odoslanie e-mailov.

3 - vymazať predtým nastavené premenné.

4 - priradiť VBA s príkazy s textami.

5 - vykonať Vlastná funkcia VBA .

Krok 2: Ak chcete vykonať makro, stlačte tlačidlo F5 , a Excel okamžite zobrazí Outlook s návrhom e-mailu na kontrolu podobne ako na obrázku nižšie. Potom ho môžete odoslať.

Prečítajte si viac: Ako odoslať hromadný e-mail z programu Outlook pomocou aplikácie Excel (3 spôsoby)

Metóda 4: Automatické odosielanie e-mailov z programu Excel do programu Outlook pomocou funkcie HYPERLINK

Stránka HYPERLINK funkcia generuje klikateľný odkaz v bunkách Excelu, aby sa Outlook ako prostriedok na odosielanie automatických e-mailov z aplikácie Excel.

Krok 1: Do bunky zadajte nasledujúci vzorec H5 .

Stránka HYPERLINK funkcia preberá "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 ako link_location a "Kliknite sem" ako friendly_name .

Krok 2: Hit VSTÚPIŤ a vložte odkaz. Potom kliknite na odkaz.

Krok 3: Aplikácia Excel vás prenesie do Outlook A vidíte všetky Outlook položky sú vyplnené priradenými údajmi z programu Excel. Kliknite na Odoslať .

Krok 4: Potiahnite Rukoväť náplne použiť vzorec na iné bunky.

Prečítajte si viac: Ako automaticky odoslať e-mail pri splnení podmienky v programe Excel

Záver

Varianty makier VBA a HYPERLINK Funkcia môže byť užitočná pri odosielaní automatických e-mailov z programu Excel do programu Outlook. Dúfam, že v rámci vyššie popísaných metód nájdete svoju preferovanú metódu. Ak máte ďalšie otázky alebo chcete niečo dodať, vyjadrite sa.