Enregistrement automatique de pièces jointes

**alain_godard** · 23/03/2008, 10h46

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....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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-** · 25/03/2008, 12h44

: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** · 28/03/2008, 09h11

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.