Kā nosūtīt e-pastu programmā Outlook, izmantojot VBA?

Atjaunināts: 2021. gada augusts; Attiecas uz Microsoft Outlook 365/2019/2016

Šeit ir piezīme, ko saņēmām no lasītāja.

Paldies par jūsu ļoti noderīgo palīdzību saistībā ar Outlook kodēšanu. Vēlos, vai varat kopīgot kodu, lai palīdzētu automatizēt e-pasta sūtīšanu programmā Outlook? Es zinu, ka ir vairāki veidi, kā nosūtīt atkārtotu ziņojumu, bet mani īpaši interesē VBA izmantošana šim uzdevumam.

Paldies par jautājumu. Automātiska e-pasta sūtīšana, šķiet, ir viens no visnoderīgākajiem un populārākajiem uzdevumiem, ko varat automatizēt, izmantojot VBA. Lasiet tālāk, lai iegūtu sīkāku informāciju un vienkāršu skriptu, lai sāktu šeit.

VBA rakstīšana Outlook e-pasta sūtīšanai

Tālāk sniegtajā diezgan vienkāršajā piemērā mēs apskatīsim tālāk norādītās darbības.

1. Vispirms mēs izmantosim VBA Outlook objekta modeli, lai izveidotu jaunu e-pasta vienumu.
2. Pēc tam mēs iestatīsim ziņojuma svarīgumu, adresātus (atdalot ar semikoliem) un pamatteksta stilu un saturu.
3. Pēc tam mēs parādīsim ziņojumu jūsu Microsoft Outlook lietojumprogrammā.
4. Visbeidzot, mēs to nosūtīsim adresātiem.

Šis ir vienkāršais VBA kods, lai automātiski izveidotu un nosūtītu vienkāršus e-pasta ziņojumus. Ņemiet vērā, ka jums ir viegli uzlabot šo skriptu, lai iekļautu failu pielikumus, uzdevumus utt., Bet sāksim ar ļoti vienkāršu skriptu.

Sub SendMail()
Dim MyEmail As MailItem
Set MyEmail = Application.CreateItem(olMailItem)

With MyEmail
.To = ""
.Importance = olImportanceHigh
.Subject = ""
.Body = ""
.BodyFormat = olFormatHTML
.Display
End With

'I purposely commented the next line, uncomment it by removing the "'" sign to send your email.
' MyEmail.Send
End Sub

Outlook VBA makro saīsne

Iespējams, vēlēsities saistīt tikko ierakstīto VBA kodu ar komandas pogu programmā Outlook. Tas ļaus to viegli palaist no Outlook lentē ievietotās saīsnes.

Lūk, kā to izdarīt:

1. Vispirms dodieties uz priekšu un atveriet Microsoft Outlook.
2. Noklikšķiniet uz Fails, pēc tam atlasiet Opcijas
3. Tagad turpiniet un atlasiet Pielāgot lenti.
4. Sadaļā Pielāgot lenti jūs pamanīsit saraksta lodziņu Izvēlēties komandas.
5. Atlasiet Makro
6. Pēc tam atlasiet savu jaunizveidoto VBA kodu, mūsu gadījumā nosaukumam jābūt SendMail.
7. Pēc tam nospiediet Pievienot un pēc tam Labi. Ja vēlaties, iespējams, vēlēsities savam makro piešķirt ikonu.
8. Jūsu makro būs pieejams ātrās piekļuves rīkjoslā Outlook lietojumprogrammas augšējā kreisajā pusē.

Iespējamās problēmas ar VBA makro iestatījumiem

Lai palaistu makro, iespējams, būs jāpielāgo jūsu Outlook makro iestatījumi. Ja tā, lūk, kā to izdarīt.