Kako predlogi v Outlooku dodeliti gumb za hitri zagon?

Ko uporabljate predlogo v Outlooku, morate vstopiti v okno Izberite obrazec, poiskati mesto za shranjevanje predloge in nato odpreti. To je lahko za večino od nas nekoliko težavno. Tukaj vam bom pokazal način za dodelitev gumba za hitri zagon za odpiranje določene predloge v programu Outlook. Po dodelitvi gumba se predloga hitro odpre z enim samim klikom.

Predlogi s kodo VBA dodelite gumb za hitri zagon

Zavihek Office – omogočite urejanje in brskanje z zavihki v Microsoft Officeu, kar olajša delo

Preberite več ...Prenos ...

Kutools za Outlook – izboljšajte Outlook s 100+ naprednimi funkcijami za vrhunsko učinkovitost

Avtomatizirajte pošiljanje e-pošte z Samodejno CC / BCC, Samodejno posredovanje naprej po pravilih; poslati Samodejni odgovor (Zven pisarne) brez potrebe po strežniku za izmenjavo ...
Prejemajte opomnike, kot je Opozorilo pred BCC ko odgovarjate vsem, ko ste na seznamu BCC, in Opomni, ko manjkajo priloge za pozabljene priloge...
Izboljšajte učinkovitost e-pošte z Odgovori (vsem) s priponkami, Samodejno dodajte pozdrav ali datum in uro v podpis ali zadevo, Odgovorite na več e-poštnih sporočil...
Poenostavite pošiljanje e-pošte z Odpoklic e-pošte, Orodja za pritrditev (Stisni vse, samodejno shrani vse ...), Odstrani dvojnikein Hitro poročilo...

Izboljšajte svoj Outlook 2021 - 2010 ali Outlook 365 s temi naprednimi funkcijami. Uživajte v obsežnem 60-dnevnem brezplačnem preizkusu in izboljšajte svojo e-poštno izkušnjo!

Preberite več ...Prenos ...

Predlogi s kodo VBA dodelite gumb za hitri zagon

Naredite naslednje, če želite predlogi v Outlooku dodeliti gumb za hitri zagon.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno Code.

Koda VBA: Makro za odpiranje predloge

Sub MakeTemplate()
'Update by Extendoffice 2018/5/24
Dim xDialog As FileDialog
Dim xExcel As Excel.Application
Dim xFilePath As String
Dim xNewItem As Object
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(5)
xFilePath = xFilePath & "\Microsoft\Templates\template test.oft"
Set xNewItem = Outlook.Application.CreateItemFromTemplate(xFilePath)
xNewItem.Display True
Set xNewItem = Nothing
End Sub

Opombe: V kodi "\ Microsoft \ Templates \ predloga test.oft"je privzeta pot za shranjevanje predloge, test predloge pa je ime predloge, ki jo boste odprli. Prosimo, spremenite jih po potrebi.

3. klik Orodja > Reference. Nato omogočite Knjižnica predmetov Microsoft Excel kot je prikazano spodaj.