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

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 dans 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 Explorer dossier et sélectionnez le fichier que vous devez insérer.