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 Toolbox > 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:

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 functie in het 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.

---

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

• Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
• BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
• Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
• Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
• Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.

Lees verder... Download nu...