Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com enviar correus electrònics massius personalitzats a una llista d'Excel a través d'Outlook?

Per exemple, tinc el següent rang de dades en un full de càlcul que conté columnes de nom, adreça de correu electrònic, codi de registre i ara, vull enviar un missatge amb una salutació personalitzada i el seu propi codi de registre a les adreces electròniques separades a la columna A. Per resoldre aquest problema, els següents mètodes us poden ajudar.

doc envieu correus electrònics personalitzats 1

Envia correus electrònics massius personalitzats a una llista d'Excel amb funció de combinació de correu

Envia correus electrònics massius personalitzats a una llista d'Excel amb codi VBA

Envia correus electrònics massius personalitzats a una llista amb diferents fitxers adjunts mitjançant l'ús de Kutools for Excel


Envieu correus electrònics personalitzats a diversos destinataris amb diferents fitxers adjunts:

amb Kutools for Excel's Enviar correus electrònics , podeu enviar correus electrònics personalitzats a diversos destinataris amb diferents fitxers adjunts d'Excel a través d'Outlook tal com necessiteu. Al mateix temps, també podeu CC o Bcc els missatges a una persona específica. Baixeu i prova gratuïtament a Kutools per a Excel ara!

doc envieu correus electrònics personalitzats 18 1


fletxa blau dreta bombolla Envia correus electrònics massius personalitzats a una llista d'Excel amb funció de combinació de correu


Amb el Word's Correu de correu funció, podeu acabar aquesta tasca de manera ràpida i senzilla, feu el següent pas a pas:

1. Inicieu un nou document de Word en blanc i, a continuació, feu clic a Correus > Seleccioneu Destinataris > Utilitzeu una llista existent, veure captura de pantalla:

doc envieu correus electrònics personalitzats 2

2. Al Seleccioneu l'origen de dades finestra, seleccioneu el llibre que inclou l'interval de dades que voleu utilitzar i feu clic a obert botó, veure captura de pantalla:

doc envieu correus electrònics personalitzats 3

3. En el pròxim Selecciona la taula quadre de diàleg, seleccioneu el full de treball amb l'interval de dades que necessiteu i, a continuació, feu clic a OK botó, veure captura de pantalla:

doc envieu correus electrònics personalitzats 4

4. I el document principal del missatge de correu electrònic i la vostra llista d'adreces s'han connectat junts, ara podeu editar el missatge de text i afegir marcadors de posició que indiquin on apareixerà la informació única a cada missatge.

(1.) Per inserir el seu nom de salutació individual, feu clic a Correus > Insereix un camp de combinació > Nom, el nom personalitzat s'ha inserit al missatge i el nom del camp està envoltat «».

doc envieu correus electrònics personalitzats 5

(2.) Continua escrivint el missatge i inseriu-lo Codi de registre en el lloc on necessiteu, vegeu la captura de pantalla:

doc envieu correus electrònics personalitzats 6

5. Després de compondre el missatge, podeu fer clic Resultats de vista prèvia under the Enviament fitxa per previsualitzar missatges de correu electrònic i fer canvis abans de completar la fusió.

6. Després d'assegurar-vos que no hi hagi cap problema, podeu enviar els correus electrònics als destinataris separats, feu clic a Correus > Finalitza i fusiona > Enviar missatge de correu electrònic, veure captura de pantalla:

doc envieu correus electrònics personalitzats 7

7. Després va sortir Fusionar-vos per correu electrònic quadre de diàleg, realitzeu les operacions següents:

(1.) Des del A llista desplegable, seleccioneu Correu electrònic columna;

(2.) Podeu escriure el tema a la finestra Assumpte quadre de text de línia;

(3.) Des del Enviar registres secció, seleccioneu tots.

doc envieu correus electrònics personalitzats 8

8. A continuació, feu clic a OK, els correus electrònics s'envien a destinataris separats amb el seu propi codi de registre alhora, després d'enviar els correus electrònics, podeu anar al vostre Outlook per assegurar-vos que els correus electrònics s'hagin enviat correctament.


