Vai al contenuto principale

Come inviare e-mail di massa personalizzate a un elenco da Excel tramite Outlook?

Ad esempio, ho il seguente intervallo di dati in un foglio di lavoro che contiene le colonne Nome, Indirizzo e-mail, Codice di registrazione e ora desidero inviare un messaggio con un saluto personalizzato e il proprio Codice di registrazione agli indirizzi e-mail separati nella colonna A. Per risolvere questo problema, i seguenti metodi potrebbero aiutarti.

doc invia email personalizzate 1

Invia email di massa personalizzate a un elenco da Excel con la funzione Stampa unione

Invia email di massa personalizzate a un elenco da Excel con codice VBA

Invia e-mail di massa personalizzate a un elenco con allegati diversi utilizzando Kutools per Excel


freccia blu freccia destra Invia email di massa personalizzate a un elenco da Excel con la funzione Stampa unione

Con la parola Stampa unione funzione, puoi completare questo lavoro rapidamente e facilmente, per favore fai con il seguente passo dopo passo:

1. Avvia un nuovo documento di Word vuoto, quindi fai clic su Lettere > Seleziona i destinatari > Utilizzare un elenco esistente, vedi screenshot:

doc invia email personalizzate 2

2. Nel Seleziona origine dati scegliere la cartella di lavoro che include l'intervallo di dati che si desidera utilizzare e fare clic su Apri pulsante, vedi screenshot:

doc invia email personalizzate 3

3. In arrivo Seleziona tabella finestra di dialogo, scegli il foglio di lavoro con l'intervallo di dati necessario, quindi fai clic su OK pulsante, vedi screenshot:

doc invia email personalizzate 4

4. E il documento principale del messaggio di posta elettronica e il tuo elenco di indirizzi sono stati collegati insieme, ora puoi modificare il messaggio di testo e aggiungere segnaposto che indicano dove appariranno le informazioni univoche in ciascun messaggio.

(1.) Per inserire il nome del saluto individuale, fare clic su Lettere > Inserisci campo unione > Nome, il nome personalizzato è stato inserito nel messaggio e il nome del campo è circondato da «».

doc invia email personalizzate 5

(2.) Continua a digitare il tuo messaggio e inserisci il file Codice di registrazione nel posto in cui hai bisogno, vedi screenshot:

doc invia email personalizzate 6

5. Dopo aver composto il messaggio, puoi fare clic su Risultati di anteprima sotto il Mailing scheda per visualizzare in anteprima i messaggi di posta elettronica e apportare modifiche prima di completare effettivamente l'unione.

6. Dopo esserti assicurato che non ci siano problemi, puoi inviare le e-mail a destinatari separati, fai clic su Lettere > Termina e unisci > Invia messaggio di posta elettronica, vedi screenshot:

doc invia email personalizzate 7

7. Poi nel saltò fuori Unisci a e-mail finestra di dialogo, eseguire le seguenti operazioni:

(1.) Dal A elenco a discesa, scegli Indirizzo email colonna;

(2.) È possibile digitare l'oggetto nel file Oggetto casella di testo di riga;

(3.) Dal Invia record sezione, selezionare Tutti.

doc invia email personalizzate 8

8. E poi clicca OK, le e-mail vengono inviate a destinatari separati con il proprio codice di registrazione contemporaneamente, dopo aver inviato le e-mail, puoi andare al tuo Outlook per assicurarti che le e-mail siano state inviate con successo.


Invia e-mail personalizzate a più destinatari con allegati diversi:

Con Kutools for Excel's Inviare emails caratteristica, puoi inviare rapidamente e-mail personalizzate a più destinatari con diversi allegati da Excel tramite Outlook di cui hai bisogno. Allo stesso tempo, puoi anche inviare in CC o Ccn i messaggi a una persona specifica.       Scarica e prova gratuitamente Kutools per Excel adesso!

doc invia email personalizzate 18 1


freccia blu freccia destra Invia email di massa personalizzate a un elenco da Excel con codice VBA

Ad eccezione della funzione Stampa unione, anche il seguente codice VBA può farti un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: invia email di massa personalizzate a un elenco da 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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri utilizzare, vedi screenshot:

doc invia email personalizzate 9

4. E poi clicca OK pulsante, le e-mail verranno inviate a indirizzi separati con il loro codice di registrazione individuale una per una, dopo aver inviato le e-mail, puoi andare su Outlook per assicurarti che le e-mail siano state inviate con successo.

Note:: Nel codice sopra, puoi modificare l'oggetto o il corpo del messaggio secondo le tue necessità.


freccia blu freccia destra Invia e-mail di massa personalizzate a un elenco con allegati diversi utilizzando Kutools per Excel

