Come inviare email personalizzate in massa a una lista di destinatari da Excel tramite Outlook?
Ad esempio, nel mio foglio di lavoro ho un intervallo dati con le colonne Nome, Indirizzo Email e Codice di registrazione; desidero inviare un messaggio personalizzato — che includa un saluto e il relativo Codice di registrazione — a ciascun indirizzo email presente nella colonna A. Per risolvere questo problema, i seguenti metodi potrebbero esserti utili.
Invia email personalizzate in massa a una lista da Excel con la funzione Stampa unione
Invia email personalizzate in massa a una lista da Excel con codice VBA
Invia email personalizzate in massa a una lista con allegati diversi utilizzando Kutools per Excel
Invia email personalizzate in massa a una lista da Excel con la funzione Stampa unione
Con la funzione Stampa unionedi Word, puoi completare rapidamente e facilmente questa operazione; procedi come segue:
1.Apri un nuovo documento vuoto di Word, quindi fai clic su Corrispondenza>Seleziona Destinatario>Usa un elenco esistente, vedi screenshot:
2. Nella finestra Origine dati, seleziona la cartella di lavoro che contiene l’intervallo dati che desideri utilizzare e fai clic sul pulsante Apri. Vedi screenshot:
3. Nella successiva finestra di dialogo Seleziona tabella, scegli il foglio di lavoro con l’intervallo dati necessario, quindi fai clic sul pulsante OK. Vedi screenshot:
4. Il messaggio email del documento principale e il tuo elenco indirizzi sono ora collegati: puoi modificare il testo del messaggio e inserire segnaposto per indicare dove apparirà l’informazione personalizzata in ciascun messaggio.
(1.) Per inserire il nome personale di ciascun destinatario, fai clic su Corrispondenza > Inserisci campo unione > Nome; il nome personalizzato verrà inserito nel messaggio e il campo Nome sarà racchiuso tra « ».
(2.) Prosegui digitando il tuo messaggio e inserisci il Codice di registrazionenel punto desiderato, vedi screenshot:
5. Dopo aver composto il messaggio, puoi fare clic su Anteprima risultato nella scheda Corrispondenza per visualizzare in anteprima i messaggi email e apportare modifiche prima di completare effettivamente l'unione.
6. Dopo aver verificato che non ci siano problemi, puoi inviare le email ai singoli destinatari: fai clic su Corrispondenza > Completa e unisci > Invia messaggio di posta elettronica. Vedi screenshot:
7. Nella finestra di dialogo Unione verso posta elettronica che compare, esegui le seguenti operazioni:
(1.) Dall'elenco a discesa A, seleziona la colonna Indirizzo_email;
(2.) Digita l'oggetto nella casella di testo Oggetto;
(3.) Nella sezione Record da inviare, seleziona Tutti.
8. Fai quindi clic su OK: le email vengono inviate immediatamente ai singoli destinatari con il loro codice di registrazione personale. Dopo l'invio, puoi verificare direttamente in Outlook che siano state spedite correttamente.
Invia email personalizzate a più destinatari con allegati diversi: Grazie alla funzione Invia email di Kutools per Excel, puoi inviare rapidamente email personalizzate a più destinatari con allegati diversi direttamente da Excel tramite Outlook, in base alle tue esigenze. Inoltre, puoi anche mettere in CC o Ccn i messaggi a una persona specifica.Scarica e prova gratuitamente Kutools per Excel ora!
|
Invia email personalizzate in massa a una lista da Excel con codice VBA
Oltre alla funzione Stampa unione, anche il seguente codice VBA può esserti d'aiuto; procedi come segue:
1. Tieni premuti i tasti ALT + F11: si aprirà la finestra di Microsoft Visual Basic, Applications Edition.
2. Fai clic su Inserisci > Modulo, quindi incolla il seguente codice nella finestra del Modulo.
Codice VBA: Invia email personalizzate in massa a una lista 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.Premi quindi il tasto F5per eseguire il codice; apparirà una finestra che ti chiederà di selezionare il Intervallo dati da utilizzare, vedi screenshot:
4. Fai quindi clic su OK: le email verranno inviate singolarmente a ciascun indirizzo con il relativo codice di registrazione. Dopo l’invio, potrai verificare direttamente in Outlook che siano state spedite correttamente.
Nota: Nel codice precedente, puoi personalizzare l'oggetto o il corpo del messaggio in base alle tue esigenze.
Invia email personalizzate in massa a una lista con allegati diversi utilizzando Kutools per Excel
Se possiedi Kutools per Excel, grazie alla sua funzione Invia email, puoi inviare rapidamente email personalizzate a più destinatari con allegati diversi, esattamente come richiesto dalle tue esigenze.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Fai clic su KUTOOLS PLUS > Invia email, vedi screenshot:
2. Nella finestra di dialogo Invia email, seleziona l’intervallo di dati che desideri utilizzare, quindi specifica indirizzi dei destinatari, allegati e oggetto in base alle tue esigenze. Vedi screenshot:
3. Per inserire i nomi personalizzati nel campo del messaggio, seleziona Nome dall'elenco a discesa, quindi fai clic su Inserisci segnaposto per aggiungere i nomi al messaggio. Vedi screenshot:
4. Digita quindi il corpo del messaggio nella casella, come necessario. Vedi screenshot:
5. Dopo aver completato il corpo dell'email, scegli la modalità di invio desiderata: puoi inviare tramite Outlook oppure tramite un server specifico. Vedi screenshot:
Nota: Se desideri utilizzare un altro server, fai clic su Impostazioni SMTPper impostare la modalità di invio in base alle tue esigenze, vedi screenshot:
6. Infine, fai clic sul pulsante Invia per spedire le email; al termine, apparirà una finestra che ti informerà sullo stato dell'invio. Vedi screenshot:
Clicca su Scarica e prova subito Kutools per Excel gratuitamente!
Demo: Invia email personalizzate in massa a una lista da Excel tramite Outlook
Articolo correlato:
Come inviare email a più destinatari presenti in una lista di Excel tramite Outlook?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi