Vai al contenuto principale

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 Sub

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

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

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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...

scheda kte 201905


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hogyan választhatom ki a CC-ket ugyanúgy, mint a címzetteket? Lee ezt kérdezte :D
This comment was minimized by the moderator on the site
Hi KK,
If you want to add CC recipients with the email addresses in specified cells, you need to manually add an email address to the To line in the code, and then add a Cc line.
The two lines are as follows.
.To = ""
.Cc = xRgVal
This comment was minimized by the moderator on the site
수신인과 마찬가지의 방법으로 참조인을 선택하려면 어떻게 하나요?
This comment was minimized by the moderator on the site
Hi lee,
Sorry I don't understand your question. You may need to attach a screenshot to describe the problem more clearly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations