Bonjour à tous,
A la réception de messages dans Outlook, j'ai une règle qui exécute un script si une pièce jointe est détectée.
La macro :
Tout fonctionne bien à condition de laisser Outlook ouvert. Si je ferme Outlook, quand je l'ouvre à nouveau la règle fonctionne mais le script n'est plus exécuté.
La solution que j'ai trouvée est de supprimer le fichier VbaProject.OTM et d'en créer un nouveau pour que la macro soit à nouveau prise en compte par la règle.
L'un de vous aurait-il une idée ?
Bien cordialement,
Ivan
A la réception de messages dans Outlook, j'ai une règle qui exécute un script si une pièce jointe est détectée.
La macro :
VB:
Public Sub Kpi(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFichier1 As String
Dim sSaveFichier2 As String
sSaveFichier1 = "C:\dossier1\"
sSaveFichier2 = "C:\dossier2\"
For Each oAttachment In MItem.Attachments
If oAttachment.DisplayName Like "chaine1*" Then: oAttachment.SaveAsFile sSaveFichier1 & oAttachment.DisplayName
If oAttachment.DisplayName Like "chaine2*" Then: oAttachment.SaveAsFile sSaveFichier2 & oAttachment.DisplayName
Next
End SubTout fonctionne bien à condition de laisser Outlook ouvert. Si je ferme Outlook, quand je l'ouvre à nouveau la règle fonctionne mais le script n'est plus exécuté.
La solution que j'ai trouvée est de supprimer le fichier VbaProject.OTM et d'en créer un nouveau pour que la macro soit à nouveau prise en compte par la règle.
L'un de vous aurait-il une idée ?
Bien cordialement,
Ivan