Comment envoyer automatiquement une notification par e-mail Outlook lorsqu'une feuille de calcul Excel spécifique est mise à jour

Chaque fois que vous mettez à jour une feuille de calcul Excel spécifique, si vous devez toujours envoyer une notification par e-mail à des destinataires spécifiques, vous pouvez utiliser la méthode présentée dans cet article.

Certains utilisateurs demandent une solution pour permettre à MS Excel d'envoyer automatiquement une notification par e-mail Outlook à des personnes spécifiques chaque fois qu'ils mettent à jour une feuille de calcul spécifique, dans la mesure où ils oublient souvent d'envoyer un tel e-mail. Maintenant, dans ce qui suit, nous expliquerons comment réaliser cette fonction avec le code VBA.

Envoi automatique d'un e-mail lorsqu'une feuille de calcul Excel spécifique est mise à jour

1. En premier lieu, accédez au classeur Excel source contenant la feuille de calcul spécifique.
2. Ensuite, dans la fenêtre MS Excel, allez dans le menu "Fichier" et sélectionnez "Options".
3. Ensuite, dans la fenêtre "Options Excel", passez à l'onglet "Centre de confiance" et cliquez sur le bouton "Paramètres du centre de confiance".
4. Ensuite, dans la nouvelle fenêtre, passez à l'onglet "Paramètres des macros", sous lequel vous devez sélectionner "Activer toutes les macros".
5. Après cela, accédez à l'onglet "Options de confidentialité" et activez la fonction "Supprimer les informations personnelles des propriétés du fichier lors de l'enregistrement".
6. Ensuite, cliquez sur plusieurs "OK" pour enregistrer ces paramètres.
7. Après avoir sauvegardé le classeur Excel, accédez à la feuille de calcul spécifique.
8. Faites un clic droit sur le nom de la feuille de calcul dans la barre latérale inférieure et choisissez "Afficher le code".
9. Après cela, copiez le code VBA suivant dans le projet de la feuille spécifique.

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. Après cela, vous devez enregistrer ce classeur en tant que classeur Excel compatible avec les macros.

• Tout d'abord, fermez la fenêtre "Microsoft Visual Basic pour Applications".
• Ensuite, cliquez sur "Fichier" dans le coin supérieur gauche.
• Ensuite, choisissez "Enregistrer sous".
• Dans la boîte de dialogue, choisissez "Excel Macro-Enabled Workbook" dans le champ "Save as type".
• Enfin, cliquez sur le bouton "Enregistrer".

11. Enfin, vous pouvez fermer ce classeur.
12. Maintenant, vous pouvez ouvrir le classeur Excel prenant en charge les macros précédemment enregistré.
13. Lorsque vous apportez des modifications à la feuille de calcul spécifique, vous recevez un message vous demandant si vous souhaitez envoyer une notification par e-mail.
14. Lorsque vous cliquez sur le bouton "Oui", un e-mail Outlook sera envoyé aux destinataires prédéfinis.
15. Cet e-mail ressemblera à la capture d'écran ci-dessous :

Réparer le fichier de données Outlook endommagé

Peut-être avez-vous déjà rencontré la corruption de fichiers Excel. En fait, le fichier de données Outlook est le même vulnérable que le fichier Excel. Par exemple, la fermeture incorrecte d'Outlook peut facilement entraîner la corruption des fichiers PST. Par conséquent, il est essentiel de prendre des mesures pour protéger le fichier Outlook, notamment en effectuant des sauvegardes de données régulières ainsi qu'en préparant un outil de correction PST robuste, tel que DataNumen Outlook Repair. Cet utilitaire est assez puissant pour réparer la TVP problèmes et récupérer les données PST.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correction sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com