Comment envoyer des e-mails de masse personnalisés à une liste depuis 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, Code d'enregistrement, et maintenant, je souhaite envoyer un message avec un message d'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.
Envoyez des e-mails de masse personnalisés à une liste d'Excel avec la fonction de publipostage
Envoyez des e-mails de masse personnalisés à une liste d'Excel avec le code VBA
Envoyez des e-mails de masse personnalisés à une liste avec différentes pièces jointes à l'aide de Kutools for Excel
Envoyez des e-mails de masse personnalisés à une liste d'Excel avec la fonction de publipostage
Avec les mots Publipostage fonction, vous pouvez terminer ce travail rapidement et facilement, veuillez suivre étape par étape:
1. Lancez un nouveau document Word vierge, puis cliquez sur Mailings > Sélectionner les destinataires > Utiliser une liste existante, voir capture d'écran:
2. Dans le Sélectionnez la source de données fenêtre, choisissez le classeur qui comprend la plage de données que vous souhaitez utiliser, puis cliquez sur Ouvert bouton, voir capture d'écran:
3. À venir Sélectionner une table boîte de dialogue, veuillez choisir la feuille de calcul avec la plage de données dont vous avez besoin, puis cliquez sur OK bouton, voir capture d'écran:
4. Et le document principal du message électronique et votre liste d'adresses ont été connectés ensemble, maintenant, vous pouvez modifier le message texte et ajouter des espaces réservés qui indiquent où les informations uniques apparaîtront dans chaque message.
(1.) Pour insérer leur nom de message d'accueil individuel, cliquez sur Mailings > Insérer un champ de fusion > Nom, le nom personnalisé a été inséré dans le message et le nom du champ est entouré de «».
(2.) Continuez à taper votre message et insérez le Code d'enregistrement à l'endroit où vous avez besoin, voir capture d'écran:
5. Après avoir rédigé le message, vous pouvez cliquer sur Résultats de l'aperçu sous le Mailing onglet pour afficher un aperçu des messages électroniques et apporter des modifications avant de terminer la fusion.
6. Après vous être assuré qu'il n'y a pas de problème, vous pouvez envoyer les e-mails aux différents destinataires, veuillez cliquer sur Mailings > Terminer et fusionner > Envoyer un message électronique, voir capture d'écran:
7. Puis dans le sauté Fusionner avec un e-mail boîte de dialogue, effectuez les opérations suivantes:
(1.) Du À liste déroulante, veuillez choisir Adresse e-mail colonne;
(2.) Vous pouvez saisir le sujet dans le Sujet zone de texte de ligne;
(3.) Du Envoyer des enregistrements section, sélectionnez Tous.
8. Et puis cliquez OK, les e-mails sont envoyés à des destinataires séparés avec leur propre code d'enregistrement à la fois, après l'envoi des e-mails, vous pouvez accéder à votre Outlook pour vous assurer que les e-mails ont été envoyés avec succès.
Envoyez des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes:
Avec Kutools for Excel's Envoyer des emails fonctionnalité, vous pouvez rapidement envoyer des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes d'Excel via Outlook selon vos besoins. Dans le même temps, vous pouvez également CC ou Cci les messages à une personne spécifique. Téléchargez et essayez gratuitement Kutools pour Excel maintenant ! |
Envoyez des e-mails de masse personnalisés à une liste d'Excel avec le code VBA
À l'exception de la fonction de publipostage, le code VBA suivant peut également vous rendre service, procédez comme suit:
1. Maintenez le ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: Envoyez des e-mails de masse personnalisés à une liste depuis 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. Puis appuyez F5 clé 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. Et puis cliquez OK bouton, les e-mails seront envoyés à des adresses séparées avec leur code d'enregistrement individuel un par un, après l'envoi des e-mails, vous pouvez accéder à votre Outlook pour vous assurer que les e-mails ont été envoyés avec succès.
Notes: Dans le code ci-dessus, vous pouvez modifier l'objet ou le corps du message selon vos besoins.
Envoyez des e-mails de masse personnalisés à une liste avec différentes pièces jointes à l'aide de Kutools for Excel
Si vous avez Kutools for Excel, Avec son Envoyer des emails fonctionnalité, vous pouvez rapidement envoyer des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes selon vos besoins.
Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools for Excel, veuillez faire comme ceci:
1Cliquez sur Kutools Plus > Envoyer des emails, voir capture d'écran:
2. Dans le Envoyer des e-mails boîte de dialogue, veuillez sélectionner la plage de données que vous souhaitez utiliser, puis spécifiez les adresses des destinataires, les pièces jointes et le sujet 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 selon vos besoins, voir capture d'écran:
5. Après avoir terminé le corps de l'e-mail, veuillez choisir le mode d'envoi comme vous le souhaitez, vous pouvez envoyer en utilisant Outlook ou votre serveur spécifié, voir screesnhot:
Notes: Si vous souhaitez utiliser un autre serveur, cliquez sur Paramètres du serveur sortant pour définir le mode d'envoi sur le vôtre, voir screesnhot:
6. Enfin, cliquez Envoyer bouton pour envoyer les e-mails, après avoir terminé, une boîte de dialogue apparaîtra pour vous rappeler l'état d'envoi. voir screesnhot:
Cliquez sur Télécharger et essayer gratuitement Kutools for Excel Now!
Démo: envoyer des e-mails de masse personnalisés à une liste à partir d'Excel via Outlook
Article connexe:
Comment envoyer un e-mail à plusieurs destinataires dans une liste depuis Excel via Outlook?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition 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é de 50% et réduit des centaines de clics de souris chaque jour!