Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Envoi mail lors de la modification d'un fichier excel

Sissou71

XLDnaute Occasionnel
Bonjour,
En cherchant sur le net, j'ai trouvé une macro pour envoyer un mail automatiquement lorsqu'un fichier est modifié.
Ce qui tombe bien, vu que c'est ce que je dois implémenter MAIS elle ne fonctionne pas, il doit y avoir quelque chose qui me manque (Excel 2016 et Outlook 2016) :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim message As Object
Dim mailpr As Object
Application.DisplayAlerts = False
Set message = CreateObject("outlook.application")
Set mailpr = message.CreateItem(messageMailItem)
mailpr.To = "titi@free.fr"
mailpr.Subject = "Modification du fichier TOTO"
mailpr.Body = "Des modifications ont été apportées dans le fichier TOTO"
mailprj.Send
Set message = Nothing
End Sub

Il me dit que la variable "messageMailItem" n'est pas définie. Que dois-je faire ?
 

Discussions similaires

Réponses
2
Affichages
659
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…