Jak přiřadit tlačítku pro rychlé spuštění šabloně v aplikaci Outlook?

Autor: Siluvia Naposledy změněno: 2018-05-24

Pokud používáte šablonu v Outlooku, musíte se dostat do okna Vybrat formulář, najít umístění pro uložení šablony a poté jej otevřít. To může být pro většinu z nás poněkud problematické. Zde vám ukážu způsob přiřazení tlačítka rychlého spuštění k otevření určené šablony v aplikaci Outlook. Po přiřazení tlačítka se šablona rychle otevře jediným kliknutím.

Přiřaďte tlačítko rychlého spuštění šabloně s kódem VBA

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou

Čtěte více...Stáhnout ...

Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu

Automatizujte zasílání e-mailů pomocí Auto CC / BCC, Automatické předávání podle pravidel; poslat Automatická odpověď (Mimo kancelář) bez nutnosti výměnného serveru...
Získejte připomenutí jako Varování BCC když odpovídáte všem, když jste v seznamu BCC, a Připomenout, když chybí přílohy pro zapomenuté přílohy...
Zlepšete efektivitu e-mailu pomocí Odpovědět (vše) s přílohami, Automatické přidání pozdravu nebo data a času do podpisu nebo předmětu, Odpovědět na více e-mailů...
Zjednodušte zasílání e-mailů pomocí Připomenout e-maily, Nástroje pro připojení (Komprimovat vše, Automaticky uložit vše...), Odebrat duplikáty, a Rychlá zpráva...

Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

Čtěte více...Stáhnout ...

Přiřaďte tlačítko rychlého spuštění šabloně s kódem VBA

Chcete-li přiřadit tlačítku rychlého spuštění šabloně v aplikaci Outlook, postupujte takto.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna Kód.

Kód VBA: Makro pro otevření šablony

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

Poznámka: V kódu, “\ Microsoft \ Templates \ template test.oft„je výchozí cesta pro uložení šablony a test šablony je název šablony, kterou otevřete. Změňte je prosím podle potřeby.

3. cvaknutí Tools > Reference. Poté povolte Objektová knihovna Microsoft Excel rámeček níže.

4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

5. Klepněte na tlačítko Přizpůsobte panel nástrojů Rychlý přístup > Další příkazy. Viz snímek obrazovky:

6. V Možnosti aplikace Outlook dialogové okno, musíte:

6.1 Vyberte makra z Vyberte příkazy z rozbalovací seznam;

6.2 Vyberte Projekt 1. Vytvořte šablonu v seznamu příkazů;

6.3 Klepněte na přidat tlačítko;

6.4 Klepněte na OK knoflík. Viz screenshot:

7. Poté je na tlačítko přidáno tlačítko makro Panel nástrojů Rychlý přístup. Kliknutím na tlačítko se zadaná šablona okamžitě otevře. Viz snímek obrazovky: