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:
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.
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.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.