[OL-2003] enregistrement de pièce jointe pour les nuls

[enicnath]

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 :

Code :

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

Quelqu'un peut-il me dire pourquoi ça ne marche pas ?
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.

[carden752]

Bonjour,

Essaies de ne pas utiliser des mots du langage. Traditionnellement, on met un prefixe ou suffixe devant ou un nom explicite.

Code :

1
2
3
4
5
6
7
Sub EnregistrerPieceJointe(Item As Outlook.MailItem)
    Const REP_DEST = "D:\Temp\" as String
    Dim monAttachment As Outlook.Attachment
    For Each monAttachment In Item.Attachments
        monAttachment.SaveAsFile REP_DEST & monAttachment.FileName
    Next
End Sub

Est-ce que tu as un message d'erreur?
J'ai rajouté la déclaration de REP_DEST en string.
CONST ne sert qu'à insiquer que cette valeur ne change pas.

[enicnath]

Non, je n'ai pas de message d'erreur, mais la sauvegarde des pièce jointes dans mon répertoire ne se fait pas.

J'ai essayé aussi l'écriture suivante, sans plus de résultat :

Code :

1
2
3
4
5
6
Sub EnregistrerPieceJointe(Item As Outlook.MailItem)
    Dim monAttachment As Outlook.Attachment
    For Each monAttachment In Item.Attachments
        monAttachment.SaveAsFile "D:\Temp\" & monAttachment.FileName
    Next
End Sub

Manifestement le problème est ailleurs.
Mais où ?
Il faudrait tracer tout ce qui se passe, mais comme je ne connait rien en VB, ce n'est pas un travail que je peux faire.