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

Comment ouvrir rapidement la boîte de dialogue Fichier pour insérer une pièce jointe dans Outlook ?

Lorsque nous devons insérer une pièce jointe dans un e-mail de composition, nous devons généralement cliquer sur Insérer > Joindre un fichier > Parcourir ce PC pour ouvrir la boîte de dialogue Insérer un fichier, puis rechercher et insérer le fichier dont nous avons besoin. Dans ce didacticiel, nous fournissons deux codes VBA pour vous aider à ouvrir facilement la boîte de dialogue Insérer un fichier en un seul clic.


Ouvrir rapidement la boîte de dialogue de fichier pour insérer une pièce jointe avec VBA

Les codes VBA suivants peuvent réaliser :

Code VBA 1 : Ouvrez le dossier Documents par défaut sur votre ordinateur
Code VBA 2 : Ouvrez le dossier spécifié sur votre ordinateur

Veuillez procéder comme suit pour le faire.

1. Lancez votre Outlook, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur outils > Références, puis vérifiez le Exécution de scripts Microsoft boîte dans la Références – Projet1 boite de dialogue.

3. Cliquez insérer > Module. Copiez ensuite l'un des codes VBA suivants dans le Module fenêtre.

Code VBA 1 : Ouvrez le dossier Documents par défaut sur votre ordinateur

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

Code VBA 2 : Ouvrez le dossier spécifié sur votre ordinateur

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

Notes:

1) Le code VBA 1 permet d'ouvrir le dossier Documents par défaut sur votre ordinateur.
2) Dans le code VBA 2, veuillez modifier le chemin du dossier dans la ligne suivante pour le chemin du dossier dont vous avez besoin.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\enregistrer les pièces jointes\"
Ensuite, le dossier spécifié sera ouvert à chaque fois que vous exécuterez ce code.

4. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

Maintenant, vous avez besoin d'un bouton pour exécuter la macro.

5. Cliquez Accueil > Nouveau Email pour créer un nouvel e-mail. Dans la fenêtre des messages, cliquez sur Personnaliser la barre d'outils Accès rapide > Plus de commandes.

6. dans le Options d'Outlook boîte de dialogue, vous devez configurer comme suit.

6.1) Dans le Choisissez les commandes de liste déroulante, sélectionnez macros ;
6.2) Sélectionnez la macro que vous avez ajoutée à l'étape précédente ;
6.3) Cliquez sur le Ajouter pour ajouter cette macro au Personnaliser la barre d'outils Accès rapide boîte.

7. Gardez le script sélectionné dans la case de droite, puis cliquez sur le modifier bouton. dans le Modifier le bouton boîte de dialogue, affectez un nouveau bouton au script et cliquez sur OK.

8. Cliquez OK à l' Options d'Outlook boîte de dialogue pour enregistrer les modifications.

9. Le bouton que vous avez spécifié à l'étape 7 est alors ajouté au Barre d'outils d'accès rapide. Lors de la rédaction d'un e-mail, si vous souhaitez insérer une pièce jointe, il vous suffit de cliquer sur ce bouton pour ouvrir le DECOUVREZ dossier et sélectionnez le fichier que vous devez insérer.


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ésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus 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 (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés