Kuinka lähettää sähköpostia Outlookissa VBA:lla?

Päivitetty: elokuu 2021; Koskee Microsoft Outlook 365 / 2019 / 2016

Tässä on huomautus, jonka saimme lukijalta.

Kiitos erittäin hyödyllisestä Outlook-koodausavusta. Mietin, voitko jakaa koodin, joka auttaa automatisoimaan sähköpostin lähettämisen Outlookissa? Tiedän, että toistuvien viestien lähettämiseen on useita tapoja, mutta olen erityisesti kiinnostunut käyttämään VBA:ta tähän tehtävääni.

Kiitos kysymyksestä. Sähköpostien automaattinen lähettäminen näyttää olevan yksi hyödyllisimmistä ja suosituimmista tehtävistä, jotka voit automatisoida VBA:n avulla. Lue lisätietoja ja yksinkertainen komentosarja, jolla pääset alkuun täältä.

VBA:n kirjoittaminen Outlook-sähköpostien lähettämiseen

Alla olevassa melko yksinkertaisessa esimerkissä käsitellään seuraavat vaiheet:

1. Ensinnäkin käytämme VBA Outlook -objektimallia uuden sähköpostin luomiseen.
2. Sitten siirrymme eteenpäin ja asetamme viestin tärkeyden, vastaanottajat (eroteltuna puolipisteillä) sekä leipätekstin tyylin ja sisällön.
3. Sitten näytämme viestin Microsoft Outlook -sovelluksessasi.
4. Lopuksi jatkamme ja lähetämme sen vastaanottajille.

Tässä on yksinkertainen VBA-koodi yksinkertaisten sähköpostien automaattiseen luomiseen ja lähettämiseen. Huomaa, että sinun on helppo parantaa tätä skriptiä sisältämään liitetiedostoja, tehtäviä jne.', mutta aloitetaanpa hyvin perusskriptillä.

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 -makropikakuvake

Sinun kannattaa ehkä yhdistää juuri kirjoittamasi VBA-koodi Outlookin komentopainikkeeseen. Näin voit käynnistää sen helposti Outlookin nauhaan sijoitetusta pikakuvakkeesta.

Voit tehdä sen seuraavasti:

1. Siirry ensin eteenpäin ja avaa Microsoft Outlook.
2. Napsauta Tiedosto ja valitse sitten Asetukset
3. Siirry nyt eteenpäin ja valitse Mukauta nauhaa.
4. Mukauta nauhaa -osiossa huomaat Valitse komennot luetteloruudusta.
5. Valitse Makrot
6. Valitse sitten juuri luomasi VBA-koodi, meidän tapauksessamme nimen tulee olla SendMail.
7. Napsauta sitten Lisää ja sitten OK. Vaihtoehtoisesti saatat haluta määrittää makrollesi kuvakkeen.
8. Makrosi on käytettävissä Outlook-sovelluksen vasemmassa yläkulmassa olevassa Quick Access -työkalupalkissa.

Mahdollisia ongelmia VBA-makroasetuksissa

Outlook-makroasetuksia on ehkä säädettävä, jotta makrot voidaan suorittaa. Jos näin on, voit tehdä sen seuraavasti.