Come inviare un'email facendo clic su un pulsante in Excel?
Immagini di dover inviare un’e-mail tramite Outlook con un semplice clic su un pulsante in un foglio di lavoro Excel: come fare? Questo articolo illustra passo dopo passo un metodo VBA per raggiungere proprio questo obiettivo.
Invia email al clic di un pulsante con codice VBA
Invia email al clic di un pulsante con codice VBA
Per inviare un'email tramite Outlook quando si fa clic su un pulsante Comando in una cartella di lavoro Excel, proceda come segue.
1. Inserisca un pulsante Comando nel Suo foglio di lavoro facendo clic su Sviluppo > Inserisci > Pulsante Comando (controllo ActiveX). Vedere lo screenshot:
2. Faccia clic con il tasto destro sul pulsante Comando inserito, quindi selezioni Visualizza codice dal menu contestuale, come mostrato nello screenshot seguente.
3. Nella finestra di Microsoft Visual Basic, Applications aperta, sostituisci il codice originale nella finestra Codice con lo script VBA seguente.
Codice VBA: Invia email al clic di un pulsante in Excel
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End SubNote:
1). Modifichi il corpo dell'email in base alle Sue esigenze nella riga xMailBody del codice.
2). Sostituisci Indirizzo Email con l'indirizzo email del destinatario nella riga .To = «Indirizzo Email».
3). Specifichi i destinatari in Cc e Bcc in base alle Sue esigenze nelle sezioni .CC = “” e .Bcc = “”.
4). Modifica l'oggetto dell'email nella riga .Subject = «Test email inviata tramite clic sul pulsante».
4. Premi contemporaneamente i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic, Applications.
5. Disattiva la Modalità progettazione facendo clic su Sviluppo > Modalità progettazione. Vedere lo screenshot:
D'ora in poi, ogni volta che farà clic sul pulsante Comando, verrà creata automaticamente un'email con i destinatari, l'oggetto e il corpo specificati. Per inviarla, basta cliccare sul pulsante Invia.
Nota: Il codice VBA funziona solo se utilizzi Outlook come programma di posta elettronica.
Invii facilmente email tramite Outlook in base ai campi di un Elenco email creato in Excel:
L'utilità Invia email di Kutools per Excel ti permette di inviare email tramite Outlook in base ai dati di un elenco email creato in Excel.
Scaricala e provala subito!
Articoli correlati:
- Come inviare automaticamente un'email in base al valore contenuto in una cella di Excel?
- Come inviare un'email tramite Outlook al salvataggio della cartella di lavoro in Excel?
- Come inviare un'email automaticamente quando una determinata cella in Excel viene modificata?
- Come inviare un'email quando la data di scadenza è raggiunta in Excel?
- Come inviare un promemoria o una notifica via email quando la cartella di lavoro viene aggiornata in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi