Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment envoyer des emails de masse personnalisés à une liste d'Excel via Outlook?

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

doc envoyer des emails personnalisés 1

Envoyer des e-mails de masse personnalisés à une liste à partir d'Excel avec la fonction de fusion et publipostage

Envoyer des courriels de masse personnalisés à une liste d'Excel avec le code VBA

Envoyer des emails de masse personnalisés à une liste avec différentes pièces jointes en utilisant Kutools for Excel


Envoyez des courriels personnalisés à plusieurs destinataires avec différentes pièces jointes:

Avec Kutools for Excel's Envoyer des emails fonction, vous pouvez envoyer rapidement des courriers électroniques personnalisés à plusieurs destinataires avec différentes pièces jointes à partir d’Excel via Outlook selon vos besoins. Dans le même temps, vous pouvez également CC ou Cci les messages adressés à une personne spécifique. Télécharger et tester gratuitement Kutools for Excel maintenant!

doc envoyer des emails personnalisés 18 1


flèche bleue droite bulle Envoyer des e-mails de masse personnalisés à une liste à partir d'Excel avec la fonction de fusion et publipostage


Avec les mots Publipostage fonction, vous pouvez terminer ce travail rapidement et facilement, s'il vous plaît faire avec les étapes suivantes:

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

doc envoyer des emails personnalisés 2

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

doc envoyer des emails personnalisés 3

3. À venir Sélectionner une table Dans la boîte de dialogue, choisissez la feuille de travail avec la plage de données dont vous avez besoin, puis cliquez sur OK bouton, voir capture d'écran:

doc envoyer des emails personnalisés 4

4. Et le document principal de 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ù l'information unique apparaîtra 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é «».

doc envoyer des emails personnalisés 5

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

doc envoyer des emails personnalisés 6

5. Après avoir composé le message, vous pouvez cliquer Résultats de l'aperçu sous le Mailing onglet 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 pas de problème, vous pouvez envoyer les e-mails aux destinataires séparés, cliquez sur Mailings > Terminer et fusionner > Envoyer un message électronique, voir capture d'écran:

doc envoyer des emails personnalisés 7

7. Puis dans le sauté Fusionner vers E-mail boîte de dialogue, effectuez les opérations suivantes:

(1.) De la À liste déroulante, s'il vous plaît choisir Adresse e-mail colonne;

(2.) Vous pouvez saisir le sujet dans le Sujet ligne de texte de ligne;

(3.) De la Envoyer des enregistrements section, sélectionnez Tout.

doc envoyer des emails personnalisés 8

8. Et puis cliquez OK, les e-mails sont envoyés à des destinataires distincts avec leur propre code d'enregistrement à la fois, après l'envoi des e-mails, vous pouvez aller à votre Outlook pour vous assurer que les e-mails ont été envoyés avec succès.


flèche bleue droite bulle Envoyer des courriels de masse personnalisés à une liste d'Excel avec le code VBA

Excepté la fonction Fusion et publipostage, le code VBA suivant peut également vous faire une faveur, s'il vous plaît faites comme ceci:

1. Maintenez le ALT + F11 clés, et il ouvre la Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Envoyez des emails 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:

doc envoyer des emails personnalisés 9

4. Et puis cliquez OK bouton, les e-mails seront envoyés à des adresses distinctes avec leur code d'enregistrement individuel un par un, après l'envoi des e-mails, vous pouvez aller à votre Outlook pour vous assurer que les e-mails ont été envoyés avec succès.

Note: Dans le code ci-dessus, vous pouvez modifier le sujet ou le corps du message à votre besoin.


flèche bleue droite bulle Envoyer des emails de masse personnalisés à une liste avec différentes pièces jointes en utilisant Kutools for Excel

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

Kutools for Excel : avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Excel, faites comme ceci:

1. Cliquez Entreprise > Envoyer des emails, voir capture d'écran:

doc envoyer des emails personnalisés 9

2. Dans le Envoyer des Emials boîte de dialogue, sélectionnez la plage de données que vous souhaitez utiliser, puis spécifiez les adresses de destinataire, les pièces jointes et le sujet selon vos besoins, voir capture d'écran:

