Bonjour,
Sous OutLook 2003, j'essaie à mon tour d'enregistrer automatiquement des pièces jointes via une règle.
En explorant le forum, j'ai trouvé le code suivant :Quelqu'un peut-il me dire pourquoi ça ne marche pas ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub EnregistrerPieceJointe(Item As Outlook.MailItem) Const REP_DEST = "D:\Temp\" Dim Attachment As Outlook.Attachment For Each Attachment In Item.Attachments Attachment.SaveAsFile REP_DEST & Attachment.FileName Next End Sub
PS. Je sais que ma règle marche parce que je lui fait aussi mettre un drapeau sur les messages et que ce drapeau est bien mis.
Partager