Note: The other languages of the website are Google-translated. Back to English

Comment télécharger / enregistrer automatiquement les pièces jointes d'Outlook dans un certain dossier?

De manière générale, vous pouvez enregistrer toutes les pièces jointes d'un e-mail en cliquant sur Pièces jointes > Enregistrer toutes les pièces jointes dans Outlook. Mais, si vous avez besoin d'enregistrer toutes les pièces jointes de tous les e-mails reçus et de recevoir des e-mails, des idées ? Cet article présentera deux solutions pour télécharger automatiquement les pièces jointes d'Outlook dans un certain dossier.


Télécharger automatiquement les pièces jointes Outlook dans le dossier avec VBA et la règle

Cette méthode introduira un script VBA et exécutera ce script avec une règle pour télécharger et enregistrer automatiquement les pièces jointes Outlook dans un certain dossier. Veuillez procéder comme suit:

1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Module, puis collez ci-dessous le script VBA dans la nouvelle fenêtre Module d'ouverture.

VBA: Enregistrer automatiquement les pièces jointes Outlook dans un certain dossier

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

Notes: Veuillez découvrir sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"et remplacez le chemin du dossier de destination selon vos besoins.

3. Enregistrez le script VBA et fermez la fenêtre Microsoft Visual Basic pour Applications.

4. Aller à la Courrier afficher, et cliquez sur ACCUEIL > Règles > Gérer les règles et les alertes. Voir la capture d'écran:

5. Dans la boîte de dialogue d'ouverture des règles et alertes, cliquez sur le bouton Nouvelle règle bouton sur la Règles de messagerie languette. Voir la capture d'écran:

6. Maintenant, dans la boîte de dialogue Assistant de règles, veuillez cliquer pour sélectionner le Appliquer la règle aux messages que je reçois option, et cliquez sur le Suivant .

7. Dans la boîte de dialogue de l'assistant de règles (quelle (s) condition (s) voulez-vous vérifier?), Décochez n'importe quelle option et cliquez sur le bouton Suivant bouton. Et puis cliquez sur le Oui dans la boîte de dialogue contextuelle de Microsoft Outlook. Voir la capture d'écran:

8. Maintenant, dans la boîte de dialogue Assistant de règles (que voulez-vous faire avec le message?), Veuillez: (1) Vérifiez la exécuter un script l'option; (2) Cliquez sur le texte de un script pour ouvrir la boîte de dialogue Sélectionner un script, sélectionnez le script que nous avons ajouté à l'étape 2 et cliquez sur le bouton OK bouton; (3) Cliquez Suivant .

9. Dans la boîte de dialogue Assistant de règles (y a-t-il des exceptions?), Cliquez sur le Suivant bouton directement.

10. Maintenant, dans la dernière boîte de dialogue de l'assistant de règles, veuillez nommer la règle dans le Étape 1 , cochez les options dont vous avez besoin dans le Étape 2 section, et cliquez sur Finition .

11. Fermez la boîte de dialogue Règles et alertes.

Et maintenant, toutes les pièces jointes sont téléchargées à partir de votre compte de messagerie et enregistrées dans le dossier de destination spécifié. Et toutes les pièces jointes des e-mails entrants seront automatiquement téléchargées et enregistrées dans le dossier spécifié également.


Télécharger automatiquement les pièces jointes Outlook dans le dossier avec Kutools for Outlook

Si Kutools for Outlook est installé, vous pouvez appliquer son Détachement automatique option pour télécharger automatiquement toutes les pièces jointes Outlook et enregistrer facilement dans un certain dossier.

Kutools pour Outlook: Ajoutez plus de 100 outils pratiques pour Outlook, essayez gratuitement sans limitation dans 60 jours. En savoir plus      Essai gratuit maintenant

1. Cliquez Kutools > Détachement automatique > Activer pour activer la fonction de détachement automatique.

2. Allez-y pour cliquer Kutools > Détachement automatique > Gestionnaire de détachement automatique.

3. Dans la boîte de dialogue Détachement automatique des pièces jointes, cochez la case Détacher automatiquement toutes les pièces jointes reçues option, puis configurez comme suit:
(1) Cliquez sur le bouton Parcourir  pour spécifier le dossier de destination pour enregistrer les pièces jointes automatiquement détachées;
(2) Il est facultatif de vérifier le Créer des sous-dossiers dans le style suivant option, puis sélectionnez un style de sous-dossier dans la liste déroulante ci-dessous;
(3) Il est facultatif de vérifier le Détacher uniquement les pièces jointes avec l'extension suivante option, puis tapez les extensions de fichier de pièce jointe dans la zone ci-dessous;
(4) Il est facultatif de vérifier l'icône de pièce jointe est toujours restée dans les e-mails options.

