Ovaj vodič će ilustrirati kako koristiti Excel makro za automatsko slanje e-pošte. Možemo konfigurirati našu funkciju slanja putem VBA makroa. Dakle, koristeći VBA makro možemo poslati e-poštu više korisnika u isto vrijeme. Moramo imati Outlook instaliran na našem uređaju da automatski šaljemo e-poštu s makroom. Zato što će kod koji ćemo umetnuti koristiti Outlook za slanje e-pošte primateljima.

Preuzmite Vježnicu

Vježbu možete preuzeti ovdje.

3 prikladna primjera Excel makroa za automatsko slanje e-pošte

U ovom članku ćemo demonstrirati 3 prikladni primjeri korištenja excel makroa za automatsko slanje e-pošte primaocima. Prije nego što počnemo ilustrirati primjer, moramo popraviti nešto u našem Excel listu. Dovršite donje korake prije nego što primijenite makro za automatsko slanje e-pošte.

KORACI:

• Prvo, iz vašeg skupa podataka, idite na karticu Programer . Odaberite opciju Visual Basic .

• Dalje, idite na karticu Alat i odaberite opciju Reference .

• Novi dijaloški okvir pod nazivom ' Reference – VBAProject ' će se otvoriti.
• Na kraju, označite opciju ' Microsoft Office 16.0 Object Library ' i kliknite na OK .

1. Primijenite Excel VBA makro za slanjeE-pošta automatski zasnovana na vrijednosti ćelije

Prvo i najvažnije, primijenit ćemo makro VBA za automatsko slanje e-pošte na osnovu određene vrijednosti ćelije u našem skupu podataka. Za ilustraciju ovog primjera koristit ćemo sljedeći skup podataka. Napisat ćemo kod koji će automatski poslati e-poruku ako je vrijednost ćelije u ćeliji D6 veća od 400 .

Pogledajmo korake za izvođenje ove radnje.

KORACI:

• Za početak, desno – kliknite na listu ' Na osnovu ćelije '.
• Pored toga, odaberite opciju ' Prikaži kod '.

• Gorenja radnja će otvoriti prazan VBA kod prozor za taj radni list. Drugi način da otvorite taj prozor koda je da pritisnete Alt + F11 .
• Dalje, u taj prozor koda upišite sljedeći kod:

4590

• Zatim kliknite na dugme Pokreni ili pritisnite tipku F5 da pokrenete kod.

• Pojaviće se novi dijalog pod nazivom Makroi .
• Nakon toga, u polju Naziv makroa odaberite makro ' send_mail_outlook '.
• Sada kliknite na dugme Pokreni .

• Konačno, od sada kada se ćelija vrijednost u ćeliji D6 > 400 e-mail u Outlooku će se automatski generirati sa određenim primaocima. Moramo samo kliknuti na dugme Pošalji da pošaljemo e-poštu.

PročitajViše: Automatsko slanje e-pošte iz Excel-a na osnovu sadržaja ćelije (2 metode)

2. Automatsko slanje e-pošte na osnovu roka sa VBA makroom

U Drugi metod, koristićemo Excel VBA makro za automatsko slanje e-pošte ako je rok za bilo koji projekat blizu. Ovo je nešto kao podsjetnik. Koristimo sljedeći skup podataka za ilustraciju ovog primjera. Skup podataka sadrži e-poštu različitih prodavača, poruke i rok njihovog projekta.

Slijedite korake u nastavku da biste izvršili ovu metodu.

KORACI:

• Prvo, kliknite desnim tasterom miša na list Datum .
• Dalje, izaberite opciju ' Prikaži kod '.

• Otvara prazan VBA kodni prozor za aktivni radni list. Također možemo pritisnuti Alt + F11 da dobijemo taj prozor koda.
• Zatim u taj prozor koda ubacimo sljedeći kod:

2518