doc envoyer des emails personnalisés 9

3. Dans la zone d'édition, insérez les noms des messages d'accueil individuels, choisissez 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:

doc envoyer des emails personnalisés 9

4. Puis tapez votre corps de message dans la boîte comme vous avez besoin, voir capture d'écran:

doc envoyer des emails personnalisés 9

5. Après avoir terminé le corps de l'e-mail, s'il vous plaît choisir le mode d'envoi que vous voulez, vous pouvez envoyer en utilisant Outlook ou votre serveur spécifié, voir screesnhot:

doc envoyer des emails personnalisés 9

Note: Si vous souhaitez utiliser un autre serveur, cliquez sur Paramètres du serveur sortant pour régler le mode d'envoi sur le vôtre, voir screesnhot:

doc envoyer des emails personnalisés 9

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:

doc envoyer des emails personnalisés 9

Cliquez sur Télécharger et tester gratuitement Kutools for Excel Now!


Demo: Envoyer des emails de masse personnalisés à une liste d'Excel via Outlook

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Article connexe:

Comment envoyer un email à plusieurs destinataires dans une liste d'Excel via Outlook?



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    hiba · 7 months ago
    I have a list of email addresses in excel that i need to send emails to The subject and body are in cells besides the email address and i have the script below but i need to send 100 emails per 1 hour how i can please your support

    Sub SendEm()
    Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    Set Mail_Object = CreateObject("Outlook.Application")
    For i = 2 To lr
    With Mail_Object.CreateItem(o)
    .Subject = Range("B" & i).Value
    .To = Range("A" & i).Value

    .Body = Range("C" & i).Value
    .attachments.Add (Sheets("Sheet1").Range("H" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("I" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("J" & i).Text)
    .attachments.Add (Sheets("Sheet1").Range("K" & i).Text)
    .Send

    '.display 'disable display and enable send to send automatically
    End With
    Next i
    MsgBox "E-mail successfully sent", 64
    Application.DisplayAlerts = False
    Set Mail_Object = Nothing
    End Sub
    • To post as a guest, your comment is unpublished.
      skyyang · 6 months ago
      Hello, hiba,
      Our Kutools for Excel's Send Emails can help you to solve your problem. Please set the conditions as following screenshot shown:
      With this feature, you can also apply the CC, BCC feature, and you can insert multiple attachments as well.
  • To post as a guest, your comment is unpublished.
    Terrence · 10 months ago
    Thanks!!

    But I have trying to do the test and is nothing sending out to the emai. Also no error message.. May I know what happened?
  • To post as a guest, your comment is unpublished.
    steven · 1 years ago
    what if I have data for alot of customers and some customers have more then 1 data... and I dont want to send seperate mails to the customers, but maybe send it in a tabular format in the email. How can I send just 1 email to a customer.
    • To post as a guest, your comment is unpublished.
      Sally · 5 months ago
      I want to know how to make it. Can you tell me?
    • To post as a guest, your comment is unpublished.
      Pulkit · 1 years ago
      Hi Steven, did you find a way to get this done. We can help you with a simple online web portal
  • To post as a guest, your comment is unpublished.
    surajit sen · 1 years ago
    how to cc people in this?
  • To post as a guest, your comment is unpublished.
    Arvind Jadhav · 1 years ago
    hi Skyyang,
    i need to attach different pdf file for each mail. can you help please??
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Arvind,
      The Kutools can help you to add multiple different attachments when sending emails.
      First you should insert the path of the attachments into the cells, and then apply the Kutools, please view the following screenshot:
      Hope it can help you, thank you!
      • To post as a guest, your comment is unpublished.
        Arvind Jadhav · 1 years ago
        hi Skyyang,
        i used your below code to send mail and is working perfect, is there anything you can help me to modify in code for sending pdf attachments along.
        i need to send more than 100 mails so is quit difficult to attach file each time. is Kutools work as per given path and send mail automatically?
        • To post as a guest, your comment is unpublished.
          Arvind Jadhav · 1 years ago
          hey,
          can you help me with attachment.add function? with your above VBA code i need to sent attachment.
          i cant use Kutools :(