VBA Lähetä sähköpostia Excelistä | Askel askeleelta koodi lähettää sähköpostia
VBA-koodi sähköpostin lähettämiseen Excelistä
Vuonna VBA lähettää sähköpostia Excel voimme automatisoida sähköpostilistallemme ominaisuus, jotta voimme lähettää automaattisesti sähköposteja useille käyttäjille kerrallaan, tehdä niin meidän täytyy muistaa, että se on tehnyt näkymät toisen tuotteen Outlookin joten meidän täytyy sallia näkymiin komentosarjat VBA: ssa tekemään niin, ja kun se on valmis, käytämme .Application-menetelmää Outlook-ominaisuuksien käyttämiseen.
VBA: n monipuolisuus on aivan uskomatonta. Syy miksi VBA-koodaajat rakastavat exceliä, koska VBA: n avulla voimme työskennellä paitsi excelissä myös pikemminkin muiden Microsoftin työkalujen kanssa. Voimme käyttää PowerPointia, Wordia ja Outlookia VBA: n avulla. Asia, joka teki minuun vaikutuksen, oli, kun kuulin ”sähköpostin lähettämisen itse Exceliltä”. Kyllä, on totta, että voimme lähettää sähköposteja Excelistä. Tässä artikkelissa näytämme, kuinka voit lähettää sähköpostiviestejä Excelistä liitteineen VBA-koodauksen avulla.
Aseta viite Microsoft Office -kirjastoon
Meidän on lähetettävä sähköposteja Outlookista. Koska Outlook on ulkopuolinen objekti, meidän on ensin asetettava objektiviittaukseksi " Microsoft Outlook 16.0 Object Library ".
- Valitse VBA-kohdassa Työkalut> Viitteet
- Nyt näemme objektiviittauskirjaston. Tässä ikkunassa meidän on asetettava viite "Microsoft Outlook 16.0 Object Library"
- Kun olet asettanut objektiviitteen, napsauta OK.
Nyt voimme käyttää Outlook-objektia VBA-koodauksessa.
13 helppoa vaihetta sähköpostiviestien lähettämiseen Excelistä
Koodin kirjoittaminen sähköpostin liitteenä lähettämiseksi Excelistä on melko monimutkaista, mutta kannattaa viettää aikaa.
Voit ladata tämän VBA Send Email Excel -mallin täältä - VBA Send Email Excel -malliKirjoita ensimmäinen Excel-makro noudattamalla alla olevia ohjeita.
Vaihe 1
Aloita alimenettely VBA: ssa.
Koodi:
Sub SendEmail_Example1 () End Sub
Vaihe # 2
Ilmoitetaan muuttuja Outlook.Application
Koodi:
Himmennä EmailApp kuin Outlook.Application 'Viittaa Outlook-sovellukseen
Vaihe # 3
Yllä oleva muuttuja on objektimuuttuja. Meidän on luotava uuden objektin ilmentymä erikseen. Uuden ilmentymän luominen alla olevasta ulkopuolisesta objektista on koodi.
Koodi:
Set EmailApp = New Outlook.Application 'Käynnistä Outlook-sovellus
Vaihe # 4
Nyt kirjoittaessamme sähköposti ilmoitamme yhden muuttujan muuttujaksi "Outlook.MailItem".
Koodi:
Dim EmailItem As Outlook.MailItem 'Viittaa uuteen Outlook-sähköpostiosoitteeseen
Vaihe # 5
Uuden sähköpostin käynnistämiseksi meidän on asetettava viittaus edelliseen muuttujaamme nimellä CreateItem.
Koodi:
Aseta EmailItem = EmailApp.CreateItem (olMailItem) 'Voit käynnistää uuden Outlook-sähköpostin
Ok, nyt muuttuja "EmailApp" käynnistää näkymät ja muuttujassa "EmailItem" voimme alkaa kirjoittaa sähköpostia.
Vaihe # 6
Nyt meidän on oltava tietoisia siitä, mitä kohteita meillä on kirjoittaessamme sähköpostia. Ensimmäinen asia on, että meidän on päätettävä kenelle lähetämme sähköpostia. Joten tätä varten meidän on käytettävä "TO" -omaisuutta.
Vaihe # 7
Kirjoita vastaanottajan sähköpostitunnus lainausmerkeissä.
Koodi:
EmailItem.To = "[email protected]"
Vaihe # 8
Kun haluat kääntyä päävastaanottimen puoleen, jos haluat kopioida ketään sähköpostissa, voimme käyttää CC-ominaisuutta.
Koodi:
EmailItem.CC = "[email protected]"
Vaihe # 9
CC: n jälkeen voimme asettaa myös BCC-sähköpostitunnuksen.
Koodi:
EmailItem.BCC = "[email protected]"
Vaihe # 10
Nyt meidän on sisällytettävä lähetettävän sähköpostin aihe.
Koodi:
EmailItem.Subject = "Testaa sähköposti Excel VBA: sta"
Vaihe # 11
Nyt meidän on kirjoitettava sähköpostin runko käyttämällä HTML-runkotyyppiä.
Koodi:
EmailItem.HTMLBody = "Hei, & vbNewLine & vbNewLine &" Tämä on ensimmäinen sähköpostini Excelistä "& _ vbNewLine & vbNewLine & _" Terveisin ", & vbNewLine & _" VBA kooderi "'VbNewLine on VBA-vakio, johon haluat lisätä uusi rivi
Vaihe # 12
Jos haluamme lisätä liitteen nykyiseksi työkirjaksi, jota käsittelemme, meidän on käytettävä liitteiden ominaisuutta. Ilmoita ensin muuttujan lähde merkkijonona.
Koodi:
Hämärä lähde merkkijonona
Kirjoita sitten tähän muuttujaan ThisWorkbook.FullName Email body jälkeen.
Koodi:
Lähde = ThisWorkbook.FullName
Tässä VBA-koodissa ThisWorkbookia käytetään nykyiseen työkirjaan ja .FullNameä käytetään laskentataulukon koko nimen saamiseen .
Kirjoita sitten seuraava koodi tiedoston liittämiseen.
Koodi:
EmailItem.Attachments.Add Source
Vaihe # 13
Lopuksi meidän on lähetettävä sähköposti mainituille sähköpostitunnuksille. Tämä voidaan tehdä käyttämällä "Lähetä" -menetelmää.
Koodi:
EmailItem.Send
Ok, olemme valmiit koodaavan osan kanssa.
Koodi:
Sub SendEmail_Example1 () Himmennä EmailApp nimellä Outlook.Application Himmennä lähde merkkijonona Aseta emailApp = Uusi Outlook.Application Himmennä EmailItem nimellä Outlook.MailItem Set EmailItem = EmailApp.CreateItem (olMailItem) EmailItem.To = "[email protected]" EmailItem.CC = "[email protected]" EmailItem.BCC = "[email protected]" EmailItem.Subject = "Testaa sähköposti Excel VBA: sta" EmailItem.HTMLBody = "Hei, & vbNewLine & vbNewLine &" Tämä on ensimmäinen sähköpostini Excel "& _ vbNewLine & vbNewLine & _" Terveisin "& vbNewLine & _" VBA-kooderi "Lähde = ThisWorkbook.FullName EmailItem.Attachments.Add Source EmailItem.Send End Sub
Suorita yllä oleva koodi ja se lähettää sähköpostiviestin mainitun tekstiosan kanssa, jonka liitteenä on nykyinen työkirja.
