Ko uporabniki pošiljajo e-poštna sporočila svojim strankam ali šefom, jim je precej težko slediti. V tem primeru pride Excel še kako prav. Zato je funkcija "pošiljanje samodejnega e-poštnega sporočila iz Excel na . Outlook" se je izkazal za časovno varčno metodo. Excelovi makri VBA in HYPERLINK funkcija lahko pošilja samodejna e-poštna sporočila ali ustvari osnutek z vnosi v programu Excel.

Recimo, da imamo Prestrukturirana plača zaposlenega podatke v Excelu in želimo poslati samodejno e-pošto z uporabo Outlook .

V tem članku predstavljamo več različic Makri VBA in HYPERLINK funkcijo za samodejno pošiljanje e-pošte iz Excel na . Outlook .

Prenos Excelovega delovnega zvezka

⧭ Odpiranje programa Microsoft Visual Basic in vstavljanje kode v modul

Preden se lotimo predstavitve metod, je treba poznati načine odpiranja in vstavljanja Modul v Microsoft Visual Basic v Excelu.

🔄 Odpiranje programa Microsoft Visual Basic: Obstajajo predvsem 3 načini odpiranja Microsoft Visual Basic okno.

1. Uporaba bližnjic na tipkovnici: Pritisnite ALT+F11 v celoti odpreti Microsoft Visual Basic okno.

2. Uporaba zavihka Razvijalec: V delovnem listu programa Excel pojdite na Zavihek Razvijalec > Izberite Visual Basic . Microsoft Visual Basic Prikaže se okno.

3. Uporabite zavihek Delovni list: Pojdite na katerikoli delovni list, Desni klik na njem> Izberite Prikaži kodo (iz Kontekst Meni ).

🔄 Vstavljanje modula v Microsoft Visual Basic: Obstajajo 2 načini vstavljanja Modul na spletnem mestu Microsoft Visual Basic okno,

1. Uporaba možnosti lista: Po odprtju Microsoft Visual Basic izberite okno Delovni list > Desni klik na njem> Izberite Vstavite (iz Kontekstni meni )> nato izberite Modul .

2. Uporaba orodne vrstice: To lahko storite tudi tako, da izberete Vstavite (iz Orodna vrstica )> potem izberemo Modul .

4 preprosti načini za samodejno pošiljanje e-pošte iz programa Excel v Outlook

Metoda 1: Uporaba makra VBA za samodejno pošiljanje e-pošte s programom Outlook izbranim prejemnikom

Želimo ustvariti izvajanje makra Gumb s katerim lahko preprosto pošljemo pošto izbranim prejemnikom z enim samim klikom.

Korak 1: Pojdite na Vstavite zavihek> Oblike > Izberite katero koli od ponujenih oblik (npr., Pravokotne oblike: zaobljeni vogali ).

Korak 2: Povlecite Ikona Plus kamor koli želite vstaviti Oblika kot je prikazano na spodnji sliki.

Korak 3: Izberite želeni Izpolnitev oblike in . Osnutek Barva nato ga kliknite z desno tipko miške. Kliknite na Urejanje besedila za vstavljanje besedila.

4. korak: Uporabite navodila da odprete Microsoft Visual Basic in vstavite Modul . Prilepite naslednji makro v 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 ' Lahko uporabite .Send End With Next r End Sub 

➤ v kodi,

1 - makro postopek začnemo z deklaracijo spremenljivk kot Objekt in . Niz .

2 - zagnati VBA ZA zanko za vsako vrstico v izboru za dodelitev e-pošte Pošlji na , Zadeva in Telo z uporabo vnosov v vrsticah.

3 - dodelite spremenljivke.

4 - opraviti VBA z za izpolnitev stavka Outlook predmeti, kot so Pošlji na , Zadeva pošte , itd. V tem primeru makro izvede samo Prikaz ukaz za prikaz Outlook z osnutkom e-poštnega sporočila. Pošlji se uporablja namesto ali po ukazu Zaslon, Outlook bo ustvarjeno e-poštno sporočilo poslal izbranim prejemnikom.

5 - dokončajte VBA ZA zanka.

5. korak: Vrnite se na delovni list. Z desno tipko miške kliknite na Oblika nato izberite Dodelitev makra iz Kontekstni meni možnosti.

Korak 6: Izberite makro (npr, ExcelToOutlookSR ) v okviru Ime makra in izberite Makro v možnost kot Ta delovni zvezek . kliknite na V REDU .

Korak 7: Zdaj v delovnem listu izberite enega ali več zaposlenih, nato pa kliknite na Gumb oblike .

Korak 8: Pozivi programa Excel Outlook na kosilo in ustvari ali pošlje e-poštna sporočila izbranim zaposlenim. Ko izberete dva od zaposlenih, Outlook ustvari dva različna osnutka e-pošte, pripravljena za pošiljanje.

Ker makro zagotavlja le Prikaz ukaz, Outlook samo prikaže osnutek e-pošte, ne da bi ga poslal. Pošlji ukaz za samodejno pošiljanje e-poštnih sporočil iz Excel na . Outlook uporabo vnosov v celice.

Preberite več: Excelov makro za samodejno pošiljanje e-pošte (3 primerni primeri)

Metoda 2: Samodejno pošiljanje e-pošte iz programa Excel v Outlook glede na določeno vrednost celice

Kaj če želimo poslati samodejno e-pošto po doseganju ciljev iz Excel na . Outlook ? To nalogo lahko zlahka opravi koda Makro.