" aMailBody = "" aMailBody = aMailBody & "Zdravo " & zRgSendVal & CrLf aMailBody = aMailBody & "Message: " & aRgText.Offset(j - 1).Value & CrLf aMailBody aMailBody & "" Postavite aMailItem = aOutApp.CreateItem(0) sa aMailItem .Subject = aMailSubject .To = zRgSendVal .HTMLBody = aMailBody .Display End with Set aMailItem = Ništa Kraj Ako Kraj Ako Sljedeće Postavite aOutApp8>

• NovoPojavit će se okvir za dijalog.
• Nakon toga, u polju za unos tog dijaloga odaberite raspon stupca datuma dospijeća D$5:$D$9 . Zatim kliknite na OK .

• Još jedan dijaloški okvir će se pojaviti.
• Dalje, u u polju za unos odaberite raspon kolona B$5:$B$9 koji sadrži adrese e-pošte i kliknite na OK .

• Štaviše, pojavit će se još jedan prozor. Odaberite raspon poruka $C$5:$C$9 u polju za unos iskačućeg prozora.

• Na kraju , možemo vidjeti rezultate kao na sljedećoj slici. Dobijamo 3 e-poruke koje se automatski kreiraju u 3 različitim prozorima Outlook . Ovo neće kreirati poštu za prve dvije adrese e-pošte. Zato što je rok za ta dva projekta istekao.

Pročitajte više: Kako automatski poslati e-poštu iz Excel-a na osnovu Datum

Slična očitanja

• [Rešeno]: Dijelite radnu svesku koja se ne prikazuje u Excelu (sa jednostavnim koracima)
• Kako poslati e-poštu s Excel liste (2 efikasna načina)
• Kako poslati e-mailom Excel tabelu koja se može uređivati ​​(3 brza metoda)
• Makro za slanje e-pošte iz Excela (5 odgovarajućih primjera)
• Makro za slanje e-pošte iz Excela s tijelom (3 korisna slučaja)

3. Koristite Excel makro za automatsko slanje e-pošte s prilozima

U posljednjem primjeru vidjet ćemo kako možemorazviti Excel makro za automatsko slanje e-pošte s prilozima. Pretpostavimo da imamo prilog na sljedećoj slici. Želimo poslati ovaj prilog putem e-pošte koristeći excel VBA makro. Za ovo nam je potrebna putanja ove excel datoteke. Evo koraka za to:

• Odaberite datoteku ' Attachment.xlsx ' '.
• Kliknite na opciju ' Kopiraj putanju '.

• Dakle, putanja datoteke koju dobijamo:

Ovu putanju ćemo umetnuti u naš makro kod kako bismo ovu datoteku poslali e-poštom. Slijedite dolje navedene korake da biste to učinili.

KORACI:

• Prvo, idite na karticu Developer i odaberite opciju Visual Basic .

• Novi prozor pod nazivom ' Projekt – VBAProjekt će se otvoriti '.
• Drugo, desni klik na naziv lista.
• Zatim odaberite Insert > Module .

• Gorenja naredba će otvoriti prazan VBA
• Treće, upišite sljedeći kod u taj modul:

7300

• Zatim pritisnite tipku F5 ili kliknite na Run dugme da pokrenete kod.

• Na kraju, kod će poslati prilog na navedene e-poruke u kodu. Kod šalje e-poštu putem Outloka . Dakle, kliknite na dugme Dozvoli da dozvolite Outlooku da pošalje prilog na date e-poruke.

Pročitajte više: Kako se prijavitiMakro za slanje e-pošte iz Excela s prilogom

Zaključak

U zaključku, ovaj članak prikazuje 3 primjera korištenja excel VBA makroa za automatski šalje poštu. Preuzmite ogledni radni list dat u ovom članku kako biste testirali svoje vještine. Ako imate bilo kakvih pitanja, ostavite komentar u okviru ispod. Naš tim će pokušati odgovoriti na vašu poruku što je prije moguće. Pripazite na inventivnija Microsoft Excel rješenja u budućnosti.