Come inviare automaticamente un'email in base al valore contenuto in una cella di Excel?
In Excel puoi automatizzare l’invio di email in base a condizioni specifiche, come il valore contenuto in una determinata cella. Ad esempio, potresti voler inviare automaticamente un'email tramite Outlook non appena il valore nella cella D7 supera 200. Questo tutorial ti mostra come utilizzare il codice VBA (Visual Basic for Applications) per attivare l’invio di un'email in Outlook in base al valore di una cella.
Invia automaticamente un'email in base al valore di una cella con il codice VBA
Invia automaticamente un'email in base al valore di una cella con il codice VBA
Segui questi semplici passaggi per inviare un'email automaticamente in base al valore contenuto in una cella di Excel.
1. Nel foglio di lavoro in cui desideri inviare un'email in base al valore di una cella (in questo caso la cella D7), fai clic con il tasto destro sulla scheda del foglio e seleziona Visualizza codice dal menu contestuale. Vedi screenshot:
2. Nella finestra Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice VBA nella finestra del codice del foglio.
Codice VBA: Invia email tramite Outlook in base al valore di una cella in Excel
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End SubNote:
3. Premi contemporaneamente i tasti Alt+Q per chiudere la finestra Microsoft Visual Basic for Applications.
D’ora in poi, ogni volta che il valore inserito nella cella D7 supererà 200, verrà creata automaticamente in Outlook un'email con i destinatari e il corpo del messaggio specificati. Potrai inviarla semplicemente facendo clic sul pulsante Invia. Vedi screenshot:
Note:
1. Il codice VBA funziona solo se utilizzi Outlook come client di posta elettronica.
2. Se il dato inserito nella cella D7 è un valore testuale, verrà comunque visualizzata la finestra di invio email.
Invia facilmente email tramite Outlook in base ai campi delle Elenco email create in Excel:
L’utility Invia email di Kutools per Excel consente agli utenti di inviare email tramite Outlook in base agli elenchi email creati in Excel.
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
Articoli correlati:
- 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 facendo clic su un pulsante in Excel?
- Come inviare un'email quando la condizione relativa alla Data di scadenza in Excel è soddisfatta?
- 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