KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe opent u snel het bestandsvenster om een bijlage in Outlook in te voegen?

AuteurSiluvia Wijzigingsdatum

Wanneer u een bijlage wilt invoegen in een e-mail die u aan het opstellen bent, klikt u normaal gesproken op **Invoegen > Bestand bijvoegen > Bladeren op deze pc** om het dialoogvenster **Bestand invoegen** te openen en het gewenste bestand te zoeken en toe te voegen. In deze handleiding bieden we twee VBA-codes waarmee u datzelfde dialoogvenster met slechts één klik gemakkelijk kunt openen.

Snel het bestandsvenster openen om een bijlage in te voegen met VBA

De volgende VBA-codes kunnen het volgende realiseren:

VBA-code 1: De standaard Documenten-map op uw computer openen
VBA-code 2: De opgegeven map op uw computer openen

Volg de onderstaande stappen om dit te bereiken.

1. Start uw Outlook en druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Extra > Verwijzingen en schakel vervolgens het selectievakje Microsoft Scripting Runtime in in het dialoogvenster Verwijzingen – Project1.

stappen voor het openen van het bestandsvenster om een bijlage in Outlook in te voegen

3. Klik op Invoegen > Module. Kopieer daarna één van de volgende VBA-codes naar het venster Module.

stappen voor het openen van het bestandsvenster om een bijlage in Outlook in te voegen

VBA-code 1: De standaard Documenten-map op uw computer openen

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: De opgegeven map op uw computer openen

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) Met VBA-code 1 opent u de standaard Documenten-map op uw computer.
2) Wijzig in VBA-code 2 de Bestandspad in de volgende regel naar de Bestandspad die u nodig hebt.
xFileDlg.InitialFileName = „C:\Users\Win10x64Test\Desktop\save attachments\"
Vervolgens wordt de opgegeven map geopend telkens wanneer u deze code uitvoert.

4. Druk op Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.

U hebt nu een knop nodig om de macro uit te voeren.

5. Klik op Start > Nieuwe e-mail om een nieuwe e-mail te maken. Klik in het berichtvenster op Snelle toegangswerkbalk aanpassen > Meer opdrachten.

stappen voor het openen van het bestandsvenster om een bijlage in Outlook in te voegen

6. Configureer het volgende in het dialoogvenster Outlook-opties.

6,1) Selecteer in Opdrachten kiezen uitKeuzelijst de optie Macro's;
6,2) Selecteer de macro die u in de vorige stap hebt toegevoegd;
6,3) Klik op de knop Toevoegenom deze macro toe te voegen aan het vak Snelle toegangswerkbalk aanpassen.
stappen voor het openen van het bestandsvenster om een bijlage in Outlook in te voegen

7. Houd het script geselecteerd in het rechterdeelvenster en klik vervolgens op de knop Wijzigen. Wijs in het dialoogvenster Knop wijzigen een nieuwe knop toe aan het script en klik op OK.

stappen voor het openen van het bestandsvenster om een bijlage in Outlook in te voegen

8. Klik op OK in het dialoogvenster Outlook-opties om de wijzigingen op te slaan.

9. De knop die u in stap 7 hebt opgegeven, wordt nu toegevoegd aan de Snelle toegangswerkbalk. Wanneer u een e-mail opstelt en een bijlage wilt invoegen, hoeft u alleen maar op deze knop te klikken om het venster Bladeren te openen en het gewenste bestand te selecteren.

stappen voor het openen van het bestandsvenster om een bijlage in Outlook in te voegen

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

kutools for outlook features1kutools for outlook features2

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

  • ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
  • 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
  • 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint