Comment envoyer un email à partir d'une plage de cellules spécifiée dans Excel ?

Dans de nombreux cas, une plage spécifique de contenu dans une feuille de calcul Excel peut être utile pour vos communications par email. Dans cet article, nous allons introduire une méthode pour envoyer un email avec une plage spécifiée directement dans le corps de l'email depuis Excel.

Envoyer un email à partir d'une plage de cellules spécifiée dans Excel
Envoyer un email à partir d'une plage de cellules spécifiée avec un outil incroyable
Plus de tutoriels pour l'envoi d'emails dans Excel...

Envoyer un email à partir d'une plage de cellules spécifiée dans Excel

Le code VBA suivant peut vous aider à copier une plage et à la coller directement dans le corps d'un email Outlook depuis Excel. Veuillez procéder comme suit.

1. Dans la feuille de calcul contenant la plage que vous devez copier, appuyez simultanément sur les touches "Alt + F11" pour ouvrir la fenêtre "Microsoft Visual Basic pour Applications".

2. Dans la fenêtre "Microsoft Visual Basic pour Applications" qui s'ouvre, veuillez cliquer sur "Outils" > "Références", comme indiqué dans la capture d'écran ci-dessous.

3. Dans la boîte de dialogue "Références – VBAProject", trouvez et cochez l'option "Bibliothèque d'objets Microsoft Outlook", puis cliquez sur le bouton OK.

4. Cliquez sur "Insérer" > "Module", puis copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Envoyer un email avec une plage spécifiée dans Excel

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Remarques :

• 1). Veuillez modifier le corps de l'email dans cette ligne du script xEmailBody = "Bonjour" & vbLf & vbLf & "corps du message que vous souhaitez ajouter" & vbLf & vbLf & xEmailBody & vbNewLine selon vos besoins.
• 2). Veuillez spécifier votre destinataire et l'objet de l'email dans cette ligne du code : (.To = happy.xuebi@163.com and .Subject = "test").

5. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools for Excel qui apparaît, sélectionnez la plage que vous devez coller dans le corps de l'email, puis cliquez sur le bouton OK. Voir la capture d'écran :

6. Maintenant, un email est créé avec le destinataire spécifié, l'objet, le corps et la plage Excel sélectionnée. Cliquez sur le bouton "Envoyer" pour envoyer cet email. Voir la capture d'écran ci-dessous.

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

Envoyer un email à partir d'une plage de cellules spécifiée avec un outil incroyable

Si vous n'utilisez pas Outlook et que vous souhaitez toujours envoyer des emails directement dans Excel avec une plage de données spécifiée insérée, je vous recommande vivement la fonctionnalité "Envoyer un email" de Kutools pour Excel. Avec cette fonctionnalité, il vous suffit de configurer le serveur sortant d'une adresse email, puis d'envoyer des emails directement via cette adresse dans Excel à l'avenir.

1. Tout d'abord, vous devez préparer une liste de diffusion avec les champs nécessaires.

• Conseils : La liste de diffusion doit contenir au moins 2 lignes, et la première ligne doit être les en-têtes (par exemple, si vous souhaitez envoyer des emails à deux adresses dans Excel, saisissez ces deux adresses avec l'en-tête "Email" comme indiqué dans la capture d'écran ci-dessous).
• 
• Alternativement, vous pouvez facilement créer une liste de diffusion avec la fonctionnalité Créer une liste de diffusion.

2. Sélectionnez la plage que vous ajouterez dans le corps de l'email et appuyez sur les touches Ctrl + C pour la copier.

3. Sélectionnez toute la liste de diffusion (y compris les en-têtes), cliquez sur "Kutools Plus" > "Envoyer des Emails". Voir la capture d'écran :

4. Ensuite, la boîte de dialogue "Envoyer des Emails" apparaît.

• 4.1) Les éléments de la liste de diffusion sélectionnée sont remplis dans les champs correspondants (vous pouvez ajouter plus de champs à la liste de diffusion selon vos besoins);
• 4.2) Cliquez dans la zone du corps de l'email, appuyez sur les touches Ctrl + V pour coller les données de la plage sélectionnée. Après cela, ajoutez d'autres contenus selon vos besoins;
• 4.3) Décochez la case "Envoyer des emails via Outlook";
• 4.4) Cliquez sur le bouton "Paramètres du serveur sortant". Voir la capture d'écran :

  

5. Ensuite, la boîte de dialogue "Paramètres du serveur sortant (SMTP) - Nouveau schéma" apparaît. Remplissez l'adresse email avec ses paramètres de serveur, spécifiez un dossier pour enregistrer tous les emails envoyés après avoir coché la case "Enregistrer les emails envoyés dans", puis cliquez sur le bouton OK pour enregistrer les paramètres.

6. Lorsque vous revenez à la boîte de dialogue "Envoyer des Emails", cliquez sur le bouton "Envoyer" pour envoyer l'email.

Articles connexes :