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:

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.

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.

---

Kutools for Outlook - Prinaša 100 naprednih funkcij v Outlook in olajša delo!

• Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
• Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
• Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
• Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
• Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.

Preberite več ... Prenesi zdaj...