Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Membre habitué
    Inscrit en
    novembre 2003
    Messages
    230
    Détails du profil
    Informations forums :
    Inscription : novembre 2003
    Messages : 230
    Points : 101
    Points
    101

    Par défaut enregistrement de pièce jointe pour les nuls

    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.

  2. #2
    Modérateur

    Homme Profil pro Christophe CHAPAT
    Spécialiste progiciel
    Inscrit en
    février 2010
    Messages
    1 654
    Détails du profil
    Informations personnelles :
    Nom : Homme Christophe CHAPAT
    Âge : 28
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Spécialiste progiciel
    Secteur : Service public

    Informations forums :
    Inscription : février 2010
    Messages : 1 654
    Points : 2 735
    Points
    2 735

    Par défaut

    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.
    Cordialement,
    Christophe

    Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche

  3. #3
    Membre habitué
    Inscrit en
    novembre 2003
    Messages
    230
    Détails du profil
    Informations forums :
    Inscription : novembre 2003
    Messages : 230
    Points : 101
    Points
    101

    Par défaut

    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.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •