p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Membre habitué
    Inscrit en
    novembre 2003
    Messages
    281
    Détails du profil
    Informations forums :
    Inscription : novembre 2003
    Messages : 281
    Points : 117
    Points
    117

    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 : 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
    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
    Spécialiste progiciel
    Inscrit en
    février 2010
    Messages
    1 720
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Haute Loire (Auvergne)

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

    Informations forums :
    Inscription : février 2010
    Messages : 1 720
    Points : 2 938
    Points
    2 938

    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 : 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\" 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
    281
    Détails du profil
    Informations forums :
    Inscription : novembre 2003
    Messages : 281
    Points : 117
    Points
    117

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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é régulier
    Homme Profil pro
    Chef de projet NTIC
    Inscrit en
    octobre 2014
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Yvelines (Île de France)

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

    Informations forums :
    Inscription : octobre 2014
    Messages : 9
    Points : 5
    Points
    5

    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.
    Nom : Capture.GIF
Affichages : 25
Taille : 12,8 Ko

    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.

Discussions similaires

  1. [OL-2010] Enregistrer les pièces jointes et les supprimer : conflit de mail
    Par illight dans le forum VBA Outlook
    Réponses: 8
    Dernier message: 22/05/2015, 11h24
  2. [OL-2010] Enregistrement des pièces jointes de tous les mails d'un fichier pst
    Par Daejung dans le forum Outlook
    Réponses: 3
    Dernier message: 21/03/2015, 07h37
  3. [XL-2010] Pièces jointes pour les utilisateurs
    Par ThSPB dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 07/01/2015, 19h55
  4. C++ pour les nuls => Linux => Problème
    Par wizardman dans le forum Linux
    Réponses: 6
    Dernier message: 21/09/2005, 00h53
  5. Apprendre le réseau (pour les nuls)
    Par __fabrice dans le forum Développement
    Réponses: 5
    Dernier message: 08/03/2005, 13h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo