Nota: le altre lingue del sito web sono tradotte da Google. Torniamo all'inglese
Accedi  \/ 
x
or
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, 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 > Referenze 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

Osservazioni:: 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:

1. Se esistono tre indirizzi e-mail separatamente 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 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:

2.1) Selezionare l'intestazione dell'elenco degli indirizzi e-mail nel file A menu `A tendina;
2.2) Immettere l'oggetto dell'email nel file Oggetto scatola;
2.3) Comporre il corpo dell'email;
2.4) Controllare il file Invia email tramite Outlook scatola;
2.5) Fare clic su Invia pulsante. Vedi screenshot:

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:

1. Puoi andare su Outlook Oggetti inviati cartella per controllare l'invio di e-mail.
2. È anche possibile utilizzare un altro server facendo clic su Impostazioni del server in uscita per impostare la modalità di invio a proprio.

  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:


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 ...
  • Super Formula Bar (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-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 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, 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest
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.