Come inviare e-mail personalizzate di massa a una lista da Excel tramite Outlook?

Ad esempio, ho il seguente intervallo dati in un foglio di lavoro che contiene le colonne Nome, Indirizzo Email e Codice di Registrazione, e ora voglio inviare un messaggio con un saluto personalizzato e il loro Codice di Registrazione agli indirizzi email separati nella colonna A. Per risolvere questo problema, i seguenti metodi potrebbero esserti utili.

Invia e-mail personalizzate di massa a una lista da Excel con la funzione Stampa Unione

Invia e-mail personalizzate di massa a una lista da Excel con codice VBA

Invia e-mail personalizzate di massa a una lista con allegati diversi utilizzando Kutools per Excel

Invia e-mail personalizzate di massa a una lista da Excel con la funzione Stampa Unione

Con la funzione Stampa Unione di Word, puoi completare questa operazione rapidamente e facilmente, procedi passo dopo passo come segue:

1. Apri un nuovo documento Word vuoto, quindi fai clic su Posta > Seleziona Destinatari > Usa Elenco Esistente, vedi screenshot:

2. Nella finestra Seleziona Origine Dati, scegli il file di lavoro che include l'intervallo dati che desideri utilizzare e fai clic sul pulsante Apri, vedi screenshot:

3. Nella finestra di dialogo Seleziona Tabella che appare, scegli il foglio di lavoro con l'intervallo dati necessario, quindi fai clic sul pulsante OK, vedi screenshot:

4. E il messaggio principale dell'e-mail e la tua lista di indirizzi sono stati collegati insieme, ora puoi modificare il testo del messaggio e aggiungere segnaposto che indicano dove appariranno le informazioni univoche in ogni messaggio.

(1.) Per inserire il nome di saluto individuale, fai clic su Posta > Inserisci Campo Unione > Nome, il nome personalizzato è stato inserito nel messaggio, e il nome del campo è circondato da « ».

(2.) Continua a scrivere il tuo messaggio e inserisci il Codice di Registrazione nel punto in cui ne hai bisogno, vedi screenshot:

5. Dopo aver composto il messaggio, puoi fare clic su Anteprima Risultati sotto la scheda Posta per visualizzare in anteprima i messaggi e-mail e apportare modifiche prima di completare effettivamente l'unione.

6. Dopo aver verificato che non ci siano problemi, puoi inviare le e-mail ai destinatari separati, fai clic su Posta > Completa & Unisci > Invia Messaggio Email, vedi screenshot:

7. Quindi, nella finestra di dialogo Unisci a E-mail che appare, esegui le seguenti operazioni:

(1.) Dall'elenco a discesa A, scegli la colonna Indirizzo_Email;

(2.) Puoi digitare l'oggetto nella casella di testo Oggetto;

(3.) Dalla sezione Invia record, seleziona Tutti.

8. Quindi fai clic su OK, le e-mail verranno inviate immediatamente ai destinatari separati con il proprio codice di registrazione. Dopo aver inviato le e-mail, puoi andare su Outlook per assicurarti che le e-mail siano state inviate correttamente.

Invia e-mail personalizzate di massa a una lista da Excel con codice VBA

Oltre alla funzione Stampa Unione, il seguente codice VBA può anche esserti utile, procedi come segue:

1. Tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic per Applicazioni.

2. Fai clic su Inserisci > Modulo, e incolla il seguente codice nella finestra Modulo.

Codice VBA: Invia e-mail personalizzate di 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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di avviso per ricordarti di selezionare l'intervallo dati che desideri utilizzare, vedi screenshot:

4. Quindi fai clic sul pulsante OK, le e-mail verranno inviate agli indirizzi separati con il loro codice di registrazione individuale uno per uno. Dopo aver inviato le e-mail, puoi andare su Outlook per assicurarti che le e-mail siano state inviate correttamente.

Nota: Nel codice sopra, puoi cambiare l'oggetto o il corpo del messaggio secondo necessità.

Invia e-mail personalizzate di massa a una lista con allegati diversi utilizzando Kutools per Excel

Se hai Kutools per Excel, con la sua funzione Invia Email, puoi inviare rapidamente e-mail personalizzate a più destinatari con allegati diversi secondo necessità.

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 dati che desideri utilizzare, quindi specifica gli indirizzi dei destinatari, gli allegati e l'oggetto secondo necessità, vedi screenshot:

3. Nella casella di modifica, inserisci i nomi di saluto individuali, scegli Nome dall'elenco a discesa, quindi fai clic su Inserisci Segnaposto per inserire i nomi nel messaggio, vedi screenshot:

4. Poi digita il corpo del messaggio nella casella come necessario, vedi screenshot:

5. Dopo aver finito il corpo dell'email, scegli la modalità di invio che preferisci, puoi inviare utilizzando Outlook o il tuo server specificato, vedi screenshot:

Nota:  Se vuoi usare un altro server, fai clic su Impostazioni Server in Uscita per impostare la modalità di invio personale, vedi screenshot:

6. Infine, fai clic sul pulsante Invia per inviare le e-mail, al termine, apparirà una finestra di avviso per ricordarti lo stato di invio. vedi screenshot:

Clicca per scaricare e provare gratuitamente Kutools per Excel Ora!

Demo: Invia e-mail personalizzate di massa a una lista da Excel tramite Outlook

Articolo correlato:

Come inviare e-mail a più destinatari in una lista da Excel tramite Outlook?