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

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 Sub

Nota: 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?