2 métodos rápidos para criar novos e-mails a partir de um modelo com o Outlook VBA

Como muitos usuários acham complicado encontrar e usar modelos de e-mail do Outlook, exibiremos 2 métodos rápidos para criar novos e-mails usando um modelo com o Outlook VBA neste artigo.

Na maioria das vezes, para usar um modelo de e-mail do Outlook, você precisa primeiro encontrá-lo clicando em “Novo Item” > “Mais Itens” > “Escolher Formulário”. Em seguida, na caixa de diálogo “Escolher Formulário”, localize e abra o modelo desejado em “Modelos de Usuário no Sistema de Arquivos”, como na captura de tela a seguir.

Obviamente, é realmente muito problemático. Portanto, aqui apresentaremos 2 meios rápidos, que podem criar rapidamente novos e-mails usando modelos com a ajuda do Outlook VBA. Leia para obtê-los em detalhes.

Método 1: Criar um novo modelo de e-mail diretamente pelo Outlook VBA

1. Primeiro, vá para a guia “Desenvolvedor” na janela principal do Outlook.
2. Em seguida, clique no botão “Visual Basic”, que abrirá uma nova janela.
3. Em seguida, copie e cole os seguintes códigos VBA em um módulo.

Sub CreateNewMail()
    Dim obApp As Object
    Dim NewMail As MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)
 
    'You can change the concrete info as per your needs
    With NewMail
         .Subject = Date & " Test Email"
         .To = "example@mail.com"
         .Body = "Dear Johnny," & vbCrLf & vbCrLf & "I'm glad to write this email to you .......... " & vbCrLf & vbCrLf & "This is just a test email template with Outlook VBA" & vbCrLf & vbCrLf & vbCrLf & "Yours Truly," & vbCrLf & vbCrLf & "John Smith"
         .Attachments.Add ("C:\Attachments\Test File.docx")
         .Importance = olImportanceHigh
         .Display
    End With
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. Depois disso, saia da janela “Visual Basic”. Agora siga os passos abaixo para adicionar esta macro à Barra de Ferramentas de Acesso Rápido:

• Primeiramente, clique na seta para baixo na Barra de Ferramentas de Acesso Rápido e selecione “Mais Comandos”.
• Em seguida, na nova janela pop-up, defina “Escolher comandos de” para “Macros”.
• Depois disso, arremesso no correto.
• A seguir, clique no botão “Adicionar”.
• Posteriormente, você pode alterar sua aparência. Clique no botão “Modificar”. Na nova caixa de diálogo, dê um novo nome e especifique um ícone para ela.
• Por fim, clique em dois “OK”.

5. Finalmente, você pode clicar no ícone de macro na Barra de Ferramentas de Acesso Rápido. Imediatamente, uma nova janela de mensagem irá aparecer, conforme a figura a seguir.

Método 2: Criar um novo e-mail a partir de um modelo existente pelo Outlook VBA

1. Em primeiro lugar, você deve ter em mãos um modelo de e-mail pronto. Crie um novo e-mail no formato desejado, papel de carta e salve-o como modelo do Outlook. Para etapas detalhadas, consulte o artigo “Como melhorar sua eficiência de trabalho por meio de modelos do Outlook”. Além disso, anote o caminho da pasta de salvamento deste arquivo de modelo.
2. Em seguida, acesse a janela “Visual Basic” e abra um novo módulo como a Dica 1.
3. Posteriormente, você deve copiar e colar a seguinte captura de tela:

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\Test\Documents\Test Mail.oft")
    NewMail.Display
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

4. Depois disso, siga a Etapa 5 na Dica 1 acima para adicionar a nova macro à Barra de Ferramentas de Acesso Rápido.
5. Eventualmente, você pode tentar. Você receberá o novo e-mail usando o modelo, conforme a imagem abaixo:

Comparação dos 2 Métodos

Lidar com erros ocasionais do Outlook

Embora o Outlook seja repleto de recursos, ainda está sujeito a vários problemas. Além disso, o mais irritante é a impossibilidade de iniciar o Outlook. Em geral, isso pode ocorrer devido a... Outlook corrompido. Então você pode ir ao 'Painel de Controle' para reparar a suíte de escritório. Se o problema persistir, você deve recorrer a uma ferramenta de reparo experiente, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar SQL Server mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com