Hoe verzend ik een e-mail als op de knop wordt geklikt in Excel?
Stel dat u e-mail moet verzenden via Outlook door op een knop in het Excel-werkblad te klikken, hoe kunt u dat dan doen? Dit artikel introduceert een VBA-methode om dit in detail te bereiken.
Stuur een e-mail als op de knop wordt geklikt met VBA-code
Stuur een e-mail als op de knop wordt geklikt met VBA-code
Ga als volgt te werk om een e-mail via Outlook te verzenden als in een Excel-werkmap op een opdrachtknop wordt geklikt.
1. Voeg een Command-knop in uw werkblad in door op te klikken Ontwikkelaar > Invoegen > Commandoknop (ActiveX-besturingselement). Zie screenshot:
2. Klik met de rechtermuisknop op de ingevoegde Command-knop en klik vervolgens op Bekijk code vanuit het rechtsklikmenu zoals hieronder afgebeeld.
3. In de opening Microsoft Visual Basic voor toepassingen vervangt u de originele code in het codevenster door het volgende VBA-script.
VBA-code: stuur een e-mail als op de knop wordt geklikt in Excel
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Opmerkingen:
1). Wijzig de hoofdtekst van de e-mail in het xMailBody regel in de code.
2). Vervang de Email adres met het e-mailadres van de ontvanger in de rij .To = "E-mailadres".
3). Specificeer de Cc- en Bcc-ontvangers zoals u nodig heeft in .CC = "" en .Bcc = "" secties.
4). Wijzig het onderwerp van de e-mail in de rij .Subject = "Test e-mail verzonden door te klikken op een knop".
4. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.
5. Schakel de ontwerpmodus uit door op te klikken Ontwikkelaar > Ontwerpmodus. Zie screenshot:
Vanaf nu wordt elke keer dat u op de Command-knop klikt, automatisch een e-mail gemaakt met gespecificeerde ontvangers, onderwerp en hoofdtekst. Stuur de e-mail door op de Verzenden knop.
Note: De VBA-code werkt alleen als u Outlook als uw e-mailprogramma gebruikt.
Verzend eenvoudig e-mail via Outlook op basis van de velden van de aangemaakte mailinglijst in Excel:
De Stuur emails nut van Kutools for Excel helpt bij het verzenden van e-mail via Outlook op basis van de velden van de gemaakte mailinglijst in Excel.
Download en probeer het nu! (30 dagen gratis proefperiode)
Gerelateerde artikelen:
- Hoe automatisch e-mail verzenden op basis van celwaarde in Excel?
- Hoe stuur ik een e-mail via Outlook wanneer de werkmap is opgeslagen in Excel?
- Hoe verzend ik een e-mail als een bepaalde cel is gewijzigd in Excel?
- Hoe e-mail verzenden als de vervaldatum is bereikt in Excel?
- Hoe stuur ik een e-mailherinnering of -melding als de werkmap wordt bijgewerkt in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!