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.
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
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:
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:
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:
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 «».
(2.) Continua a digitare il tuo messaggio e inserisci il file Codice di registrazione nel posto in cui hai bisogno, vedi screenshot:
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:
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.
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! |
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:
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à.
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:
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:
4. Quindi digita il corpo del messaggio nella casella di cui hai bisogno, vedi screenshot:
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:
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:
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:
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
Articolo correlato:
Come inviare e-mail a più destinatari in un elenco da Excel tramite Outlook?
I migliori strumenti per la produttività in ufficio
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...
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!