Kako hitro odpreti pogovorno okno datoteke za vstavljanje priloge v Outlook?

Ko moramo v sestavljajoče e-poštno sporočilo vstaviti prilogo, moramo običajno klikniti Vstavi > Priloži datoteko > Prebrskaj po tem računalniku, da odpremo pogovorno okno Vstavi datoteko, nato poiščemo in vstavimo datoteko, ki jo potrebujemo. V tej vadnici nudimo dve kodi VBA, ki vam pomagata preprosto odpreti pogovorno okno Vstavi datoteko s samo enim klikom.

Hitro odprite pogovorno okno Datoteka, da vstavite prilogo z VBA

Naslednje kode VBA lahko dosežejo:

Koda VBA 1: Odprite privzeto mapo Dokumenti v računalniku
Koda VBA 2: Odprite navedeno mapo v računalniku

Prosimo, naredite naslednje, da to storite.

1. Zaženite Outlook, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference, nato preverite Izvajanje Microsoftovih skriptov polje v Reference – Projekt1 pogovorno okno.

3. klik Vstavi > Modul. Nato kopirajte eno od naslednjih kod VBA v Moduli okno.

Koda VBA 1: Odprite privzeto mapo Dokumenti v računalniku

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

Koda VBA 2: Odprite navedeno mapo v računalniku

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

Opombe:

1) Koda VBA 1 pomaga odpreti privzeto mapo Dokumenti v vašem računalniku.

2) V kodi VBA 2 spremenite pot mape v naslednji vrstici na pot mape, ki jo potrebujete.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\shrani priloge\"
Nato se bo navedena mapa odprla vsakič, ko zaženete to kodo.

4. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

Zdaj potrebujete gumb za zagon makra.

5. klik Domov > nova elektronska pošta da ustvarite novo e-pošto. V oknu sporočila kliknite Prilagodite orodno vrstico za hitri dostop > Več ukazov.

6. V Ljubljani Outlook Možnosti pogovorno okno, morate konfigurirati na naslednji način.

6.1) V Izberite ukaze iz spustnega seznama izberite Makri;

6.2) Izberite makro, ki ste ga dodali v prejšnjem koraku;

6.3) Kliknite Dodaj , če želite dodati ta makro v Prilagodite orodno vrstico za hitri dostop škatla.

7. Skript pustite izbran v desnem polju in kliknite spreminjanje gumb. V Ljubljani Gumb za spreminjanje pogovornem oknu, skriptu dodelite nov gumb in kliknite OK.

8. klik OK v Outlook Možnosti pogovorno okno, da shranite spremembe.

9. Gumb, ki ste ga določili v koraku 7, je nato dodan v Orodna vrstica za hitri dostop. Če želite pri sestavljanju e-pošte vstaviti prilogo, lahko samo kliknete ta gumb, da odprete Brskanje in izberite datoteko, ki jo želite vstaviti.