Discussion :

[elkhazak]

Bonjour à tous,

Après quelques recherches sur le forum j'ai trouvé qu'on puisse récupérer les PJ qui viennent avec les mails reçus, du coup j'ai trouvé le bon script sur "FAQ" mais le problème c'est que j'arrive pas à l'exécuter.

HautPageComment enregistrer les pièces jointe d'un mail sur une règle à la réception d'un mail ?

J'ai fait " ALT+F11" puis insertion -> module et j'ai collé le script et ensuite je l'ai enregistré et ensuite j'ai créée le dossier "C:/temp/pj".

J'ai créée la règle ( Dans le compte spécifié -> exécuter le script ) mais ça ne fonctionne pas.

[elkhazak]

C'est bon j'ai trouvé le bon script.

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\temp"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub