Come inviare un promemoria o una notifica via email quando la cartella di lavoro viene aggiornata in Excel?
In alcuni casi, potrebbe essere necessario inviare una notifica via email a un destinatario specifico quando i dati della cartella di lavoro condivisa vengono aggiornati. Questo articolo illustra un metodo efficace per raggiungere questo obiettivo.
Invia un promemoria o una notifica via email se la cartella di lavoro viene aggiornata con codice VBA
Segui questa procedura per inviare automaticamente un promemoria o una notifica via email non appena la cartella di lavoro viene aggiornata.
1. Nella cartella di lavoro, apra il foglio specifico i cui dati aggiornati desidera utilizzare per inviare la notifica via email.
2. Faccia clic con il tasto destro sulla scheda del foglio e selezioni Visualizza codice dal menu contestuale. Vedere lo screenshot:
2. Nella finestra di Microsoft Visual Basic for Applications, copia e incolla il seguente codice nella finestra del codice. Vedere lo screenshot:
Codice VBA: Invia un promemoria o una notifica via email se la cartella di lavoro viene aggiornata
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End SubNota: sostituisci «Indirizzo Email» con l’indirizzo email del destinatario nella riga .To = «Indirizzo Email». Modifica anche i campi Cc, Oggetto e corpo del messaggio nel codice VBA in base alle tue esigenze.
3. Premi i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic for Applications.
4. Dopo aver modificato una cella nel foglio di lavoro, apparirà una finestra di dialogo Kutools per Excel come mostrato nello screenshot seguente. Se desidera allegare la cartella di lavoro aggiornata all'email, faccia clic sul pulsante Sì. In caso contrario, faccia clic sul pulsante No.
5. Verrà quindi creata automaticamente un'email, con o senza l'allegato della cartella di lavoro aggiornata. Tutti i campi specificati sono inclusi nel messaggio. Fai clic sul pulsante Invia per inviarla.
Nota: il codice VBA funziona solo se utilizzi Outlook come programma di posta elettronica.
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 facendo clic su un pulsante in Excel?
- Come inviare un'email quando la data di scadenza è stata raggiunta 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