Comment envoyer des e-mails de masse personnalisés à partir d'une liste Excel via Outlook ?

Par exemple, j'ai la plage de données suivante dans une feuille de calcul qui contient les colonnes Nom, Adresse e-mail et Code d'enregistrement, et maintenant, je souhaite envoyer un message avec un accueil personnalisé et leur propre Code d'enregistrement aux adresses e-mail séparées dans la colonne A. Pour résoudre ce problème, les méthodes suivantes peuvent vous aider.

Envoyer des e-mails de masse personnalisés à partir d'Excel avec la fonction Publipostage

Envoyer des e-mails de masse personnalisés à partir d'Excel avec du code VBA

Envoyer des e-mails de masse personnalisés avec différentes pièces jointes en utilisant Kutools pour Excel

Envoyer des e-mails de masse personnalisés à partir d'Excel avec la fonction Publipostage

Avec la fonction Publipostage de Word, vous pouvez accomplir cette tâche rapidement et facilement, suivez les étapes ci-dessous :

1. Ouvrez un nouveau document Word vierge, puis cliquez sur Mails > Sélectionner les destinataires > Utiliser une liste existante, voir capture d'écran :

2. Dans la fenêtre Sélectionner la source de données, choisissez le classeur qui inclut la plage de données que vous souhaitez utiliser, puis cliquez sur le bouton Ouvrir, voir capture d'écran :

3. Dans la boîte de dialogue Sélectionner une table qui apparaît ensuite, veuillez choisir la feuille de calcul avec la plage de données dont vous avez besoin, puis cliquez sur le bouton OK, voir capture d'écran :

4. Et le document principal du message électronique ainsi que votre liste d'adresses ont été connectés ensemble, vous pouvez maintenant modifier le texte du message et ajouter des espaces réservés indiquant où les informations uniques apparaîtront dans chaque message.

(1.) Pour insérer leurs noms de salutation individuels, cliquez sur Mails > Insérer un champ de fusion > Nom, le nom personnalisé a été inséré dans le message, et le nom du champ est entouré par « ».

(2.) Continuez à taper votre message et insérez le Code d'enregistrement à l'endroit où vous en avez besoin, voir capture d'écran :

5. Après avoir composé le message, vous pouvez cliquer sur Aperçu des résultats sous l'onglet Mailing pour prévisualiser les messages électroniques et apporter des modifications avant de terminer la fusion.

6. Après vous être assuré qu'il n'y a aucun problème, vous pouvez envoyer les e-mails aux destinataires séparés, veuillez cliquer sur Mails > Terminer et fusionner > Envoyer le message électronique, voir capture d'écran :

7. Ensuite, dans la boîte de dialogue Fusion vers e-mail qui s'affiche, effectuez les opérations suivantes :

(1.) Dans la liste déroulante À, choisissez la colonne Adresse_E-mail ;

(2.) Vous pouvez taper l'objet dans la zone de texte Ligne d'objet ;

(3.) Dans la section Envoyer les enregistrements, sélectionnez Tout.

8. Puis cliquez sur OK, les e-mails sont envoyés aux destinataires séparés avec leur propre code d'enregistrement immédiatement, après l'envoi des e-mails, vous pouvez aller dans votre Outlook pour vous assurer que les e-mails ont été envoyés avec succès.

Envoyer des e-mails de masse personnalisés à partir d'Excel avec du code VBA

Outre la fonction Publipostage, le code VBA suivant peut également vous aider, procédez comme suit :

1. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Envoyer des e-mails de masse personnalisés à partir d'Excel :

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données que vous souhaitez utiliser, voir capture d'écran :

4. Cliquez ensuite sur le OK, les e-mails seront envoyés aux adresses séparées avec leur code d'enregistrement individuel un par un, après l'envoi des e-mails, vous pouvez aller dans votre Outlook pour vous assurer que les e-mails ont été envoyés avec succès.

Remarque : Dans le code ci-dessus, vous pouvez modifier l'objet ou le corps du message selon vos besoins.

Envoyer des e-mails de masse personnalisés avec différentes pièces jointes en utilisant Kutools pour Excel

Si vous avez Kutools pour Excel, avec sa fonctionnalité Envoyer des e-mails, vous pouvez rapidement envoyer des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes selon vos besoins.

Après avoir installé Kutools pour Excel, procédez comme suit :

1. Cliquez sur Kutools Plus > Envoyer des e-mails, voir capture d'écran :

2. Dans la boîte de dialogue Envoyer des e-mails, veuillez sélectionner la plage de données que vous souhaitez utiliser, puis spécifiez les adresses des destinataires, les pièces jointes et l'objet selon vos besoins, voir capture d'écran :

3. Dans la zone d'édition, insérez les noms de salutation individuels, veuillez choisir Nom dans la liste déroulante, puis cliquez sur Insérer un espace réservé pour insérer les noms dans le message, voir capture d'écran :

4. Tapez ensuite le corps de votre message dans la zone comme vous le souhaitez, voir capture d'écran :

5. Après avoir terminé le corps de l'e-mail, veuillez choisir le mode d'envoi que vous souhaitez, vous pouvez envoyer en utilisant Outlook ou votre serveur spécifié, voir capture d'écran :

Remarque : Si vous souhaitez utiliser un autre serveur, cliquez sur Paramètres SMTP pour définir le mode d'envoi à votre convenance, voir capture d'écran :

6. Enfin, cliquez sur le bouton Envoyer pour envoyer les e-mails, après achèvement, une boîte de dialogue apparaîtra pour vous informer de l'état d'envoi. Voir capture d'écran :

Cliquez pour télécharger et essayer gratuitement Kutools pour Excel dès maintenant !

Démo : Envoyer des e-mails de masse personnalisés à partir d'une liste Excel via Outlook

Article connexe :

Comment envoyer un e-mail à plusieurs destinataires dans une liste Excel via Outlook ?