fletxa blau dreta bombolla Envia correus electrònics massius personalitzats a una llista d'Excel amb codi VBA

Excepte la funció de combinació de correspondència, el següent codi VBA també pot fer-vos un favor, fes-ho així:

1. Mantingueu premut el botó ALT + F11 tecles i obre el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu el següent codi al Mòduls Finestra.

Codi VBA: envieu correus electrònics massius personalitzats a una llista 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. A continuació, premeu F5 la clau per executar aquest codi i apareixerà una caixa ràpida per recordar-vos que seleccioneu l'interval de dades que voleu utilitzar, vegeu la captura de pantalla:

doc envieu correus electrònics personalitzats 9

4. A continuació, feu clic a OK , els correus electrònics s'enviaran a adreces separades amb el seu codi de registre individual un per un, després d'enviar els correus electrònics, podeu anar al vostre Outlook per assegurar-vos que els correus electrònics s'hagin enviat correctament.

Nota: En el codi anterior, podeu canviar el missatge del subjecte o del cos a la vostra necessitat.


fletxa blau dreta bombolla Envia correus electrònics massius personalitzats a una llista amb diferents fitxers adjunts mitjançant l'ús de Kutools for Excel

Si vostè té Kutools for Excel, Amb la seva Enviar correus electrònics , podeu enviar missatges de correu electrònic personalitzats a diversos destinataris amb diferents fitxers adjunts com necessiteu.

Kutools for Excel : amb més complements útils de 300 d'Excel, lliures per intentar sense limitacions en 60 dies.

Després d'instal·lar Kutools for Excel, fes el següent:

1. Clic empresa > Enviar correus electrònics, veure captura de pantalla:

doc envieu correus electrònics personalitzats 9

2. Al Envia Emials quadre de diàleg, seleccioneu l'interval de dades que voleu utilitzar i, a continuació, especifiqueu les adreces del destinatari, els fitxers adjunts i el tema que necessiteu, vegeu la captura de pantalla:

doc envieu correus electrònics personalitzats 9

3. Al quadre d'edició, inseriu els noms de salutació individuals, seleccioneu Nom des de la llista desplegable i, a continuació, feu clic a Insereix espai reservat per inserir els noms al missatge, vegeu la captura de pantalla:

doc envieu correus electrònics personalitzats 9

4. A continuació, escriviu el cos del missatge al quadre que necessiteu, vegeu la captura de pantalla:

doc envieu correus electrònics personalitzats 9

5. Després d'acabar el cos del correu electrònic, seleccioneu el mode d'enviament que vulgueu, podeu enviar-lo usant Outlook o el vostre servidor especificat, consulteu screesnhot:

doc envieu correus electrònics personalitzats 9

Nota: Si voleu utilitzar un altre servidor, feu clic a Configuració del servidor sortint per configurar el mode d'enviament pel vostre compte, consulteu screesnhot:

doc envieu correus electrònics personalitzats 9

6. Per fi, feu clic a enviar botó per enviar els correus electrònics, un cop completat, apareixerà un quadre de comandaments per recordar-vos l'estat de l'enviament. vegeu screesnhot:

doc envieu correus electrònics personalitzats 9

Feu clic a Descarregueu i prova gratuïtament a Kutools per a Excel ara.


Demostració: envieu correus electrònics massius personalitzats a una llista d'Excel a través d'Outlook

Kutools for Excel: amb més complements Excel de 200, gratuïts per intentar sense limitacions en 60 dies. Baixada i prova gratuïta Ara!


Article relacionat:

Com enviar correu electrònic a diversos destinataris en una llista d'Excel a través d'Outlook?



Eines de productivitat recomanades

Pestanya d'Office

estrella d&#39;or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d&#39;or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d&#39;or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a 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 · 5 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 · 4 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 · 8 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 · 3 months ago
      I want to know how to make it. Can you tell me?
    • To post as a guest, your comment is unpublished.
      Pulkit · 10 months 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 :(