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:

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.

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 le 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 rend le travail beaucoup plus facile !

• 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.

Lire la suite... Télécharger maintenant...