Enregistrement automatique de pièces jointes

[alain_godard]

Bonjour,

Je souhaiterais enregistrer automatiquement les pièces jointes de messages spécifiés.
J'ai trouvé sur le site ce code (Angelico) qui correspond bien à ma demande mais je voudrai lui rajouter une condition pour ne gérer que le sous dossier "radio" de ma boite de réception.
Mais je ne sais pas faire....

Private Sub Application_NewMail()
Dim MaDatabase As NameSpace, Folder As MAPIFolder, Mail As MailItem
 
Set MaDatabase = Application.GetNamespace("MAPI")
Set Folder = MaDatabase.GetDefaultFolder(olFolderInbox)
Set Mail = Folder.Items(Folder.Items.Count)
 
For Each Attachment In Mail.Attachments
Attachment.SaveAsFile "C:\tmp\" & Attachment.FileName
Next
 
End Sub

[Oliv-]

:SAlut:
Quelle est ta version de outlook pour commencer ?
Ca veut dire quoi

"ne gérer que le sous dossier "radio" de ma boite de réception."

que tu veux executer ton code que dans ce dossier là ? dans ce cas tu n'utilises pas le bon évenement .
C'est bien à la reception que tu veux faire cela ?

[alain_godard]

Bonjour

Version d'outlook 2003 sp3
Le dossier "Radio" est un sous dossier de ma boite de réception avec une rêgle de messagerie déplaçant les messages à l'arrivée dans ce dossier en fonction de l'expéditeur.
L'alternative consisterait à ne pas utiliser cette rêgle et à mettre comme condition à la macro que pour certaines adresses d'expéditeur.
C'est bien à la reception du message que je veux que ça se passe.

[Oliv-]

SAlut,
inspire toi de l'exemple suivant :
http://www.developpez.net/forums/sho...95&postcount=5

[Laurent CUENET]

Bonjour,

Voici la réponse à ton problème, enfin je l'espère.

http://support.microsoft.com/kb/292063

A bientôt,