Como adicionar saudações automaticamente para responder mensagens com o Outlook VBA

Em geral, ao responder um e-mail, nos acostumamos a adicionar as saudações. Alguém até espera que o Outlook possa adicionar saudações automaticamente, dependendo do nome do destinatário. Na verdade, isso pode ser realizado com o Outlook VBA. Este artigo irá apresentá-lo em detalhes.

Normalmente, quando respondemos a um e-mail, sempre escrevemos algumas saudações no início do corpo da mensagem. Você pode achar um pouco complicado, pois não deseja digitar a mesma linha de saudação todas as vezes. Na realidade, você pode evitá-lo por meio do recurso “Partes rápidas” do Outlook, que permite salvar as mesmas saudações da Parte rápida. Desde então, você pode inseri-lo diretamente sem precisar digitar manualmente.

No entanto, esta função não é capaz de identificar automaticamente o destinatário, portanto, não pode adicionar uma saudação personalizada, ou seja, incluir o nome do destinatário. Além disso, alguns usuários ainda desejam torná-lo totalmente automático, mesmo sem inserir manualmente. Focado nesse tipo de requisito, aqui está um método rápido para alcançá-lo via Outlook VBA.

Adicionar saudações automaticamente às mensagens de resposta

1. Em primeiro lugar, inicie o Outlook e mude para a guia “Desenvolvedor”.
2. Então você precisa clicar no botão “Visual Basic”.
3. Posteriormente, aparecerá uma nova janela. Em seguida, você deve abrir um módulo em branco ou inserir um novo módulo.
4. Em seguida, no novo módulo, você pode copiar e colar os seguintes códigos VBA nele.

Sub AutoAddGreetingtoReply() Dim oMail As MailItem Dim oReply As MailItem Dim GreetTime As String Selecione Case Application.ActiveWindow.Class Case olInspector Set oMail = ActiveInspector.CurrentItem Case olExplorer Set oMail = ActiveExplorer.Selection.Item(1) End Select Select Case Time Case 0.3 To 0.5 GreetTime = "Bom dia!" Case 0.5 To 0.75 GreetTime = "Boa tarde!" Case Else GreetTime = "Boa noite!" End Select Set oReply = oMail.Reply With oReply .HTMLBody = " Caro " & oMail.SenderName & ", " & GreetTime & .HTMLBody .Display End With End Sub

5. Depois disso, você pode sair da janela atual e alterar suas configurações de macro. Clique no botão “Segurança de macro” e defina o nível de macro para baixo.
6. Mais tarde, você precisa adicionar o novo projeto VBA à faixa de opções ou à barra de ferramentas de acesso rápido. Aqui, usaremos a Barra de ferramentas de acesso rápido como exemplo.

• Em primeiro lugar, clique na seta para baixo na Barra de Ferramentas de Acesso Rápido e selecione “Mais Comandos”.
• Em seguida, na janela pop-up, adicione a nova macro à Barra de Ferramentas de Acesso Rápido seguindo as etapas mostradas na imagem abaixo.

7. Eventualmente, você pode tentar.

• Em primeiro lugar, selecione um e-mail e clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Em seguida, uma nova mensagem de resposta será exibida. Saudações foram adicionadas ao corpo da mensagem automaticamente, como na imagem a seguir.

Mantenha seu Outlook bem protegido

Como o Outlook é vulnerável, os usuários regulares devem ter encontrado vários problemas. Se nos depararmos com esses erros irritantes, podemos fazer uso inteligente da ferramenta de reparo embutida, scanpst.exe, que pode lidar com os pequenos problemas. Se você encontrar problemas sérios, como Danos no correio do Outlook, a ferramenta da caixa de entrada não ajudará muito. Você será obrigado a recorrer a ferramentas mais experientes e inteligentes, 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 arquivo mdf SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com