Hvordan åbner man hurtigt fildialogboksen for at indsætte en vedhæftet fil i Outlook?

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øjer > 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:

1) VBA-koden 1 hjælper med at åbne standardmappen Dokumenter på din computer.

2) I VBA-koden 2 skal du ændre mappestien i den følgende linje til den mappesti, du har brug for.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\gem vedhæftede filer\"
Derefter vil den angivne mappe blive åbnet, hver gang du kører denne kode.

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.

6.1) I Vælg kommandoer fra rulleliste, vælg Makroer;

6.2) Vælg den makro, du tilføjede i det foregående trin;

6.3) Klik på Tilføj knappen for at tilføje denne makro til Tilpas værktøjslinjen Hurtig adgang boks.

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.