Sauvegarde automatique pièce jointe outlook VBA

Bonjour,

Je souhaite lorsque je reçoit un mail qu'il exécute une macro :

Sub SaveAttachement(Item As Outlook.MailItem)
    MsgBox ("dedans")
    Set attachs = Item.Attachments
    For Each attach In attachs
        file = attach.FileName
        attach.SaveAsFile "C:\Users\nom\Desktop\MAD\" & file
    Next
    MsgBox ("toto")
End Sub

j'ai sauvegarder cette macro dans un module d'outlook puis (pour tester) dans thisoutlooksession.

Mais rien ne se passe lorsque je reçoit un mail et aucune messagebox ne s'affiche.

Avez-vous des idée sur le pourquoi du fait que la macro ne se lance pas ?

Salution et merci par avance

problème régler :

il fallait activer les macros (désactiver par défaut) :

https://msdn.microsoft.com/fr-fr/library/office/ee814736%28v=office.14%29.aspx

Salutation