Mes matėme „Excel“ VBA ir kaip mes automatizuojame savo užduotis, kurdami makrokomandas, „Microsoft Outlook“ taip pat turime nuorodą į VBA ir naudodami ją galime valdyti perspektyvas naudodami VBA, todėl mūsų pakartotines užduotis perspektyvoje lengviau automatizuoti ir panašiai kaip „Excel“, turime įgalinti kūrėjo funkciją naudoti VBA perspektyvoje.
VBA perspektyva
VBA grožis yra tai, kad galime nurodyti kitus „Microsoft“ objektus, tokius kaip „PowerPoint“, „Word“ ir „Outlook“. Mes galime sukurti gražius pristatymus. Galime dirbti su „Microsoft Word“ dokumentu ir galiausiai galime siųsti el. Laiškus. Taip, tu teisingai girdėjai. Mes galime siųsti el. Laiškus iš paties „Excel“. Tai skamba nepatogiai, bet tuo pat metu šypsosi ir mūsų veide. Šiame straipsnyje aš jums parodysiu, kaip dirbti su „Microsoft Outlook“ objektu iš „Excel“ naudojant VBA kodavimą. Skaityk…
Kaip mes galime sužinoti „Outlook“ iš „Excel“?
Atminkite, kad „Outlook“ yra objektas, ir mes turime nustatyti nuorodą į tai objekto nuorodų bibliotekoje. Norėdami nustatyti „Outlook“ objektą kaip nuorodą, atlikite toliau nurodytus veiksmus.
1 žingsnis: Eikite į „Visual Basic“ redaktorių.
2 žingsnis: Eikite į Įrankiai> Nuoroda.
3 žingsnis: Žemiau esančiose nuorodose, objektų bibliotekoje, slinkite žemyn ir pasirinkite „MICROSOFT OUTLOOK 14.0 OBJECT BIBLIOTEKA“.
Pažymėkite laukelį „MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY“ , kad jis būtų prieinamas „Excel VBA“.
Dabar mes galime pasiekti „VBA Outlook“ objektą iš „Excel“.
Parašykite kodą el. Laiškams siųsti iš „VBA Outlook“ iš „Excel“
El. Laiškus iš „Excel“ galime siųsti per „Outlook“ programą. Tam turime parašyti VBA kodus. Atlikite toliau nurodytus veiksmus, norėdami siųsti el. Laiškus iš „Outlook“.
1 žingsnis: sukurkite antrinę procedūrą.
Kodas:
Parinktis Aiškus antrinis Siųsti_Exails () Pabaigos antrinis
2 žingsnis: Apibrėžkite kintamąjį kaip „VBA Outlook“ . Taikymas .
Kodas:
Parinktis „Explicit Sub Send_Exails“ () „Dim OutlookApp“ kaip „Outlook“. Programos pabaiga Sub
3 žingsnis: aukščiau nurodyta kintamoji nuoroda į „VBA Outlook“ programą. Perspektyvoje turime siųsti el. Laiškus, todėl nustatykite kitą kintamąjį kaip „Outlook.MailItem“.
Kodas:
Parinktis „Explicit Sub“ „Send_Exails“ („Dim“ „OutlookApp“ kaip „Outlook“. Programa „Dim OutlookMail“ kaip „Outlook.MailItem End Sub“
4 žingsnis: Dabar abu kintamieji yra objektiniai kintamieji. Turime juos nustatyti. Pirmiausia nustatykite kintamąjį „OutlookApp“ kaip „ New Outlook.Application“ .
Kodas:
Sub Send_Exails () pritemdyti „OutlookApp“ kaip „Outlook“. Programa pritemdyti „OutlookMail“ kaip „Outlook.MailItem“ nustatyti „OutlookApp“ = nauja „Outlook“. Programos pabaiga
5 žingsnis: Dabar nustatykite antrąjį kintamąjį „OutlookMail“, kaip nurodyta toliau.
Nustatyti „OutlookMail“ = „OutlookApp.CreateItem“ (olMailItem)
Kodas:
Sub Send_Exails () pritemdyti „OutlookApp“ kaip „Outlook“. Programa pritemdyti „OutlookMail“ kaip „Outlook.MailItem“ rinkinį „OutlookApp“ = naują „Outlook“. Programų rinkinį „OutlookMail“ = „OutlookApp.CreateItem“ („olMailItem“) pabaiga
6 žingsnis: Dabar naudokitės „Prieiga prie pareiškimo“ VBA „ Outlook Mail“.
Kodas:
Sub Send_Exails () pritemdyti „OutlookApp“ kaip „Outlook“. Programa pritemdyti „OutlookMail“ kaip „Outlook“. MailItem Set OutlookApp = nauja „Outlook“. Programos rinkinys OutlookMail = OutlookApp.CreateItem (olMailItem) su „OutlookMail“ pabaiga su End Sub
Dabar mes galime pasiekti visus el. Pašto elementus, pvz., „El. Laiško turinys“, „Kam“, „CC“, „BCC“, „Tema“ ir daugelį kitų dalykų.
7 žingsnis: Dabar, su teiginiu, mes galime pamatyti „IntelliSense“ sąrašą, įdėdami tašką .
8 žingsnis: Pirmiausia pasirinkite kūno formatą kaip olFormatHtml .
Kodas:
Su „OutlookMail .BodyFormat = olFormatHTML End With“
9 žingsnis: Dabar rodykite el. Laišką.
Kodas:
Su „OutlookMail“ .BodyFormat = olFormatHTML .Display End With
10 žingsnis: Dabar turime parašyti el. Laišką į el. Laiško turinį. Tam pasirinkite „ HtmlBody“ .
Kodas:
Su „OutlookMail“ .BodyFormat = olFormatHTML .Display .HTMLBody = "Parašykite savo el. Paštą čia" Pabaiga
Toliau pateikiamas el. Laiško rašymo pavyzdys.
11 žingsnis: Parašę el. Laišką turime paminėti imtuvo el. Pašto adresą. Norėdami gauti šią prieigą, „ Kam “.
12 žingsnis: Tada paminėkite, kam norite nusiųsti el. Laišką.
Step 13: Now mention the BCC email ids,
Step 14: Next thing is we need to mention the subject for the email we are sending.
Step 15: Now add attachments. If you want to send the current workbook as an attachment, then use the attachment as This workbook.
Step 16: Finally, send the email by using the Send method.
Now, this code will send the email from your VBA outlook mail. Use the below VBA code to send emails from your outlook.
To use the below code, you must set the object reference to “MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY” under the object library of Excel VBA.
By setting the reference to the object, the library is called early binding. The reason why we need to set the reference to object library because without setting the object library as “MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY,” We cannot access the IntelliSense list of VBA properties and methods. This makes the writing of code difficult because you need to be sure of what you are writing in terms of technique and spellings.
Sub Send_Emails () 'Šis kodas yra anksti įpareigojantis, ty Įrankiai> Nuoroda> Turite pažymėti "MICROSOFT OUTLOOK 14.0 OBJECT BIBLIOTEKA" Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application Set OutlookMail = OutlookApp. CreateItem (olMailItem) Su OutlookMail .BodyFormat = olFormatHTML .Display .HTMLBody = "Gerbiamasis ABC" & "
" & "
" & "Prašome rasti pridėtą failą" & .HTMLBody 'paskutinis .HTMLBody apima parašą iš perspektyvos. „“
apima eilučių pertraukas dviem eilutėmis. To = "[email protected]". CC = "[email protected]". BCC = "[email protected]; [email protected]". Subjektas = " Bandomasis paštas ".Attachments = ThisWorkbook .Send End With End Sub