Notes: Si vous devez détacher automatiquement les pièces jointes par les expéditeurs, vous pouvez vérifier Détacher automatiquement les pièces jointes par des règles option, cliquez sur Nouveautés puis tapez l'adresse e-mail de l'expéditeur et spécifiez le dossier de destination dans la deuxième boîte de dialogue Détachement automatique des pièces jointes.

4. Clique le Ok bouton pour enregistrer les paramètres.

À partir de maintenant, toutes les pièces jointes (ou les pièces jointes avec des extensions de fichier spécifiées, ou les pièces jointes provenant d'expéditeurs spécifiés en fonction de vos paramètres) seront automatiquement enregistrées.

Notes: Vous pouvez appliquer Kutools pour Outlook Détacher tout (Pièces jointes) ou Sauver tous (Pièces jointes) pour télécharger / enregistrer rapidement toutes les pièces jointes de plusieurs / tous les e-mails reçus dans Outlook.


Démo: télécharger automatiquement les pièces jointes Outlook dans le dossier avec Kutools for Outlook


Conseil : Dans cette vidéo, Kutools l'onglet est ajouté par Kutools pour Outlook. Si vous en avez besoin, cliquez sur ici pour avoir un essai gratuit de 60 jours sans limitation!


Articles Liés:


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnés...
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en double... Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (104)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour à tous, le script ne fonctionne pas pour moi. J'ai autre chose à faire. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Attachments" pour chaque oAttachment dans MItem.Attachments oAttachment .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub
Srinivas
Ce commentaire a été minimisé par le modérateur sur le site
Salut SRINIVAS, je crois que vous devez ajouter la lettre Drive au début de votre lien. c'est-à-dire C:\users\test\etc Espérons que cela aide ! André
Andrew
Ce commentaire a été minimisé par le modérateur sur le site
Dans VBA, vous devez également ajouter une barre oblique inverse finale à la fin de votre chemin de fichier. Comme suit. "D:\Pièces jointes Outlook\" J'espère que cela résoudra tous les problèmes. Matt
Mat
Ce commentaire a été minimisé par le modérateur sur le site
HI

le script VBA a très bien fonctionné pour moi ..... une fois - plus jamais.

J'ai même supprimé les fichiers dans le dossier et réexécuté et rien.

Qu'est-ce que je fais mal ? - la règle est en cours d'exécution car je l'obtiens pour afficher une alerte en même temps
David Brammer
Ce commentaire a été minimisé par le modérateur sur le site
[quote]Bonjour tout le monde Le script ne fonctionne pas pour moi. J'ai autre chose à faire. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Attachments" pour chaque oAttachment dans MItem.Attachments oAttachment .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End SubPar Srinivas[/quote] Pareil ici, j'ai essayé toutes les options Je sens que le script est en cours d'exécution mais je ne vois toujours pas les fichiers se charger dans le chemin spécifié par mon ordinateur. quelqu'un peut-il m'aider le plus apprécié
Kalyan
Ce commentaire a été minimisé par le modérateur sur le site
le script semble ne pas fonctionner non plus, tout est bien programmé, le code, etc. et aucune pièce jointe ne fonctionne lorsque j'exécute la règle ?? sous office 2007 ? des idées pourquoi ??
Danny
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai essayé l'option 1 (télécharger automatiquement les pièces jointes Outlook dans un dossier avec VBA et règle) et cela fonctionne parfaitement. J'ai les deux questions suivantes : i) Existe-t-il un moyen de télécharger la même pièce jointe sur plusieurs chemins de partage avec l'alésage du fichier ? ii) Il enregistre également la pièce jointe avec le curseur sur A1 dans chaque feuille et la feuille 1 doit être sélectionnée. Ainsi, lorsque vous ouvrez le fichier à partir de la feuille de chemin, il doit être ouvert avec le curseur sur A1. Merci d'avance!! Cordialement, Bhavesh Luhana
Bhavesh Luhana
Ce commentaire a été minimisé par le modérateur sur le site
Cette règle ou similaire peut-elle être appliquée à une version de messagerie Web d'Outlook ?
Eugene
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai essayé de suivre les étapes comme indiqué. mais je n'obtiens pas l'option "exécuter un script" après avoir enregistré la macro. J'ai activé les macros, redémarré Outlook plusieurs fois. mais c'est toujours l'option ne fonctionne toujours pas. S'il vous plaît aider. Merci!
Avnika Rastogui
Ce commentaire a été minimisé par le modérateur sur le site
Je suis d'accord avec AVNIKA. J'ai le même problème :-|
Dinushe
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai essayé de suivre les étapes comme indiqué, j'ai sélectionné toutes les options ci-dessus, mais après avoir sélectionné l'option "exécuter un script" et sélectionné le lien "un script", je n'obtiens pas le script dans cette boîte de dialogue. S'il vous plaît aider dès que possible. Merci!
Harsha
Ce commentaire a été minimisé par le modérateur sur le site
J'ai eu ce même problème. J'ai trouvé une solution ici : https://answers.microsoft.com/en-us/msoffice/forum/msoffice_outlook-mso_win10/the-option-to-run-a-scritp-has-disappeared-from/d289e698-47fa-497a-80fa-633067a0de37#ThreadAnswers<br /> Une fois que j'ai mis à jour mon registre avec la clé... il a recommencé à fonctionner comme il était censé le faire. Essayez-le et voyez si cela fonctionne pour vous.
doyen
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour les étapes si clairement mentionnées.... Celles-ci m'ont beaucoup aidé et ont rendu mon travail très facile... MERCI.....!!
Harsha
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne très bien pour moi Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\Dck-server-02\g\00 Uploads\" Pour chaque oAttachment In MItem.Attachments oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub Comme vous pouvez le voir, j'ai laissé le nom de fichier qui est la pièce jointe comme le même pour quand il copie sur le lecteur réseau. Cependant, si plusieurs e-mails arrivent avec le même nom de fichier pour la pièce jointe, le script permet alors à la pièce jointe la plus récente d'écraser la pièce jointe précédente dans le dossier réseau. Existe-t-il une modification que je peux entrer dans le script qui ajoutera un "-1" "-2" "-3" etc... à la fin du nom de fichier de la pièce jointe ? Ainsi, par exemple, si la pièce jointe est nommée "inspection" et que j'en reçois plusieurs, puis-je les renommer en "inspection-1" "inspection-2" "inspection-3" Toute aide serait TELLEMENT appréciée ! Merci.
Janayah
Ce commentaire a été minimisé par le modérateur sur le site
Salut Jayayah. Essayez de vérifier le fichier avant de l'enregistrer. Dim filepath As String filepath = Dir(sSaveFolder & oAttachment.DisplayName) If filepath = "" Then oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Else oAttachment.SaveAsFile sSaveFolder & "1-" & oAttachment.DisplayName Fin si et ainsi de suite... jouez avec le code et faites-moi savoir comment vous vous en sortez ..
Bob
Ce commentaire a été minimisé par le modérateur sur le site
est-il possible de changer cela pour que seuls les fichiers contenant certains mots dans leur nom soient copiés ?
fabien
Ce commentaire a été minimisé par le modérateur sur le site
Kutools peut-il être configuré de manière à ne sauvegarder que les pièces jointes de certains e-mails en fonction du sujet? Et le même fichier peut-il être enregistré dans plusieurs répertoires à partir d'un seul e-mail ? Nous voulons l'utiliser pour la distribution de rapports au lieu d'un e-mail.
Jess
Ce commentaire a été minimisé par le modérateur sur le site
Salut, merci beaucoup pour ce travail, mais une seule fois, la prochaine fois, le fichier n'est pas enregistré sur le disque :( Je ne sais pas pourquoi, une idée ? Merci
Marcos
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai le même problème (ça n'a fonctionné qu'une seule fois). Pourriez-vous résoudre le problème ?
Bence
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
Veuillez vérifier si le dossier de destination Outlook-Attachments existe ou non. Et plus d'informations sur ce problème seront utiles. Merci!
Support technique
Ce commentaire a été minimisé par le modérateur sur le site
Salut, je dois dire que son superbe script, il a résolu 80% de mon travail mais j'ai toujours un problème. Les pièces jointes que je reçois sont avec une nouvelle date et un nouvel horodatage sur une base quotidienne et je souhaite enregistrer automatiquement ces pièces jointes, mais en supprimant l'horodatage afin que la prochaine fois, il remplace / écrase et enregistre une nouvelle copie avec le même nom.,Do ne veut pas que les pièces jointes de tous les jours soient enregistrées avec une nouvelle date. à la place, le même fichier doit être remplacé au même emplacement. Peux-tu aider s'il te plait.
vandy
Ce commentaire a été minimisé par le modérateur sur le site
Salut à tous, Comment puis-je configurer cela pour avoir un script différent pour envoyer des fichiers dans différents dossiers ? Merci pour toute aide offerte à l'avance!
Nathan
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, je configure le script que vous avez en haut de la page et cela fonctionne bien, cependant, je voudrais nommer la pièce jointe en cours d'enregistrement afin qu'elle écrase l'ancienne. Que devrais-je ajouter pour que cela se produise? Merci David
David
Ce commentaire a été minimisé par le modérateur sur le site
Salut à tous les experts, J'essaie de configurer le téléchargement automatique comme décrit ci-dessus en utilisant le script VBA mais rien n'a été enregistré dans le dossier cible. J'ai essayé cela sur Outlook 2007 et Outlook 2010, et je m'assure également que le dossier dispose de toutes les autorisations nécessaires. Mais toujours aucune pièce jointe n'a été enregistrée. Quelqu'un peut-il m'aider à ce sujet? Bravo Stanley
Stanley
Ce commentaire a été minimisé par le modérateur sur le site
Sur Outlook 2013, l'option "exécuter un script" n'est pas disponible puis-je faire autre chose pour enregistrer les pièces jointes d'un e-mail sans utiliser Kutools
Ndesouza
Ce commentaire a été minimisé par le modérateur sur le site
Si l'option "Exécuter un script" est manquante, c'est qu'elle est bloquée par défaut maintenant depuis une mise à jour de sécurité il y a quelques mois. Regardez ici pour plus d'informations : https://www.slipstick.com/outlook/rules/outlook-2016-run-a-script-rules/
WarrenDB
Ce commentaire a été minimisé par le modérateur sur le site
Salut, le script fonctionne bien ... mais je veux extraire les PDF d'un sous-dossier, pas de la boîte de réception principale. Y a-t-il un moyen de changer le script ?
Merci à l'avance!
Eric VT
Ce commentaire a été minimisé par le modérateur sur le site
Salut Eric,
Ci-dessous, le script VBA enregistrera toutes les pièces jointes PDF des dossiers de messagerie. Pour enregistrer à partir d'un certain dossier, vous pouvez spécifier le dossier lors de l'exécution manuelle de la règle.