Predpostavimo, da imamo Podatki o četrtletni prodaji kot je prikazano spodaj, po doseganju cilja (tj, Prodaja> 2000 ) bo samodejno zahteval Outlook za pošiljanje e-poštnega sporočila iz programa Excel v dodeljen e-poštni id.

Korak 1: Vnesite naslednjo makro kodo v kateri koli 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 If 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 = "Pozdravljeni gospod" & vbNewLine & vbNewLine & _ "Naše prodajno mesto ima četrtletno prodajo večjo od ciljne." & vbNewLine & _ "To je potrditveno sporočilo." & vbNewLine & vbNewLine & _ "Lep pozdrav" & vbNewLine & _ "Outlet Team" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Obvestilo o doseganju prodajnega cilja" .Body = mMailBody .Display 'ali pa lahko uporabite .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Na zgornji sliki v razdelkih,

1 - dodelite celico (tj, F17 ) v območju za izvedbo VBA IF Če je rezultat izjave Resnično , makro pokliče drug makro za izvajanje.

2 - razglasite vrste spremenljivk in jih dodelite za izpolnjevanje. Outlook vnosi.

3 - opravljati VBA z za dodelitev spremenljivk vnosom e-pošte. Uporabite Pošlji namesto ukaza Prikaz če želite neposredno poslati e-poštna sporočila, ne da bi jih pregledali. E-poštno sporočilo prejemnika se vstavi v makro. Uporabite alternativne metode, če želite samodejno vstaviti prejemnikovo e-poštno ime.

4 - izločitev določenih spremenljivk iz dodelitve.

Korak 2: Uporabite F5 za zagon makra. Excel v trenutku pridobi Outlook s samodejno ustvarjenim osnutkom e-poštnega sporočila, kot je prikazano v nadaljevanju. Pošlji ali samodejno pošiljanje z uporabo Pošlji ukaz v makru.

Preberite več: Samodejno pošiljanje e-pošte iz programa Excel na podlagi vsebine celic (2 metodi)

Podobna branja

• Kako preveriti, kdo je v skupni Excelovi datoteki (s hitrimi koraki)
• Omogočite skupno rabo delovnega zvezka v Excelu
• Kako deliti Excelovo datoteko za več uporabnikov
• Kako uporabiti makro za pošiljanje e-pošte iz programa Excel s priponko

Metoda 3: Uporaba makra VBA za pošiljanje e-pošte z aktivnim delovnim listom iz programa Excel s programom Outlook

Lahko pa se zgodi, da je treba poslati celoten Aktivni list na dodeljen e-poštni naslov. V tem primeru lahko uporabimo Funkcija po meri VBA ki se kliče znotraj makra.

Korak 1: Vstavite spodnji makro v Modul .

 Funkcija 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 'or you can use .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 = "Podatki o četrtletni prodaji" mBd = "Pozdravljeni, gospod" & vbNewLine & vbNewLine & _ "Prijazno poiščite podatke o četrtletni prodaji podjetja Outlet, ki so priloženi tej pošti." & vbNewLine & _ "To je obvestilna pošta." & vbNewLine & vbNewLine & _ "Lep pozdrav" &vbNewLine & _ "Outlet Team" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Successfully created the Mail draft or Sent" End If End Sub 

➤ Iz zgornje slike so razdelka kode,

1 - razglasite in nastavite spremenljivke.

2 - dodelite ukaze z uporabo VBA z izjava. Uporabite Prikaz ali Pošlji za pregledovanje ali neposredno pošiljanje e-poštnih sporočil.

3 - izbrišete predhodno nastavljene spremenljivke.

4 - dodelite VBA z ukazi z besedili.

5 - izvede Funkcija po meri VBA .

Korak 2: Če želite izvesti makro, pritisnite F5 in Excel takoj prikaže Outlook z osnutkom e-poštnega sporočila za pregled, podobnim spodnji sliki. Nato ga lahko pošljete.

Preberite več: Kako poslati množično e-pošto iz programa Outlook z uporabo programa Excel (3 načini)

Metoda 4: Pošiljanje samodejne e-pošte iz programa Excel v Outlook z uporabo funkcije HYPERLINK

Spletna stran HYPERLINK funkcija ustvari povezavo, ki jo je mogoče klikniti v celicah programa Excel, da Outlook kot medij za samodejno pošiljanje e-poštnih sporočil iz programa Excel.

Korak 1: V celico vnesite naslednjo formulo H5 .

Spletna stran HYPERLINK funkcija prevzame "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 kot link_location in "Kliknite tukaj" kot friendly_name .

Korak 2: Hit VSTOP in prilepite povezavo. Nato kliknite na povezavo.

Korak 3: Excel vas popelje v Outlook In vidite vse Outlook vnosi so izpolnjeni z dodeljenimi podatki iz programa Excel. Kliknite na Pošlji .

4. korak: Povlecite Ročaj za polnjenje za uporabo formule v drugih celicah.

Preberite več: Kako samodejno poslati e-pošto, ko je pogoj izpolnjen v Excelu

Zaključek

Variante makrov VBA in . HYPERLINK funkcija je lahko koristna pri pošiljanju samodejnih e-poštnih sporočil iz programa Excel v Outlook. Upam, da boste našli želeno metodo v zgoraj opisanih. Komentirajte, če imate dodatna vprašanja ali želite kaj dodati.