Come inviare e-mail agli indirizzi e-mail specificati nelle celle in Excel?

Supponendo che tu abbia un elenco di indirizzi e-mail e ora, desideri inviare messaggi e-mail a questi indirizzi in blocco direttamente in Excel. Come ottenerlo? Questo articolo ti mostrerà i metodi per inviare e-mail a più indirizzi e-mail specificati nelle celle in Excel.

Invia e-mail agli indirizzi e-mail specificati nelle celle in Excel con VBA
Invia facilmente e-mail agli indirizzi e-mail specificati nelle celle con Kutools per Excel

Invia e-mail agli indirizzi e-mail specificati nelle celle in Excel con VBA

Il seguente codice VBA può aiutarti a inviare e-mail agli indirizzi e-mail specificati in Excel. Per favore, fai come segue.

1. Nel foglio di lavoro contiene gli indirizzi e-mail a cui è necessario inviare e-mail, premere il tasto altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. In apertura Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Riferimenti come mostrato nell'immagine sottostante.

3. Nel Riferimenti - VBAProject finestra di dialogo, trova e controlla il file Libreria di oggetti di Microsoft Outlook opzione, quindi fare clic su OK pulsante.

4. Quindi fare clic inserire > Modulo. Quindi copia e incolla il codice VBA sottostante nella finestra del modulo.

Codice VBA: invia e-mail agli indirizzi e-mail specificati nelle celle in Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Note:: Specifica l'oggetto e il corpo dell'email in entrambi .Subject = "test" e .Body = "Dear" _ & vbNewLine & vbNewLine & _ "Questa è una email di prova" & _ "invio in Excel" righe nel codice.

5. premi il F5 chiave per eseguire il codice. In apertura Kutools for Excel finestra di dialogo, selezionare l'intervallo che contiene gli indirizzi e-mail a cui verranno inviate le e-mail, quindi fare clic su OK pulsante. Vedi screenshot:

Quindi le e-mail basate sugli indirizzi e-mail selezionati vengono create come mostrato nell'immagine sottostante. Fare clic su Invia pulsanti per inviare queste email.

Note:

Invia e-mail agli indirizzi e-mail specificati nelle celle con Kutools per Excel

Questa sezione ti consiglierà il file Inviare emails utilità di Kutools for Excel. Con questa utility, puoi inviare facilmente e-mail agli indirizzi e-mail specificati nelle celle in Excel. Si prega di fare quanto segue.

1. Selezionare gli indirizzi e-mail con la cella di intestazione nel foglio di lavoro, quindi fare clic su Kutools Plus > Inviare emails.

2. Nel spuntare Inviare emails finestra di dialogo, eseguire le seguenti configurazioni:

3. Quindi a Kutools for Excel la finestra di dialogo si apre per dirti quante email sono state inviate. Fare clic su OK e chiudere il Inviare emails la finestra di dialogo. Vedi screenshot:

Note:

Demo: invia e-mail agli indirizzi e-mail specificati nelle celle con Kutools per Excel

Articoli correlati:

• Come inviare e-mail copiando e incollando un intervallo specificato nel corpo dell'e-mail in Excel?
• Come inviare e-mail con più allegati allegati in Excel?
• Come inserire la firma nell'e-mail di Outlook quando si invia tramite vba in Excel?
• Come inviare e-mail se la data di scadenza è stata rispettata in Excel?
• Come inviare automaticamente e-mail in base al valore della cella in Excel?

---

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista... 

---

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!

Leggi di più... Download gratuito... Acquista...