Innholdsfortegnelse
Denne opplæringen vil illustrere hvordan du bruker excel-makro for å sende en e-post automatisk. Vi kan konfigurere postfunksjonen vår ved å bruke VBA makroer. Så ved å bruke VBA makroen kan vi sende en e-post til flere brukere samtidig. Vi må ha Outlook installert på enheten vår for å sende e-post automatisk med en makro. Fordi koden som vi skal sette inn vil bruke Outlook til å sende e-post til mottakerne.
Last ned øvelsesarbeidsbok
Du kan laste ned øvelsesarbeidsboken herfra.
Send e-post automatisk.xlsm
3 egnede eksempler på Excel-makro for å sende e-post automatisk
I denne artikkelen vil vi demonstrere 3 passende eksempler på bruk av excel-makro for å sende en e-post automatisk til mottakerne. Før vi begynner å illustrere eksemplet, må vi fikse en ting i excel-arket vårt. Fullfør trinnene nedenfor før du bruker makro for å sende e-post automatisk.
TRINN:
- Først, fra datasettet, gå til Utvikler-fanen . Velg alternativet Visual Basic .
- Deretter går du til kategorien Verktøy og velger alternativet Referanser .
- En ny dialogboks kalt ' Referanser – VBAProject ' åpnes.
- Til slutt, merk av for alternativet ' Microsoft Office 16.0 Object Library ' og klikk på OK .
1. Bruk Excel VBA Macro for å sendeE-post automatisk basert på celleverdi
Først og fremst vil vi bruke excel-makroen VBA for å sende en e-post automatisk basert på en bestemt celleverdi i datasettet vårt. For å illustrere dette eksemplet vil vi bruke følgende datasett. Vi vil skrive en kode som vil sende en e-post automatisk hvis celleverdien i celle D6 er større enn 400 .
La oss se trinnene for å utføre denne handlingen.
TRINN:
- Til å begynne med høyre – klikk på arket ' Basert på celle '.
- I tillegg velger du alternativet ' Vis kode '.
- Handlingen ovenfor vil åpne et tomt VBA kodevindu for det regnearket. En annen måte å åpne kodevinduet på er å trykke Alt + F11 .
- I tillegg skriver du inn følgende kode i kodevinduet:
3269
- Deretter klikker du Kjør -knappen eller trykker F5 -tasten for å kjøre koden.
- En ny dialogboks kalt Makroer vil vises.
- Deretter velger du makroen ' send_mail_outlook<2 i feltet Makronavn >'.
- Klikk nå på Kjør -knappen.
- Til slutt, fra nå av når cellen verdi i celle D6 > 400 en e-post i Outlook genereres automatisk med spesifikke mottakere. Vi må bare klikke på Send -knappen for å sende e-posten.
LesMer: Send e-post automatisk fra Excel basert på celleinnhold (2 metoder)
2. Sender e-post automatisk basert på forfallsdato med VBA-makro
I andre metoden, vil vi bruke Excel VBA makroen for å sende en e-post automatisk hvis forfallsdatoen for et prosjekt er nær. Dette er noe som en påminnelse. Vi bruker følgende datasett for å illustrere dette eksemplet. Datasettet inneholder e-poster fra forskjellige selgere, meldinger og forfallsdatoen for prosjektet deres.
Følg trinnene nedenfor for å utføre denne metoden.
TRINN:
- Høyreklikk først på arket Dato .
- Deretter velger du alternativet ' Vis kode '.
- Det åpner et tomt VBA kodevindu for det aktive regnearket. Vi kan også trykke Alt + F11 for å få det kodevinduet.
- Sett deretter inn følgende kode i det kodevinduet:
3770
" aMailBody = "" aMailBody = aMailBody & "Hei" & zRgSendVal & CrLf aMailBody = aMailBody & "Melding: " & aRgText.Offset(j - 1).Verdi & CrLf aMailBody = aMailBody & "" Sett aMailItem = aOutApp.CreateItem(0) With aMailItem .Subject = aMailSubject .To = zRgSendVal .HTMLBody = aMailBody .Display End With Set aMailItem = Ingenting End If End If Next Sett aOutApp => Nothing End Sub<8
- En nydialogboksen vil dukke opp.
- Etterpå, i inndatafeltet til den dialogboksen, velg forfallsdato-kolonneområdet D$5:$D$9 . Deretter klikker du på OK .
- En ny dialogboks vil dukke opp.
- Videre, i inntastingsfeltet velg kolonneområdet B$5:$B$9 som inneholder e-postadressene og klikk på OK .
- I tillegg vil ett vindu til dukke opp. Velg meldingsområdet $C$5:$C$9 i inntastingsfeltet i pop-vinduet.
- Til slutt , kan vi se resultater som følgende bilde. Vi får 3 e-poster som automatisk opprettes i 3 forskjellige vinduer i Outlook . Dette vil ikke opprette e-post for de to første e-postadressene. Fordi forfallsdatoen for disse to prosjektene er over.
Les mer: Hvordan sende e-post automatisk fra Excel basert på Dato
Lignende avlesninger
- [Løst]: Del arbeidsbok som ikke vises i Excel (med enkle trinn)
- Hvordan sende e-post fra Excel-listen (2 effektive måter)
- Hvordan sende et redigerbart Excel-regneark via e-post (3 raske metoder)
- Makro for å sende e-post fra Excel (5 egnede eksempler)
- Makro for å sende e-post fra Excel med brødtekst (3 nyttige tilfeller)
3. Bruk Excel-makro til å sende e-post automatisk med vedlegg
I det siste eksemplet skal vi se hvordan vi kanutvikle en excel-makro for å sende en e-post automatisk med vedlegg. Anta at vi har et vedlegg i bildet nedenfor. Vi ønsker å sende dette vedlegget via en e-post med Excel VBA makro. For å gjøre dette trenger vi banen til denne excel-filen. Her er trinnene for det:
- Velg filen ' Attachment.xlsx ' '.
- Klikk på alternativet ' Kopier bane '.
- Så banen til filen vi får:
Vi vil sette inn denne banen i makrokoden vår for å sende denne filen via e-post. Følg trinnene nedenfor for å gjøre dette.
TRINN:
- Gå først til Utvikler -fanen og velg alternativet Visual Basic .
- Et nytt vindu kalt ' Project – VBAProject will open '.
- For det andre, høyreklikk på arknavnet.
- Velg deretter Sett inn > Modul .
- Kommandoen ovenfor vil åpne en tom VBA
- For det tredje, skriv inn følgende kode i den modulen:
8117
- Deretter trykker du på F5 -tasten eller klikker på Kjør -knappen for å kjøre koden.
- Til slutt vil koden sende vedlegget til de oppgitte e-postene i koden. Koden sender e-poster med Outlook . Så klikk på Tillat -knappen for å la Outlook sende vedlegget til de gitte e-postene.
Les mer: Slik søker duMakro for å sende e-post fra Excel med vedlegg
Konklusjon
Til slutt viser denne artikkelen 3 eksempler på bruk av excel VBA makro til sende e-post automatisk. Last ned eksempelarbeidsarket gitt i denne artikkelen for å sette ferdighetene dine på prøve. Hvis du har spørsmål, vennligst legg igjen en kommentar i boksen nedenfor. Teamet vårt vil prøve å svare på meldingen din så snart som mulig. Hold øye med mer oppfinnsomme Microsoft Excel løsninger i fremtiden.