Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registrati
x

or

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, vuoi inviare un messaggio e-mail a questi indirizzi e-mail in blocco direttamente in Excel. Come raggiungerlo? Questo articolo ti mostrerà i metodi di invio di e-mail a più indirizzi e-mail specificati nelle celle in Excel.

Invia email agli indirizzi email specificati nelle celle in Excel con VBA

Invia email agli indirizzi email specificati nelle celle con Kutools per Excel

Scheda Office Abilita la modifica e la navigazione a schede in Office e semplifica notevolmente il tuo lavoro ...
Kutools per Excel: il miglior strumento di produttività per ufficio risolverà la maggior parte dei problemi di Excel
  • Riutilizzare qualsiasi cosa: Aggiungi le formule più utilizzate o complesse, i grafici e qualsiasi altra cosa ai tuoi preferiti e riutilizzali rapidamente in futuro.
  • Più delle funzioni di testo di 20: Estrai numero da stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi ...
  • Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma ...
  • Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro per più file Excel, PDF o CSV; Una colonna a più colonne ...
  • Incolla Saltare Righe nascoste / filtrate; Conte E Somma per colore di sfondo; Crea una mailing list e Invia e-mail in base al valore della cella...
  • Super filtro: Crea schemi di filtro avanzati e applica a tutti i fogli; Ordinare per settimana, giorno, frequenza e altro; Filtro da grassetto, formule, commento ...
  • Oltre alle potenti funzionalità di 300; Funziona con Office 2007-2019 e 365; Supporta tutte le lingue; Semplice implementazione in azienda; Funzioni complete di prova gratuita di 60-day.

Invia email agli indirizzi email specificati nelle celle in Excel con VBA


Il seguente codice VBA può aiutarti a inviare e-mail agli indirizzi e-mail specificati in Excel. Si prega di fare come segue.

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

2. In apertura Microsoft Visual Basic, Applications Edition finestra, per favore clicca Strumenti > Referenze come mostrato nella figura sottostante.

3. Nel Riferimenti - VBAProject finestra di dialogo, si prega di trovare e controllare il Libreria 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: Si prega di specificare l'oggetto e il corpo dell'email in entrambi .Subject = "test" e .Body = "Gentile" _ & vbNewLine & vbNewLine & _ "Questa è una mail di prova" e _ "invia in Excel" linee 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 invierai le e-mail, quindi fare clic su OK pulsante. Vedi screenshot:

Quindi i messaggi di posta elettronica basati su indirizzi di posta elettronica selezionati vengono creati come mostrato di seguito. Si prega di fare clic sul Invia pulsanti per inviare queste e-mail.

Note:

1. Se esistono tre indirizzi e-mail separati nelle celle selezionate, verranno creati tre messaggi e-mail.

2. Il codice VBA funziona solo quando si utilizza Outlook come programma di posta elettronica.


Invia email agli indirizzi email specificati nelle celle con Kutools per Excel

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

Kutools for Excel : con più di 300 utili componenti aggiuntivi di Excel, libero di provare senza limiti nei giorni 60.

1. Seleziona gli indirizzi e-mail con la cella dell'intestazione nel tuo foglio di lavoro, quindi fai clic su Impresa > Inviare emails. Vedi screenshot:

2. Nel saltar fuori Inviare emails finestra di dialogo, si prega di fare le seguenti configurazioni:

2.1) Seleziona l'intestazione dell'elenco degli indirizzi e-mail nel menu A menu `A tendina;

2.2) Inserire l'oggetto dell'email in Oggetto scatola;

2.3) Composizione del tuo corpo di posta elettronica;

2.4) Controllare il Invia e-mail tramite Outlook scatola;

2.5) Fare clic su Invia pulsante. Vedi screenshot:

3. Poi un Kutools for Excel la finestra di dialogo si apre per dirvi quante e-mail sono state inviate. Si prega di fare clic sul OK pulsante e chiudi il Inviare emails la finestra di dialogo. Vedi screenshot:

Note:

1. Puoi andare su Outlook Oggetti inviati cartella per verificare l'invio di e-mail.

2. Puoi anche utilizzare un altro server facendo clic Impostazioni del server in uscita per impostare la modalità di invio a proprio.

Tipo.Se vuoi avere una prova gratuita di questa utility, per favore vai a scarica il software liberamente prima, quindi vai ad applicare l'operazione in base ai passaggi precedenti.


Demo: invia email agli indirizzi email specificati nelle celle con Kutools per Excel

Kutools for Excel include più di 300 utili strumenti di Excel. Libero di provare senza limiti nei giorni 60. Scarica la versione di prova gratuita ora!


Articoli correlati:


Kutools per Excel: il miglior strumento di produttività per ufficio aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 60-day.
kte tab 201905

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, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.