Kuidas Outlookis VBA-ga meili saata?

Värskendatud: august 2021; Kehtib Microsoft Outlook 365 / 2019 / 2016 jaoks

Siin on teade, mille saime ühelt lugejalt.

Täname teid väga kasuliku Outlooki kodeerimisabi eest. Soovin teada, kas saate jagada koodi, mis aitab Outlookis meili saatmist automatiseerida? Ma tean, et korduvate sõnumite saatmiseks on mitu võimalust, kuid olen konkreetselt huvitatud VBA kasutamisest selle ülesande jaoks.

Täname küsimuse eest. Meilide automaatne saatmine näib olevat üks kõige kasulikumaid ja populaarsemaid ülesandeid, mida saate VBA abil automatiseerida. Lisateavet ja lihtsat skripti leiate siit, et saaksite siit alustada.

VBA kirjutamine Outlooki meilide saatmiseks

Allolevas üsna lihtsas näites käsitleme järgmisi samme.

1. Kõigepealt kasutame uue meiliüksuse loomiseks VBA Outlooki objektimudelit.
2. Seejärel määrame sõnumi tähtsuse, adressaadid (eraldatuna semikooloniga) ning põhiteksti stiili ja sisu.
3. Seejärel kuvame sõnumi teie Microsoft Outlooki rakenduses.
4. Lõpuks läheme edasi ja saadame selle adressaatidele.

Siin on lihtne VBA kood lihtsate meilide automaatseks loomiseks ja saatmiseks. Pange tähele, et peate seda skripti hõlpsalt täiustama, et lisada failimanused, ülesanded jne, kuid alustame väga lihtsa skriptiga.

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 otsetee

Võib-olla soovite uurida äsja kirjutatud VBA-koodi seostamist Outlooki käsunupuga. See võimaldab teil selle hõlpsalt käivitada Outlooki lindile paigutatud otsetee kaudu.

Seda saab teha järgmiselt.

1. Esiteks minge edasi ja avage Microsoft Outlook.
2. Klõpsake nuppu Fail ja seejärel valige Valikud
3. Nüüd jätkake ja valige Kohanda linti.
4. Jaotises lindi kohandamine näete loendikasti Vali käsud loendist.
5. Valige makrod
6. Seejärel valige oma vastloodud VBA kood, meie puhul peaks nimi olema SendMail.
7. Seejärel klõpsake nuppu Lisa ja seejärel nuppu OK. Soovi korral võite oma makrole ikooni määrata.
8. Teie makro on saadaval Outlooki rakenduse vasakus ülanurgas kiirjuurdepääsu tööriistaribal.

Võimalikud probleemid VBA makro sätetega

Makrode käitamiseks võib olla vaja teie Outlooki makro sätteid häälestada. Kui jah, siis siin on, kuidas seda teha.