Como atribuir um botão da Barra de Acesso Rápido a um modelo no Outlook?

Ao utilizar um modelo no Outlook, é necessário aceder à janela *Escolher Formulário*, localizar o modelo na *Área de Salvamento* e, em seguida, selecioná-lo para o abrir — um processo que pode ser algo incómodo para a maioria de nós. Apresento-lhe aqui um método prático para atribuir um botão de acesso rápido que abre diretamente um modelo específico no Outlook. Depois de configurado, basta um único clique para abrir instantaneamente o seu modelo.

Atribuir um botão de acesso rápido a um modelo com código VBA

---

Atribuir um botão de acesso rápido a um modelo com código VBA

Siga os passos abaixo para atribuir um botão de acesso rápido a um modelo no Outlook.

1. Prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.

2. Na janela Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela de Código.

Código VBA: Macro para abrir modelo

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

Nota: No código, "\Microsoft\Templates\template test.oft« é o caminho predefinido onde o modelo é guardado e »template test" é o nome do modelo que será aberto. Altere-os conforme necessário.

3. Clique em Ferramentas > Referências. Em seguida, ative a caixa Microsoft Excel Object Library, conforme mostrado na imagem seguinte.

4. Prima as teclas Alt + Q para fechar a janela Microsoft Visual Basic para Aplicações.

5. Clique em Personalizar Barra de Acesso Rápido > Mais Comandos. Veja a imagem:

6. Na caixa de diálogo Opções do Outlook, terá de:

6,1 Selecionar Macrosna lista Escolher comandos deLista suspensa;

6,2 Selecionar Project1.MakeTamplatena lista de comandos;

6,3 Clicar no botão Adicionar;

6,4 Clique no botão OK. Veja a imagem:

7. O botão da macro é então adicionado à Barra de Acesso Rápido. Ao clicar nesse botão, o modelo especificado abre imediatamente. Veja a imagem:

---

Artigos relacionados:

• Como atribuir um botão a uma macro específica no Outlook?