seychellesartprojects.org

VBA kodas el. Laiškams siųsti iš „Excel“

Be VBA siųsti laiškus iš Excel galime automatizuoti mūsų pašto funkciją, kad mes galime automatiškai siųsti elektroninius laiškus į keliems vartotojams vienu metu, tai padaryti turime prisiminti, kad tai daroma Outlook kitą perspektyvų produktą, kad mes turime galimybę Outlook scenarijus VBA tai padaryti. Kai tai bus padaryta, mes naudojame. Taikymo metodą, kad galėtume naudoti „Outlook“ funkcijas.

VBA universalumas yra tiesiog nuostabus. Priežastis, kodėl VBA koduotojai mėgsta „Excel“, nes naudodami VBA ne tik galime dirbti „Excel“, bet ir prieiti prie kitų „Microsoft“ įrankių. Mes galime pasiekti „PowerPoint“, „Word“ ir „Outlook“ naudodami VBA. Man imponavo tai, kai išgirdau „siunčiant el. Laišką iš paties„ Excel ““. Taip, tiesa, mes galime siųsti el. Laiškus iš „Excel“. Šiame straipsnyje mes parodysime, kaip siųsti el. Laiškus iš „Excel“ su priedais, naudojant „VBA“ kodavimą.

Nustatykite nuorodą į „Microsoft Office“ biblioteką

Turime siųsti el. Laiškus iš „Outlook“. Kadangi „Outlook“ yra išorinis objektas, pirmiausia turime nustatyti objekto nuorodą į „ Microsoft Outlook 16.0 Object Library “.

• VBA eikite į Įrankiai> Nuorodos

• Dabar pamatysime objektų nuorodų biblioteką. Šiame lange turime nustatyti nuorodą į „Microsoft Outlook 16.0 Object Library“

• Nustačius objekto nuorodą, spustelėkite Gerai.

Dabar mes galime pasiekti „Outlook“ objektą VBA kodavimu.

13 paprastų žingsnių norint siųsti el. Laiškus iš „Excel“

Rašyti kodą norint išsiųsti el. Laišką su priedu iš „Excel“ yra gana sudėtinga, tačiau verta skirti tam tikrą laiką.

Šį „VBA Send Email Excel“ šabloną galite atsisiųsti čia - „VBA Send Email Excel“ šabloną

Atlikite toliau nurodytus veiksmus, kad parašytumėte savo pirmąją „Excel“ makrokomandą.

1 žingsnis

Pradėkite antrinę procedūrą VBA.

Kodas:

 Sub SendEmail_Example1 () Pabaiga Sub 

2 žingsnis

Paskelbkite kintamąjį „Outlook.Application“

Kodas:

 Blankus „EmailApp“ kaip „Outlook.Application“ Norėdami nurodyti „Outlook“ programą 

3 žingsnis

Aukščiau pateiktas kintamasis yra objekto kintamasis. Turime atskirai sukurti naujo objekto egzempliorių. Norėdami sukurti naują išorinio objekto egzempliorių, žemiau yra kodas.

Kodas:

 Nustatykite EmailApp = New Outlook.Application 'Norėdami paleisti „Outlook“ programą 

4 žingsnis

Dabar, norėdami parašyti el. Laišką, dar vieną kintamąjį skelbiame kaip „Outlook.MailItem“.

Kodas:

 „Dim EmailItem“ kaip „Outlook.MailItem“ pritemdyti 'Norėdami nukreipti naują perspektyvinį el. Pašto adresą 

5 žingsnis

Norėdami paleisti naują el. Laišką, turime nustatyti ankstesnio kintamojo nuorodą kaip „CreateItem“.

Kodas:

 Nustatyti EmailItem = EmailApp.CreateItem (olMailItem) 'Norėdami paleisti naują „Outlook“ el. Laišką 

Gerai, dabar kintamasis „EmailApp“ paleidžia perspektyvą ir kintamajame „EmailItem“ galime pradėti rašyti el. Laišką.

# 6 žingsnis

Dabar turime žinoti, kokius daiktus turime rašydami el. Laišką. Pirmiausia turime nuspręsti, kam siunčiame el. Laišką. Taigi tam turime pasiekti „TO“ turtą.

7 žingsnis

Dvigubose kabutėse įveskite imtuvo el. Pašto adresą.

Kodas:

EmailItem.To = "[email protected]"

8 žingsnis

Kreipdamiesi į pagrindinį imtuvą, jei norėtumėte ką nors išsiųsti el. Laiške, mes galime naudoti ypatybę „CC“.

Kodas:

EmailItem.CC = "[email protected]"

9 žingsnis

Po CC taip pat galime nustatyti BCC el. Pašto ID.

Kodas:

EmailItem.BCC = "[email protected]"

# 10 žingsnis

Dabar turime įtraukti siunčiamo el. Laiško temą.

Kodas:

EmailItem.Subject = "Patikrinkite el. Paštą iš" Excel VBA "

# 11 žingsnis

Dabar turime parašyti el. Laiško turinį naudodami HTML kūno tipą.

Kodas:

EmailItem.HTMLBody = "Sveiki, & vbNewLine & vbNewLine &" Tai mano pirmasis el. Laiškas iš "Excel" & _ vbNewLine & vbNewLine & _ "Pagarbiai", & vbNewLine & _ "VBA koderis" 'VbNewLine yra VBA pastovus, norint įterpti nauja linija 

12 žingsnis

Jei norime pridėti priedą kaip dabartinę darbaknygę, su kuria dirbame, turime naudoti priedų ypatybę. Pirmiausia paskelbkite kintamąjį šaltinį kaip eilutę.

Kodas:

 Blankus šaltinis kaip styginis 

Tada šiame kintamajame parašykite „ ThisWorkbook.FullName“ po el. Pašto turinio.

Kodas:

Šaltinis = ThisWorkbook.FullName

Šiuo VBA kodą, ThisWorkbook naudojamas dabartinės darbaknygės ir .FullName yra naudojamas norint gauti pilną vardą darbalapį.

Tada parašykite šį kodą, kad pridėtumėte failą.

Kodas:

EmailItem.Attachments.Add Source

13 žingsnis

Dabar pagaliau turime išsiųsti el. Laišką į minėtus el. Pašto adresus. Tai galima padaryti naudojant „Siųsti“ metodą.

Kodas:

EmailItem.Send

Gerai, mes baigėme kodavimo dalį.

Kodas:

 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 = "Testuoti el. paštą iš" Excel VBA "EmailItem.HTMLBody =" Sveiki, & vbNewLine & vbNewLine & "Tai mano pirmasis el. laiškas iš „Excel“ & _ vbNewLine & vbNewLine & _ „Pagarbiai“, & vbNewLine ir _ „VBA koderis“ Šaltinis = ThisWorkbook.FullName EmailItem.Attachments.Add Source EmailItem.Send End Sub 

Paleiskite aukščiau nurodytą kodą ir jis atsiųs el. Laišką su minėtu el. Laiško tekstu su dabartine darbo knyga kaip priedu.