Hoe snel het bestandsdialoogvenster openen om een bijlage in Outlook in te voegen?

Wanneer we een bijlage in een opstellende e-mail moeten invoegen, moeten we meestal klikken op Invoegen > Bestand bijvoegen > Door deze pc bladeren om het dialoogvenster Bestand invoegen te openen, en vervolgens het bestand zoeken en invoegen dat we nodig hebben. In deze zelfstudie bieden we twee VBA-codes om u te helpen het dialoogvenster Bestand invoegen eenvoudig met slechts één klik te openen.

Open snel het bestandsdialoogvenster om een bijlage in te voegen met VBA

De volgende VBA-codes kunnen bereiken:

VBA-code 1: Open de standaardmap Documenten op uw computer
VBA-code 2: Open de opgegeven map op uw computer

Ga als volgt te werk om het voor elkaar te krijgen.

1. Start uw Outlook, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Tools > Referenties, controleer dan de Microsoft Scripting-runtime box aan de Referenties – Project1 dialoog venster.

3. klikken Invoegen > Module. Kopieer vervolgens een van de volgende VBA-codes naar de Module venster.

VBA-code 1: Open de standaardmap Documenten op uw computer

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

VBA-code 2: Open de opgegeven map op uw computer

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

Opmerkingen:

1) De VBA-code 1 helpt bij het openen van de standaardmap Documenten op uw computer.

2) Wijzig in VBA-code 2 het mappad in de volgende regel in het mappad dat u nodig hebt.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\bijlagen opslaan\"
Vervolgens wordt de opgegeven map elke keer dat u deze code uitvoert geopend.

4. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.

Nu heb je een knop nodig om de macro uit te voeren.

5. klikken Home > nieuwe e-mail om een nieuwe e-mail te maken. Klik in het berichtvenster op Pas de werkbalk Snelle toegang aan > Meer opdrachten.

6. In de Outlook Opties dialoogvenster, moet u als volgt configureren.

6.1) In de Kies opdrachten van vervolgkeuzelijst, selecteer macro's;

6.2) Selecteer de macro die u in de vorige stap hebt toegevoegd;

6.3) Klik op de Toevoegen knop om deze macro toe te voegen aan het Pas de werkbalk Snelle toegang aan doos.

7. Houd het script geselecteerd in het rechtervak en klik vervolgens op de wijzigen knop. In de Knop wijzigen dialoogvenster, wijs een nieuwe knop toe aan het script en klik op OK.

8. klikken OK in de Outlook Opties dialoogvenster om de wijzigingen op te slaan.

9. De knop die u in stap 7 hebt opgegeven, wordt vervolgens toegevoegd aan de Snelle toegangswerkbalk. Als u bij het opstellen van een e-mail een bijlage wilt invoegen, kunt u op deze knop klikken om de Blader map en selecteer het bestand dat u wilt invoegen.