Sådan åbner du hurtigt fildialogboksen for at indsætte en vedhæftet fil i Outlook?

Når vi skal indsætte en vedhæftet fil i en skrivende e-mail, skal vi normalt klikke på Indsæt > Vedhæft fil > Gennemse denne pc for at åbne dialogboksen Indsæt fil og derefter finde og indsætte den fil, vi skal bruge. I denne vejledning giver vi to VBA-koder til at hjælpe dig med at åbne dialogboksen Indsæt fil nemt med et enkelt klik.

Åbn hurtigt fildialogboksen for at indsætte en vedhæftet fil med VBA

Følgende VBA-koder kan opnå:

VBA-kode 1: Åbn standardmappen Dokumenter på din computer
VBA-kode 2: Åbn den angivne mappe på din computer

Gør venligst som følger for at få det gjort.

1. Start din Outlook, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på Værktøj > Referencer, tjek derefter Microsoft Scripting Runtime boks i Referencer – Projekt 1 dialog boks.

3. klik indsatte > Modul. Kopier derefter en af ​​følgende VBA-koder til Moduler vindue.

VBA-kode 1: Åbn standardmappen Dokumenter på din 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-kode 2: Åbn den angivne mappe på din 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

Bemærkninger:

4. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.

Nu skal du bruge en knap for at køre makroen.

5. klik Home > ny email for at oprette en ny e-mail. Klik på i meddelelsesvinduet Tilpas værktøjslinjen Hurtig adgang > Flere kommandoer.

6. i Outlook Options dialogboks, skal du konfigurere som følger.

7. Hold scriptet valgt i den højre boks, og klik derefter på Ændre knap. I Rediger knap dialogboks, tildel en ny knap til scriptet og klik OK.

8. klik OK i Outlook Options dialogboks for at gemme ændringerne.

9. Den knap, du specificerede i trin 7, føjes derefter til Hurtig adgangs værktøjslinje. Når du skriver en e-mail, hvis du vil indsætte en vedhæftet fil, kan du bare klikke på denne knap for at åbne Gennemse mappe og vælg den fil, du skal indsætte.

---

Kutools for Outlook - Bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget lettere!

• Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
• BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
• Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
• Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
• Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.

Læs mere ... Hent nu...