photosdematures.com

VBA Code upang Magpadala ng Mga Email Mula sa Excel

Sa VBA upang Magpadala ng Email mula sa Excel maaari nating i-automate ang aming tampok sa pag-mail upang awtomatiko kaming makapagpadala ng mga email sa maraming mga gumagamit nang paisa-isa, upang gawin ito kailangan nating tandaan na ginagawa ito sa pamamagitan ng pananaw sa isa pang produkto ng pananaw kaya kailangan nating paganahin ang pananaw sa pag-script sa VBA upang magawa ito at sa sandaling tapos na ito ay ginagamit namin .Paglalapat na pamamaraan upang magamit ang mga tampok ng pananaw.

Ang kagalingan ng VBA ay kamangha-mangha lamang. Ang dahilan kung bakit gusto ng mga VBA coder ang excel dahil ang paggamit ng VBA ay hindi lamang tayo maaaring gumana sa loob ng excel sa halip ay maaari din nating mai-access ang iba pang mga tool ng Microsoft. Maaari naming ma-access ang PowerPoint, Word, at Outlook sa pamamagitan ng paggamit ng VBA. Ang bagay na nagpahanga sa akin ay nang marinig ko ang "pagpapadala ng email mula sa excel mismo". Oo, totoo na maaari kaming magpadala ng mga email mula sa excel. Sa artikulong ito, ipapakita namin sa iyo kung paano magpadala ng mga email mula sa excel na may mga kalakip na gamit ang VBA Coding.

Itakda ang Sanggunian sa Microsoft Office Library

Kailangan naming magpadala ng mga email mula sa Outlook. Dahil ang Outlook ay isang bagay sa labas ng unang bagay na kailangan nating gawin ay itakda ang sanggunian ng bagay sa "Microsoft Outlook 16.0 Object Library”.

• Sa VBA Pumunta sa Mga Tool> Mga Sanggunian

• Ngayon makikita natin ang library ng sanggunian ng object. Sa window na ito, kailangan naming itakda ang sanggunian sa "Microsoft Outlook 16.0 Object Library"

• Matapos itakda ang sanggunian ng object mag-click sa Ok.

Ngayon ay maaari naming ma-access ang object ng Outlook sa VBA coding.

13 Madaling Mga Hakbang upang Magpadala ng Mga Email mula sa Excel

Ang pagsulat ng code upang magpadala ng isang email na may isang kalakip mula sa excel ay medyo kumplikado, ngunit nagkakahalaga ng paggastos ng ilang oras.

Maaari mong i-download ang VBA na Magpadala ng Email Excel Template dito - VBA Magpadala ng Email Excel Template

Sundin ang mga hakbang sa ibaba upang isulat ang iyong unang email excel macro.

Hakbang # 1

Simulan ang subprocedure sa VBA.

Code:

 Sub SendEmail_Example1 () Tapusin ang Sub 

Hakbang # 2

Ipahayag ang variable na Outlook. Application

Code:

 Madilim ang EmailApp Bilang Outlook. Aplikasyon 'Upang mag-refer sa application ng pananaw 

Hakbang # 3

Ang variable sa itaas ay isang variable ng object. Kailangan naming lumikha ng isang halimbawa ng isang bagong bagay nang magkahiwalay. Upang lumikha ng isang bagong halimbawa ng labas na bagay sa ibaba ay ang code.

Code:

 Itakda ang EmailApp = Bagong Outlook. Application 'Upang mailunsad ang application ng pananaw 

Hakbang # 4

Ngayon upang isulat ang email na idineklara namin ang isa pang variable bilang "Outlook.MailItem".

Code:

 Malabo ang EmailItem Bilang Outlook.MailItem 'Upang mag-refer ng bagong email ng pananaw 

Hakbang # 5

Upang mailunsad ang isang bagong email, kailangan naming itakda ang sanggunian sa aming dating variable bilang CreateItem.

Code:

 Itakda ang EmailItem = EmailApp.CreateItem (olMailItem) 'Upang maglunsad ng bagong email ng pananaw 

Ok, ngayon ang variable na "EmailApp" ay maglulunsad ng pananaw at sa variable na "EmailItem" maaari naming simulang isulat ang email.

Hakbang # 6

Ngayon kailangan nating magkaroon ng kamalayan kung ano ang mga item na mayroon tayo habang sumusulat ng isang email. Ang unang bagay ay kailangan nating magpasya para sa kung kanino kami nagpapadala ng email. Kaya para dito, kailangan nating i-access ang "TO" na pag-aari.

Hakbang # 7

Ipasok ang email Id ng tatanggap sa mga dobleng quote.

Code:

EmailItem.To = "[email protected]"

Hakbang # 8

Matapos mapunta ang pangunahing tatanggap, kung nais mong CC ang sinuman sa email, maaari naming gamitin ang "CC" na pag-aari.

Code:

EmailItem.CC = "[email protected]"

Hakbang # 9

Matapos ang CC maaari naming itakda ang BCC email id din.

Code:

EmailItem.BCC = "[email protected]"

Hakbang # 10

Ngayon kailangan naming isama ang Paksa ng email na ipinapadala namin.

Code:

EmailItem.Subject = "Pagsubok Email Mula sa Excel VBA"

Hakbang # 11

Ngayon kailangan naming isulat ang katawan ng email sa pamamagitan ng paggamit ng HTML na uri ng Katawan.

Code:

EmailItem.HTMLBody = "Kumusta," & vbNewLine & vbNewLine & "Ito ang aking unang email mula sa Excel" & _ vbNewLine & vbNewLine & _ "Regards," & vbNewLine & _ "VBA Coder" 'VbNewLine is the VBA Constant to insert a bagong linya 

Hakbang # 12

Kung nais naming magdagdag ng isang kalakip bilang kasalukuyang workbook na pinagtatrabahuhan namin pagkatapos ay kailangan naming gumamit ng pag-aari ng mga attachment. Una, ideklara ang isang variable na mapagkukunan bilang isang string.

Code:

 Dim Source Bilang String 

Pagkatapos sa variable na ito isulat ThisWorkbook.FullName pagkatapos ng katawan ng Email.

Code:

Pinagmulan = ThisWorkbook.FullName

Sa VBA Code na ito, AngWorkbook na ito ay ginagamit para sa kasalukuyang workbook at .Buong pangalan ay ginagamit upang makuha ang buong pangalan ng worksheet.

Pagkatapos ay isulat ang sumusunod na code upang ikabit ang file.

Code:

EmailItem.Attachments.Add Source

Hakbang # 13

Ngayon sa wakas kailangan naming ipadala ang email sa nabanggit na mga email ID's. Maaari itong magawa sa pamamagitan ng paggamit ng pamamaraang "Ipadala".

Code:

EmailItem.Send

Ok, tapos na kami sa bahagi ng pag-coding.

Code:

 Sub SendEmail_Example1 () Madilim ang EmailApp Bilang Outlook. Nalalabi ang Pinagmulan ng Application Bilang String Itakda ang EmailApp = Bagong Outlook. Nalalapat ng Application ang EmailItem Bilang Outlook. Itakda ng MailItem ang 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 = "Kumusta," & vbNewLine & vbNewLine & "Ito ang aking unang email mula sa Excel "& _ vbNewLine & vbNewLine & _" Regards, "& vbNewLine & _" VBA Coder "Source = ThisWorkbook.FullName EmailItem.Attachments.Add Source EmailItem.Send End Sub 

Patakbuhin ang code sa itaas at magpapadala ito ng email na may nabanggit na katawan ng email kasama ang kasalukuyang workbook bilang kalakip.