Comment envoyer un e-mail en cliquant sur un bouton dans Excel ?

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

Envoyer un e-mail en cliquant sur un bouton avec du code VBA

Envoyer un e-mail en cliquant sur un bouton avec du code VBA

Veuillez procéder comme suit pour envoyer un e-mail via Outlook si un bouton de commande est cliqué dans un 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 capture d'écran :

2. Faites un clic droit sur le bouton de commande inséré, puis cliquez sur Afficher le code dans le menu contextuel comme le montre la capture d'écran ci-dessous.

3. Dans la fenêtre Microsoft Visual Basic for Applications qui s'ouvre, veuillez remplacer le code original dans la fenêtre Code par le script VBA suivant.

Code VBA : Envoyer un e-mail en cliquant sur un bouton 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

4. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

5. Désactivez le mode Création en cliquant sur Développeur > Mode Création. Voir capture d'écran :

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

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

Articles connexes :

• Comment envoyer automatiquement un e-mail en fonction de la valeur d'une 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 est atteinte dans Excel ?
• Comment envoyer un rappel ou une notification par e-mail si le classeur est mis à jour dans Excel ?