VBA Pošlji e-pošto iz Excela | Koda po korakih za pošiljanje e-pošte

Koda VBA za pošiljanje e-pošte iz Excela

V VBA za pošiljanje e-pošte iz Excela lahko avtomatiziramo svojo poštno funkcijo, tako da lahko samodejno pošiljamo e-pošto več uporabnikom hkrati, pri tem pa se moramo zavedati, da to naredi outlook drug izdelek obeta, zato moramo omogočiti Outlook skriptiranje v VBA, da to storijo in po končanem postopku uporabimo metodo .Application za uporabo funkcij Outlook.

Vsestranskost VBA je neverjetna. Razlog, zakaj kodirniki VBA obožujejo excel, ker z uporabo VBA ne moremo delati samo znotraj excela, temveč lahko dostopamo tudi do drugih Microsoftovih orodij. Do PowerPointa, Worda in Outlooka lahko dostopamo z uporabo VBA. Stvar, ki me je navdušila, je bila, ko sem slišala za "pošiljanje e-pošte iz samega excela". Da, res je, da lahko od excela pošiljamo e-poštna sporočila. V tem članku vam bomo pokazali, kako pošiljate e-poštna sporočila iz Excela s prilogami s pomočjo kodiranja VBA.

Nastavite sklic na knjižnico Microsoft Office

E-poštna sporočila moramo pošiljati iz Outlooka. Ker je Outlook zunanji objekt, moramo najprej nastaviti referenco predmeta na » Microsoft Outlook 16.0 Object Library «.

  • V VBA pojdite na Orodja> Reference

  • Zdaj bomo videli referenčno knjižnico predmetov. V tem oknu moramo nastaviti sklic na »Knjižnica predmetov Microsoft Outlook 16.0«

  • Po nastavitvi reference predmeta kliknite V redu.

Zdaj lahko dostopamo do predmeta Outlook v kodiranju VBA.

13 preprostih korakov za pošiljanje e-pošte iz Excela

Pisanje kode za pošiljanje e-pošte s prilogo iz excela je precej zapleteno, vendar je vredno porabiti nekaj časa.

To predlogo VBA Send Email Excel lahko prenesete tukaj - Predloga VBA Send Email Excel predlogo

Sledite spodnjim korakom, da napišete svoj prvi makro Excel.

Korak 1

Zaženite podproces v VBA.

Koda:

 Sub SendEmail_Example1 () Konec Sub

2. korak

Navedite spremenljivko Outlook.Application

Koda:

 Dim EmailApp As Outlook.Application 'Za sklicevanje na aplikacijo Outlook

3. korak

Zgornja spremenljivka je objektna spremenljivka. Primer novega predmeta moramo ustvariti ločeno. Če želite ustvariti nov primerek zunanjega predmeta spodaj, je koda.

Koda:

 Set EmailApp = New Outlook.Application 'Za zagon aplikacije Outlook

4. korak

Zdaj za pisanje e-pošte razglasimo še eno spremenljivko kot "Outlook.MailItem".

Koda:

 Dim EmailItem As Outlook.MailItem 'Za napotitev novega Outlook e-poštnega sporočila

5. korak

Če želite zagnati novo e-poštno sporočilo, moramo referenco na našo prejšnjo spremenljivko nastaviti kot CreateItem.

Koda:

 Set EmailItem = EmailApp.CreateItem (olMailItem) 'Če želite zagnati novo Outlook e-pošto

Ok, zdaj bo spremenljivka "EmailApp" zagnala napoved in v spremenljivki "EmailItem" lahko začnemo pisati e-pošto.

6. korak

Zdaj se moramo zavedati, katere predmete imamo med pisanjem e-pošte. Prva stvar je, da se moramo odločiti, komu bomo poslali e-pošto. Za to moramo torej dostopati do lastnosti »TO«.

7. korak

V dvojne narekovaje vnesite e-poštni ID sprejemnika.

Koda:

EmailItem.To = "[email protected]"

8. korak

Če želite po e-pošti nasloviti glavnega sprejemnika, lahko uporabimo lastnost »CC«.

Koda:

EmailItem.CC = "[email protected]"

9. korak

Po CC lahko nastavimo tudi BCC email id.

Koda:

EmailItem.BCC = "[email protected]"

10. korak

Zdaj moramo vključiti tudi predmet e-pošte, ki jo pošiljamo.

Koda:

EmailItem.Subject = "Preizkusi e-pošto iz Excelovega VBA"

Korak # 11

Zdaj moramo napisati telo e-pošte z uporabo vrste HTML Body.

Koda:

EmailItem.HTMLBody = "Hi," & vbNewLine & vbNewLine & "This is my first email from Excel" & _ vbNewLine & vbNewLine & _ "Regards," & vbNewLine & _ "VBA Coder" 'VbNewLine is the VBA Constant to insert a new line

Step #12

If we want to add an attachment as the current workbook we are working on then we need to use attachments property. First, declare a variable source as a string.

Code:

 Dim Source As String

Then in this variable write ThisWorkbook.FullName after Email body.

Code:

Source = ThisWorkbook.FullName

In this VBA Code, ThisWorkbook is used for the current workbook and .FullName is used to get the full name of the worksheet.

Then write the following code to attach the file.

Code:

EmailItem.Attachments.Add Source

Step #13

Now finally we need to send the email to the mentioned email ID’s. This can be done by using “Send” method.

Code:

EmailItem.Send

Ok, we are done with the coding part.

Code:

 Sub SendEmail_Example1() Dim EmailApp As Outlook.Application Dim Source As String Set EmailApp = New Outlook.Application Dim EmailItem As Outlook.MailItem Set EmailItem = EmailApp.CreateItem(olMailItem) EmailItem.To = "[email protected]" EmailItem.CC = "[email protected]" EmailItem.BCC = "[email protected]" EmailItem.Subject = "Test Email From Excel VBA" EmailItem.HTMLBody = "Hi," & vbNewLine & vbNewLine & "This is my first email from Excel" & _ vbNewLine & vbNewLine & _ "Regards," & vbNewLine & _ "VBA Coder" Source = ThisWorkbook.FullName EmailItem.Attachments.Add Source EmailItem.Send End Sub

Run the above code and it will send the email with the mentioned body of the email with the current workbook as the attachment.