Public Sub SaveAttachmentsToDisk(EmailItem As Outlook.MailItem)
Dim xAttachment As Outlook.Attachment
Dim xDotPos As Integer
Dim xSavePath As String, xFileType As String
xSavePath = "C:\Users\DT168\Documents\outlook-attachments\"
Pour chaque xAttachment dans EmailItem.Attachments
xDotPos = InStrRev(xAttachment.DisplayName, ".")
xFileType = Mid(xAttachment.DisplayName, xDotPos, Len(xAttachment.DisplayName) - xDotPos + 1)
Si xTypeFichier = ".pdf" Alors
xAttachment.SaveAsFile xSavePath &amp; xAttachment.DisplayName
Si fin
Suivant
End Sub
Support technique
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Existe-t-il un script VBA pour la pièce jointe CSV. J'ai actuellement des travaux de rapport qui vont automatiquement dans des dossiers nommés dans Outlook. Je voudrais maintenant que ces fichiers dans les dossiers s'extraient eux-mêmes et aillent dans les dossiers correspondants sur mon bureau. J'espère que cela a du sens. S'il vous plaît, aidez ! Je suis très novice en VBA.
Raynardo Pardo
Ce commentaire a été minimisé par le modérateur sur le site
J'ai fait tous les scripts pour télécharger les pièces jointes à partir du courrier Outlook et mon script fonctionne correctement lorsque je l'exécute manuellement. Je souhaite automatiser le processus à l'aide de l'option Règle. Mais je ne pouvais pas voir ma macro dans la fenêtre de l'assistant de règles. J'ai également activé l'option ci-dessous dans le registre
HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 16.0 \ Outlook \ Sécurité
DWORD : EnableUnsafeClientMailRules
Valeur: 1

Mais je ne pouvais toujours pas voir ma macro dans la liste de l'assistant de règle. Ma liste d'assistants de règles est vide, mais j'ai déjà créé la macro et elle fonctionne correctement manuellement. Je dois apporter la macro dans mon assistant de règles pour automatiser le processus. Merci de m'aider si vous avez des idées !
Dhinesh
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés