Come inviare un promemoria o una notifica tramite posta elettronica se la cartella di lavoro viene aggiornata in Excel?
In alcuni casi, potrebbe essere necessario attivare una notifica tramite posta elettronica a un destinatario specificato se nella cartella di lavoro inviata sono presenti dati aggiornati. Questo articolo ti mostrerà il metodo per ottenerlo.
Invia promemoria o notifica tramite posta elettronica se la cartella di lavoro viene aggiornata con il codice VBA
Si prega di fare quanto segue per inviare un promemoria tramite posta elettronica o una notifica se la cartella di lavoro viene aggiornata.
1. Nella cartella di lavoro, apri un foglio di lavoro specificato a cui invierai una notifica e-mail in base ai dati aggiornati all'interno.
2. Fare clic con il pulsante destro del mouse sulla scheda del foglio e selezionare Visualizza codice dal menu di scelta rapida. Vedi screenshot:
2. Nel Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice seguente nella finestra del codice. Vedi screenshot:
Codice VBA: invia un promemoria tramite posta elettronica o una notifica 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 Sub
Note:: Sostituire l'indirizzo e-mail con l'indirizzo e-mail del destinatario in linea .To = "Indirizzo e-mail". E cambia i campi Cc, Oggetto e corpo nel codice VBA di cui hai bisogno.
3. premi il altro + Q i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.
4. Dopo aver modificato una cella nel foglio di lavoro, a Kutools for Excel la finestra di dialogo si aprirà come mostrato nell'immagine sottostante. Se si desidera allegare la cartella di lavoro aggiornata all'e-mail, fare clic su Sì pulsante. In caso contrario, fare clic su Non pulsante.
5. Quindi viene creata automaticamente un'e-mail con o senza la cartella di lavoro aggiornata allegata. E tutti i campi specificati sono elencati anche nell'e-mail. Fare clic su Invia pulsante per inviarlo.
Note:: Il codice VBA funziona solo quando utilizzi Outlook come programma di posta elettronica.
Articoli correlati:
- Come inviare automaticamente e-mail in base al valore della cella in Excel?
- Come inviare un'e-mail tramite Outlook quando la cartella di lavoro viene salvata in Excel?
- Come inviare e-mail se una determinata cella viene modificata in Excel?
- Come inviare e-mail se si fa clic sul pulsante in Excel?
- Come inviare e-mail se la data di scadenza è stata rispettata in Excel?
I migliori strumenti per la produttività in ufficio
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...
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!