Kui kasutajad saadavad oma klientidele või ülemustele e-kirju, on üsna raske silma peal hoida. Sellisel juhul tuleb Excel appi. Seetõttu on "saatke automaatne e-kiri alates Excel aadressile Väljavaated" on osutunud aja kokkuhoiuks. Exceli VBA makros ja HYPERLINK funktsiooniga saab saata automaatseid e-kirju või luua Exceli kirjete abil eelnõu.

Oletame, et meil on Töötaja ümberstruktureeritud palk andmed Excelis ja me tahame saata automaatse e-kirja kasutades Outlook .

Selles artiklis demonstreerime mitmeid variante VBA makros ja HYPERLINK funktsioon automaatse e-kirja saatmiseks Excel aadressile Outlook .

Exceli töövihiku allalaadimine

⧭ Microsoft Visual Basic'i avamine ja koodi sisestamine moodulisse

Enne mis tahes meetodite tutvustamist on vaja teada, kuidas avada ja sisestada Moodul aastal Microsoft Visual Basic Excelis.

🔄 Microsoft Visual Basic'i avamine: Peamiselt on olemas 3 viisid, kuidas avada Microsoft Visual Basic aken.

1. Klaviatuurikombinatsioonide kasutamine: Press ALT+F11 kokku, et avada Microsoft Visual Basic aken.

2. Kasutades arendaja vahekaarti: Exceli töölehel, mine aadressile Arendaja vahekaart > Valige Visual Basic . Microsoft Visual Basic ilmub aken.

3. Kasutades töölehtede vahekaarti: Minge mis tahes töölehele, Parema klõpsuga selle kohta> Vali Vaata koodi (alates Kontekst Menüü ).

🔄 Mooduli sisestamine Microsoft Visual Basicis: On olemas 2 viisid, kuidas sisestada Moodul aadressil Microsoft Visual Basic aken,

1. Lehtede valikute kasutamine: Pärast avamist Microsoft Visual Basic aknas, valige Tööleht > Parema klõpsuga selle kohta> Valige Sisesta (alates Kontekstimenüü )> siis vali Moodul .

2. Tööriistariba kasutamine: Seda saab teha ka valides Sisesta (alates Tööriistariba )> siis valides Moodul .

4 Lihtne viis automaatse e-posti saatmiseks Excelist Outlooki

Meetod 1: Kasutades VBA makro automaatselt saata e-posti kasutades Outlooki valitud adressaatidele

Me tahame luua makro täitmise Nupp mille abil saame lihtsalt ühe klõpsuga saata posti valitud adressaatidele.

1. samm: Minge Sisesta tab> Kujundid > Valige ükskõik milline pakutav kuju (nt, Ristkülikukujuline: ümardatud nurgad ).

2. samm: Lohistage Plus ikoon kuhu soovite sisestada Kuju nagu on näidatud alloleval pildil.

3. samm: Valige eelistatud Shape Fill ja Ümbrised Värv seejärel klõpsake sellel paremklõpsuga. Klõpsake Teksti redigeerimine teksti sisestamiseks.

4. samm: Kasutage juhend avada Microsoft Visual Basic ja sisestada Moodul Sisestage järgmine makro faili Moodul .

 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 ' Saate kasutada .Send End With Next r End Sub 

➤ koodis,

1 - alustada makroprotseduuri muutujate deklareerimisega kui Objekt ja String .

2 - käivitada VBA FOR tsükkel iga rea jaoks valikus, et määrata Emaili Saada aadressile , Teema ja Keha kasutades ridade kirjeid.

3 - määrata muutujaid.

4 - teostada VBA koos avaldus, et täita Outlook sellised esemed nagu Saada aadressile , Mail Teema , jne. Siin täidab makro ainult järgmist. Näita käsk tuua välja Outlook e-kirja eelnõuga. Kui aga Saada käsku kasutatakse käsu asemel või pärast Näita, Outlook saadab loodud e-kirja valitud adressaatidele.

5 - lõpetada VBA FOR loop.

5. samm: Pöörduge tagasi töölehele. Tehke parempoolne hiireklõps töölehele Kuju seejärel valige Makro määramine alates Kontekstimenüü valikud.

6. samm: Valige makro (st, ExcelToOutlookSR ) all Makro nimi ja valida Makro sisse võimalus nagu See töövihik . klõpsake OK .

7. samm: Nüüd valige töölehel üks või mitu töötajat, seejärel klõpsake nuppu Kuju nupp .

8. samm: Exceli juhised Outlook lõunasöögiks ja loob või saadab valitud töötajatele e-kirju. Kuna valite kaks töötajat, Outlook genereerib kaks erinevat e-kirja kavandit, mis on valmis saatmiseks.

Kuna makro annab ainult Kuva käsk, Outlook näitab lihtsalt e-kirja kavandit ilma seda saatmata. Kasutage funktsiooni Saada käsk, et saata automaatselt e-kirju Excel aadressile Outlook kasutades lahtri sissekandeid.

Loe edasi: Exceli makro automaatse e-posti saatmiseks (3 sobivat näidet)

Meetod 2: E-posti automaatne saatmine Excelist Outlooki sõltuvalt konkreetse lahtri väärtusest

