Discussion :

[mart_alt]

Bonjour,

J'ai une règle (trouvée sur ce forum) qui me permet de déplacer la pièce jointe d'un mail reçu. J'ai essayer de multilplier les règles en copiant collant le code dans un nouveau module et en modifiant le nom du module et les paramètres de la règle mais cela ne fonctionne pas...

Voila le script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SaveAttachement(Item As Outlook.MailItem)
        MsgBox "Base En cours mise à jour à l'aide du fichier :" & Item.Subject '<=== Boîte de dialogue à personaliser ou à supprimer
        Set attachs = Item.Attachments
 
        For Each attach In attachs
            file = attach.FileName
            attach.SaveAsFile "D:\OneDrive - SNCF\PROFESSIONNEL\1 - MFIW\PRODUCTION\Power BI\SOURCES\PRODUCTION\base_encours_mfi.xlsx"   '<=== c:\ correspond au dossier dans lequel vous voulez sauvegarder les pièces jointes
        Next
End Sub

Sauriez vous pourquoi ?

Merci

[Jean-Philippe André]

Salut,

ce n'est pas le nom du module qui importe, mais le nom de la fonction/procédure que tu souhaites rattacher à ta règle.

[mart_alt]

C'est le texte qui est après "Sub" ?

Merci Jean-Philippe ;-)

[Oliv-]

Bonjour,
oui le nom de la procédure c'est ce qu'il y a entre le sub et le ().

Attention cette procédure enregistre toutes les PJ du mail sou sle même nom, donc au final il n'y a que la dernière pj qui est enregistrée.