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 > Moduli. 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 SubNote:: Specifica l'oggetto e il corpo dell'email in entrambi .Subject = "test" ed .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.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
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:
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
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
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!
