Come inviare automaticamente una notifica e-mail di Outlook quando viene aggiornato un foglio di lavoro Excel specifico

Ogni volta che aggiorni uno specifico foglio di lavoro di Excel, se hai sempre bisogno di inviare una notifica via email a destinatari specifici, puoi utilizzare il metodo introdotto in questo articolo.

Alcuni utenti chiedono una soluzione per consentire a MS Excel di inviare automaticamente una notifica e-mail di Outlook a persone specifiche ogni volta che aggiornano un foglio di lavoro specifico, in quanto spesso dimenticano di inviare tale e-mail. Ora, di seguito, guideremo come ottenere questa funzione con il codice VBA.

Invia automaticamente un'e-mail quando viene aggiornato un foglio di lavoro Excel specifico

1. In primo luogo, accedi alla cartella di lavoro Excel di origine che contiene il foglio di lavoro specifico.
2. Quindi, nella finestra di MS Excel, vai al menu "File" e seleziona "Opzioni".
3. Successivamente, nella finestra "Opzioni di Excel", passare alla scheda "Centro protezione" e fare clic sul pulsante "Impostazioni Centro protezione".
4. Successivamente, nella nuova finestra, passa alla scheda "Impostazioni macro", sotto la quale dovresti selezionare "Abilita tutte le macro".
5. Successivamente, vai alla scheda "Opzioni privacy" e abilita la funzione "Rimuovi le informazioni personali dalle proprietà del file al salvataggio".
6. Quindi, fai clic su diversi "OK" per salvare queste impostazioni.
7. Dopo aver eseguito il backup della cartella di lavoro di Excel, accedere al foglio di lavoro specifico.
8. Fai clic con il tasto destro sul nome del foglio di lavoro nella barra laterale in basso e scegli "Visualizza codice".
9. Successivamente, copia il seguente codice VBA nel progetto del foglio specifico.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nConfirmation As Integer
    Dim objNewWorkbook As Excel.Workbook
    Dim objNewWorksheet As Excel.Worksheet
    Dim objOutlookApp As Object
    Dim objMail As Object
 
    nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
 
    If nConfirmation = vbYes Then
       ActiveWorkbook.Save

       On Error Resume Next
       Set objOutlookApp = CreateObject("Outlook.Application")
       Set objMail = objOutlookApp.CreateItem(olMailItem)
  
       'Change the email details as per your needs
       With objMail
           .To = "test@datanumen.com"
           .Subject = "Email Notifying Sheet Updates"
           .Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
           'Attach this workbook
           .Attachments.Add ActiveWorkbook.FullName
           .Send
      End With
    End If
End Sub

10. Successivamente, dovresti salvare questa cartella di lavoro come cartella di lavoro con attivazione macro di Excel.

• Innanzitutto, chiudi la finestra "Microsoft Visual Basic for Applications".
• Quindi, fai clic su "File" nell'angolo in alto a sinistra.
• Successivamente, scegli "Salva con nome".
• Nella finestra di dialogo, scegli "Cartella di lavoro con attivazione macro di Excel" nel campo "Salva come".
• Infine, fai clic sul pulsante "Salva".

11. Infine, puoi chiudere questa cartella di lavoro.
12. Ora puoi aprire la cartella di lavoro con attivazione macro di Excel salvata in precedenza.
13. Quando apporti modifiche nel foglio di lavoro specifico, riceverai un messaggio che ti chiede se inviare una notifica tramite posta elettronica.
14. Quando si fa clic sul pulsante "Sì", verrà inviata un'e-mail di Outlook ai destinatari predefiniti.
15. Questa email sarà simile allo screenshot qui sotto:

Ripara il file di dati di Outlook danneggiato

Forse hai mai incontrato la corruzione del file Excel. In realtà, il file di dati di Outlook è vulnerabile come il file Excel. Ad esempio, la chiusura impropria di Outlook può portare prontamente alla corruzione del file PST. Pertanto, è essenziale intraprendere azioni per salvaguardare il file di Outlook, incluso eseguire regolarmente backup dei dati e preparare un robusto strumento di correzione PST, come DataNumen Outlook Repair. Questa utility è abbastanza potente da riparare PST problemi e recuperare i dati PST.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com