Mis siis, kui me tahame saata automaatse e-kirja pärast eesmärkide saavutamist alates Excel aadressile Outlook Makrokood saab seda tööd hõlpsasti teha.

Oletame, et meil on Kvartali müügiandmed nagu allpool kujutatud, pärast eesmärgi saavutamist (st, Müük> 2000 ) küsib automaatselt Outlook saata Excelist e-kiri määratud e-posti aadressile.

1. samm: Sisestage järgmine makrokood mis tahes Moodul .

 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 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 = "Tere tulemast, härra" & vbNewLine & vbNewLine & _ "Meie müügipunktis on kvartali müük rohkem kui eesmärk." & vbNewLine & _ "See on kinnituspost." & vbNewLine & vbNewLine & _ "Lugupidamisega" & vbNewLine & _ "Outlet Team" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Teade müügieesmärgi saavutamise kohta" .Body = mMailBody .Display 'või võid kasutada .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Ülaltoodud pildi lõigetes,

1 - määrata lahtri (st, F17 ) vahemikus, et teostada VBA IF Kui avalduse tulemuseks on Tõsi , kutsub makro teise makro teostamiseks.

2 - deklareerida muutujatüübid ja määrata nende täitmine Outlook 's sissekanded.

3 - teha VBA koos avaldusega, et määrata muutujaid e-posti kirjetele. Kasutage avaldust Saada käsu asemel Kuva juhul, kui soovite saata e-kirju otse, ilma neid läbi vaatamata. Vastuvõtja e-kiri sisestatakse makrosse. Kasutage alternatiivseid meetodeid juhul, kui soovite vastuvõtja e-kirja tunnuse automaatset sisestamist.

4 - kustutada teatud muutujad määramisest.

2. samm: Kasutage F5 klahvi, et käivitada makro. Hetkega toob Excel välja Outlook automaatselt loodud e-kirja eelnõuga, nagu on näidatud järgnevalt. Saate klõpsata nuppu Saada või automaatne saatmine, kasutades Saada käsk makros.

Loe edasi: Automaatne e-posti saatmine Excelist lahtri sisu alusel (2 meetodit)

Sarnased lugemised

• Kuidas näha, kes on jagatud Exceli failis (kiirete sammudega)
• Exceli töövihiku jagamise lubamine
• Kuidas jagada Exceli faili mitme kasutaja jaoks
• Kuidas rakendada makrot, et saata Excelist koos manusega e-kiri

Meetod 3: VBA makro kasutamine Outlooki poolt aktiivse töölehega Exceli poolt e-posti saatmiseks

Teise võimalusena võib esineda juhtumeid, kus meil on vaja saata kogu Aktiivne leht määratud e-posti aadressile. Sellisel juhul saame kasutada VBA kohandatud funktsioon mida kutsutakse makro sees.

1. samm: Sisestage alljärgnev makro faili Moodul .

 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 'või võid kasutada .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 = "Kvartali müügiandmed" mBd = "Tere tulemast, härra" & vbNewLine & vbNewLine & _ "Palun leidke Outlet's Quarterly Sales data attached with this mail." & vbNewLine & _ "It's a notification mail." & vbNewLine & vbNewLine & _ "Regards" &vbNewLine & _ "Outlet Team" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Edukalt loodud Mail eelnõu või saadetud" End If End Sub 

➤ Ülaltoodud pildilt koodi lõigud,

1 - deklareerida ja määrata muutujad.

2 - määrake käsud, kasutades VBA koos avaldus. Kasutage Näita või Saada käsk vastavalt e-kirjade läbivaatamiseks või otseseks saatmiseks.

3 - kustutada eelnevalt seatud muutujad.

4 - määrata VBA koos käsud koos tekstidega.

5 - täita VBA kohandatud funktsioon .

2. samm: Makro käivitamiseks vajutage F5 , ja Excel toob kohe välja Outlook e-kirja eelnõuga, mis on sarnane alloleva pildiga. Pärast seda võite selle saata.

Loe edasi: Kuidas saata hulgi e-kirju Outlookist kasutades Excelit (3 Võimalusi)

Meetod 4: Automaatse e-kirja saatmine Excelist Outlooki kasutades HYPERLINK-funktsiooni

The HYPERLINK funktsioon genereerib Exceli lahtrites klõpsatava lingi, et tuua Outlook vahendina automaatsete e-kirjade saatmiseks Excelist.

1. samm: Sisestage lahtrisse järgmine valem H5 .

The HYPERLINK funktsioon võtab "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 nagu link_location ja "Kliki siia" nagu sõbralik_nimi .

2. samm: Hit SISESTA kleepida link. Seejärel klõpsake lingil.

3. samm: Excel viib teid Outlook Ja te näete kõiki Outlook kanded täidetakse Exceli määratud andmetega. Klõpsake nuppu Saada .

4. samm: Lohistage Täitmise käepide rakendada valemit teistele lahtritele.

Loe edasi: Kuidas saata e-kiri automaatselt, kui Exceli tingimus on täidetud

Kokkuvõte

VBA makro variandid ja HYPERLINK funktsioon võib olla abiks automaatsete e-kirjade saatmisel Excelist Outlooki. Loodan, et leiate oma eelistatud meetodi eespool kirjeldatud meetodite hulgast. Kommenteerige, kui teil on lisaküsimusi või midagi lisada.