Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4
  1. #1
    Membre habitué
    Inscrit en
    novembre 2003
    Messages
    233
    Détails du profil
    Informations forums :
    Inscription : novembre 2003
    Messages : 233
    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 656
    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 656
    Points : 2 741
    Points
    2 741

    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
    233
    Détails du profil
    Informations forums :
    Inscription : novembre 2003
    Messages : 233
    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.

  4. #4
    Invité de passage
    Homme Profil pro
    Chef de projet NTIC
    Inscrit en
    octobre 2014
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Chef de projet NTIC
    Secteur : Service public

    Informations forums :
    Inscription : octobre 2014
    Messages : 1
    Points : 1
    Points
    1

    Par défaut Sauvegarde des PJs d'un mail dans un répertoire.

    Bonjour,

    cela fait un certain temps que j'oeuvre sur la question
    Mon résultat actuel est "pas mal" ...
    Je vous laisse apprécier sur l'image.
    Capture.GIF

    Voir "UserFormListerAttachements" pour le code et la boite de dialogue
    UserFormListerAttachements.zip

    En revanche, j'aimerai maintenant pouvoir choisir le répertoire de sauvegarde.
    Hélàs, je ne sais comment générer le bandeau haut d'un explorateur Windows qui désigne le répertoire ...
    (Voir "UserFormAttachementBackup")
    UserFormAttachementBackup.zip

    Help, please ! ...

    Cerise sur le gateau:

    J'aimerai pouvoir faire la distinction entre les "vrais" PJ (celles qui apparaissent comme PJ sous Outlook 2013) et les PJ qui sont en fait des images, voire des structures de tableaux dans un email ...
    Mais là aussi ... je séche !

    .

    Vincent.

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
  •