Hur öppnar man snabbt fildialogrutan för att infoga en bilaga i Outlook?

Hur man snabbt öppnar fildialogrutan för att infoga en bilaga i Outlook?

När vi behöver infoga en bilaga i ett e-postmeddelande måste vi vanligtvis klicka på Infoga > Bifoga fil > Bläddra i den här datorn för att öppna dialogrutan Infoga fil och sedan hitta och infoga filen vi behöver. I den här handledningen tillhandahåller vi två VBA-koder som hjälper dig att enkelt öppna dialogrutan Infoga fil med bara ett klick.

Öppna snabbt fildialogrutan för att infoga en bilaga med VBA

Följande VBA-koder kan uppnå:

VBA-kod 1: Öppna standardmappen Dokument på din dator
VBA-kod 2: Öppna den angivna mappen på din dator

Gör så här för att få det gjort.

1. Starta din Outlook, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar verktyg > Referenser, kontrollera sedan Microsoft Scripting Runtime ruta i Referenser – Projekt1 dialog ruta.

3. klick Insert > Modul. Kopiera sedan en av följande VBA-koder till Modulerna fönster.

VBA-kod 1: Öppna standardmappen Dokument på din dator

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-kod 2: Öppna den angivna mappen på din dator

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

Anmärkningar:

1) VBA-koden 1 hjälper till att öppna standardmappen Dokument på din dator.

2) I VBA-koden 2, ändra mappsökvägen på följande rad till den mappsökväg du behöver.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\spara bilagor\"
Sedan kommer den angivna mappen att öppnas varje gång du kör den här koden.

4. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.

Nu behöver du en knapp för att köra makrot.

5. klick Hem > Ny E-post för att skapa ett nytt e-postmeddelande. Klicka på i meddelandefönstret Anpassa snabbåtkomstverktygsfältet > Fler kommandon.

6. I Outlook-Val i dialogrutan måste du konfigurera enligt följande.

6.1) I Välj kommandon från rullgardinsmenyn, välj Makron;

6.2) Välj det makro du lade till i föregående steg;

6.3) Klicka på Lägg till för att lägga till detta makro i Anpassa snabbåtkomstverktygsfältet låda.

7. Behåll skriptet markerat i den högra rutan och klicka sedan på Ändra knapp. I Ändra-knapp dialogrutan, tilldela en ny knapp till skriptet och klicka OK.

8. klick OK i Outlook-Val dialogrutan för att spara ändringarna.

9. Knappen du angav i steg 7 läggs sedan till i Snabbåtkomstverktygsfält. När du skriver ett e-postmeddelande, om du vill infoga en bilaga, kan du bara klicka på den här knappen för att öppna Bläddra mapp och välj filen du behöver infoga.