Como atribuir um botão de início rápido a um modelo no Outlook?

Ao usar o modelo no Outlook, você deve entrar na janela Escolher formulário, encontrar o local de salvamento do modelo e, em seguida, selecionar para abri-lo. Isso pode ser um tanto problemático para a maioria de nós. Aqui, vou mostrar um método para atribuir um botão de início rápido para abrir um modelo específico no Outlook. Após atribuir o botão, o modelo será aberto rapidamente com apenas um clique.

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

Guia Office - Habilite edição e navegação com guias no Microsoft Office, facilitando o trabalho

Leia mais...Download ...

Kutools para Outlook - Impulsione o Outlook com mais de 100 recursos avançados para eficiência superior

Automatize o envio de e-mails com Auto CC / BCC, Avanço automático por regras; enviar Resposta automatica (Fora do escritório) sem a necessidade de um servidor Exchange...
Receba lembretes como Aviso BCC ao responder a todos enquanto você está na lista BCC, e Lembrar quando houver anexos ausentes para anexos esquecidos...
Melhore a eficiência do e-mail com Responder (todos) com anexos, Adicionar automaticamente saudação ou data e hora à assinatura ou assunto, Responder vários e-mails...
Simplifique o envio de e-mails com Recuperar e-mails, Ferramentas de Anexo (Compactar tudo, salvar tudo automaticamente...), Remover Duplicados e Relatório Rápido...

Aumente seu Outlook 2021 - 2010 ou Outlook 365 com esses recursos avançados. Desfrute de um teste gratuito abrangente de 60 dias e melhore sua experiência de e-mail!

Leia mais...Download ...

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

Faça o seguinte para atribuir um botão de início rápido a um modelo no Outlook.

1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

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

Código VBA: Macro para abrir o 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

Note: No código, "\ Microsoft \ Templates \ template test.oft"é o caminho padrão para salvar o modelo e teste do modelo é o nome do modelo que você abrirá. Altere-os conforme necessário.

3. Clique Ferramentas > Referências. Em seguida, habilite o Biblioteca de objetos do Microsoft Excel caixa como abaixo a imagem mostrada.

4. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.

5. Clique na Personalize a barra de ferramentas de acesso rápido > Mais comandos. Veja a imagem:

6. No Opções do Outlook caixa de diálogo, você precisa:

6.1 Selecione Macros do Escolha comandos de lista suspensa;

6.2 Selecione o Projeto1.FazerTampa na caixa de lista de comandos;

6.3 Clique no Adicionar botão;

6.4 Clique no OK botão. Veja a imagem:

7. Em seguida, o botão de macro é adicionado ao Barra de Ferramentas de Acesso Rápido. Clique no botão para abrir o modelo especificado imediatamente. Veja a imagem: