Come inviare un promemoria o una notifica via email se la cartella di lavoro viene aggiornata in Excel?
In alcuni casi, potrebbe essere necessario attivare una notifica via email a un destinatario specifico se ci sono dati aggiornati nella cartella di lavoro che hai inviato. Questo articolo ti mostrerà un metodo per realizzarlo.
Invia un promemoria o una notifica via email se la cartella di lavoro viene aggiornata con il codice VBA
Procedi come segue per inviare un promemoria o una notifica via email se la cartella di lavoro viene aggiornata.
1. Nella cartella di lavoro, apri un foglio specifico su cui invierai la notifica email basandoti sui dati aggiornati all'interno.
2. Fai clic destro sulla scheda del foglio e seleziona Visualizza Codice dal menu contestuale. Vedi screenshot:
2. Nella finestra Microsoft Visual Basic for Applications, copia e incolla il seguente codice nella finestra del codice. Vedi 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 l'Indirizzo Email con l'indirizzo email del destinatario nella riga .To = "Indirizzo Email". E modifica i campi Cc, Oggetto e corpo nel codice VBA secondo necessità.
3. Premi i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.
4. Dopo aver modificato una cella nel foglio di lavoro, apparirà una finestra di dialogo di Kutools per Excel come mostrato nello screenshot sottostante. Se desideri allegare la cartella di lavoro aggiornata nell'email, fai clic sul pulsante Sì. In caso contrario, fai clic sul pulsante No.
5. Successivamente, un'email verrà creata automaticamente, con o senza la cartella di lavoro aggiornata allegata. Tutti i campi specificati sono inclusi nell'email. Fai clic sul pulsante Invia per spedirla.
Nota: Il codice VBA funziona solo quando utilizzi Outlook come programma di posta elettronica.
Articoli correlati:
- Come inviare automaticamente un'email in base al valore della cella in Excel?
- Come inviare un'email tramite Outlook quando la cartella di lavoro viene salvata in Excel?
- Come inviare un'email se una determinata cella viene modificata in Excel?
- Come inviare un'email se un pulsante viene cliccato in Excel?
- Come inviare un'email se la data di scadenza è stata raggiunta in Excel?
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in