Se si dispone di Kutools for Excel, Con la sua Inviare emails funzione, puoi inviare rapidamente e-mail personalizzate a più destinatari con allegati diversi di cui hai bisogno.

Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. 

Dopo l'installazione Kutools for Excel, per favore fai come questo:

1. Clic Kutools Plus > Inviare emails, vedi screenshot:

2. Nel Invia Emials finestra di dialogo, selezionare l'intervallo di dati che si desidera utilizzare, quindi specificare gli indirizzi del destinatario, gli allegati e l'oggetto di cui hai bisogno, vedi screenshot:

doc invia email personalizzate 9

3. Nella casella di modifica, inserisci i nomi dei singoli annunci, scegli Nome dall'elenco a discesa, quindi fare clic su Inserisci segnaposto per inserire i nomi nel messaggio, vedi screenshot:

doc invia email personalizzate 9

4. Quindi digita il corpo del messaggio nella casella di cui hai bisogno, vedi screenshot:

doc invia email personalizzate 9

5. Dopo aver terminato il corpo dell'e-mail, scegli la modalità di invio che desideri, puoi inviare utilizzando Outlook o il server specificato, vedi screesnhot:

doc invia email personalizzate 9

Note:: Se desideri utilizzare un altro server, fai clic su Impostazioni del server in uscita per impostare la modalità di invio in modo personalizzato, vedere screesnhot:

doc invia email personalizzate 9

6. Finalmente, clicca Invia pulsante per inviare le e-mail, dopo aver completato, verrà visualizzata una finestra di messaggio per ricordare lo stato dell'invio. vedi screesnhot:

doc invia email personalizzate 9

Fai clic su Scarica e prova gratuita Kutools per Excel adesso!


Demo: invia messaggi di posta elettronica di massa personalizzati a un elenco da Excel tramite Outlook

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

Articolo correlato:

Come inviare e-mail a più destinatari in un elenco da Excel tramite Outlook?

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

scheda kte 201905


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have used this from your Kutools for Excel, and it works a dream. However, the Outlook email signature is not working, despite it being checked off. I have a default email signature set up in Outlook to go with the default mail account. But no matter how many times I try, I can't get Kutools to insert the signature before sending the email. Should I be doing something different in Outlook with the email signature?
This comment was minimized by the moderator on the site
Hello, Rochelley
Did you select the signature from the Outlook's Signatures and Stationery dialog box, see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-signature-1.png
Please check it first, thank you!

If there still problem, please comment here.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
Hello, Blanchard

With our Send Emails feature, you can send the links of the shared files successfully.
You just need to change the attachment path to the link of the shared file, see below screenshot:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-bulk-send-emails.png

Please try, hope it can help you!

If this doesn't work, you can upload your error image here, so that we can check the problem.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
In "Send personalized mass emails to a list from Excel with VBA code", it cannot work.For starters, the instructions wrt F11 does nothing, and so useless blather.Next, the #If...#End If cannot exist anywhere, as it (1) is treated as a comment and (2) the compiler crashes (cannot compile).So one tries it after the End Sub because the compiler says in effect comments to be after End Sub.Naturally, the "ShellExecute" causes a crash because it is not declared: remember, the #If...#End If had to be removed.
It would be nice to have WORKING code.
This comment was minimized by the moderator on the site
Thanks for the "How To Send Personalized Mass Emails To A List From Excel Via Outlook?", it is very useful.Question: I have 2 email addresses on my outlook. I want to use the 2nd one to send the personalized mass emails. How should I do that? I cannot find the way of changing the "From" when I finish&Merge. Can you help?
This comment was minimized by the moderator on the site
Hello, Pilar,The normal Mail Merge function only can help to send the emials from the default account, if you want to send eamils from other account you defined, you can use our Send Emails feature of Kutools for Excel. You can download and installed the Kutools for Excel, free trial 30 days.Please try, hope it can help you!
This comment was minimized by the moderator on the site
<p>Could you please help me to include table structure in below code ?</p><p>Gopalakrishnan</p>
This comment was minimized by the moderator on the site
I used the kutools send mail option after sending mail theres no attachment
This comment was minimized by the moderator on the site
Hi, marian,
Do you type the full path of the attachments into the cells? Please check it. Thank you!
This comment was minimized by the moderator on the site
No I didn't type the path rather I used the insert link button to add the attachment
This comment was minimized by the moderator on the site
Hi, I have to send to one email address(BOT) multiple request for *documents.
* Subject line needs to be the document reference number as demonstrated in below table.
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110

please help me simplyfy my task. I use MS outlook 2013 and 2016
This comment was minimized by the moderator on the site
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations