Note: The other languages of the website are Google-translated. Back to English

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


Kutools za 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.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije