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:

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 Start > 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.

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.

---

Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

• Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
• BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
• Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
• Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
• Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.

Läs mer... Ladda ner nu...