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 personnalisés à plusieurs destinataires avec différentes pièces jointes : Avec la fonctionnalité Envoyer des e-mails de Kutools pour Excel, vous pouvez rapidement envoyer des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes depuis Excel via Outlook selon vos besoins. En même temps, vous pouvez mettre en copie (CC) ou en copie cachée (CCI) les messages à une personne spécifique. Téléchargez et essayez gratuitement Kutools pour Excel dès maintenant !
|
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 ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels