Comment envoyer un e-mail si le bouton est cliqué dans Excel?

Supposons que vous deviez envoyer un e-mail via Outlook en cliquant sur un bouton dans la feuille de calcul Excel, comment pouvez-vous faire? Cet article présentera une méthode VBA pour y parvenir en détail.

Envoyer un e-mail si le bouton est cliqué avec le code VBA

Envoyer un e-mail si le bouton est cliqué avec le code VBA

Veuillez procéder comme suit pour envoyer un e-mail via Outlook si vous cliquez sur un bouton de commande dans le classeur Excel.

1. Insérez un bouton de commande dans votre feuille de calcul en cliquant sur Développeur > insérer > Bouton de commande (contrôle ActiveX). Voir la capture d'écran:

2. Cliquez avec le bouton droit sur le bouton de commande inséré, puis cliquez sur Voir le code dans le menu contextuel comme ci-dessous la capture d'écran.

3. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, veuillez remplacer le code d'origine dans la fenêtre Code par le script VBA suivant.

Code VBA: envoyer un e-mail si le bouton est cliqué dans 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

Florales:

1). Veuillez modifier le corps de l'e-mail selon vos besoins dans le xMailCorps ligne dans le code.

2). Remplace le Adresse courriel avec l'adresse e-mail du destinataire en ligne .To = "Adresse e-mail".

3). Spécifiez les destinataires Cc et Cci dont vous avez besoin dans .CC = "" et .Bcc = "" sections.

4). Changer l'objet de l'e-mail en ligne .Subject = "Tester l'envoi de l'e-mail en cliquant sur le bouton".

4. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

5. Désactivez le mode de conception en cliquant sur Développeur > Mode de conception. Voir la capture d'écran:

Désormais, chaque fois que vous cliquez sur le bouton de commande, un e-mail sera créé automatiquement avec des destinataires, un objet et un corps spécifiés. Veuillez envoyer l'e-mail en cliquant sur le Envoyer .

Notes: Le code VBA ne fonctionne que lorsque vous utilisez Outlook comme programme de messagerie.

Articles Liés:

• Comment envoyer automatiquement un e-mail en fonction de la valeur de la cellule dans Excel?
• Comment envoyer un e-mail via Outlook lorsque le classeur est enregistré dans Excel?
• Comment envoyer un e-mail si une certaine cellule est modifiée dans Excel?
• Comment envoyer un e-mail si la date d'échéance a été respectée dans Excel?
• Comment envoyer un rappel ou une notification par e-mail si le classeur est mis à jour dans Excel?