Skip to main content

Como adicionar automaticamente uma saudação personalizada ao responder no Outlook?

Author: Kelly Last Modified: 2025-06-04

Normalmente, ao responder a uma mensagem de e-mail no Outlook, precisamos adicionar manualmente uma saudação. Na verdade, a mensagem original contém as informações do destinatário, como o nome do remetente. E neste artigo, vou apresentar dois métodos para adicionar automaticamente uma saudação personalizada ao responder no Outlook.

Adicionar automaticamente uma saudação personalizada ao responder com VBA

Adicionar automaticamente uma saudação personalizada ao responder com Kutools para Outlook


Adicionar automaticamente uma saudação personalizada ao responder com VBA

O seguinte código VBA pode adicionar automaticamente uma saudação personalizada ao responder mensagens no Outlook. Você pode fazer o seguinte:

1. Selecione a mensagem de e-mail que você irá responder.

2. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código VBA na nova janela de módulo.

VBA: Responder com saudação personalizada

Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub

4. Pressione a tecla F5 ou clique no botão Executar para executar este VBA. Uma caixa de diálogo será exibida conforme mostrado na captura de tela abaixo. Digite 1 ou 2 com base em suas necessidades e clique no botão OK.

the screenshot of adding personalized greeting when replying with VBA 1
Digite 1 para saudação com o nome do destinatário: Digite 2 para saudação com o horário do dia:
the screenshot of adding personalized greeting when replying with VBA 2 the screenshot of adding personalized greeting when replying with VBA 3

Observação: No Outlook 2013, este código VBA não funciona se você responder às mensagens no Painel de Leitura. Clique aqui para saber como desativar a resposta no Painel de Leitura no Outlook 2013.


Adicionar automaticamente uma saudação personalizada ao responder com Kutools para Outlook

Alguns usuários podem não gostar de aplicar código VBA no Outlook. Portanto, apresento o segundo método: a ferramenta Auto Saudação do Kutools para Outlook adicionará facilmente saudações personalizadas em todas as mensagens de resposta.

 👉 O Kutools para Outlook agora tem uma versão gratuita, com 70+ recursos disponíveis gratuitamente por toda a vida. Faça o download da Versão Gratuita Agora.

Kutools para Outlook simplifica sua comunicação diária por e-mail através do Outlook, adicionando dezenas de recursos úteis. Leia Mais      Baixar Grátis Agora

1. Clique em Kutools > Opções.

2. Na caixa de diálogo Opções que se abre, vá para a aba Responder, marque a opção Adicionar saudação ao criar, responder e encaminhar um e-mail, personalize a saudação incluindo marcadores de posição como <<SenderName>>, <<FirstName> > ou <<LastName> > com base em suas necessidades. Insira-os na caixa abaixo e clique no botão OK .

select-add-greeting

A partir de agora, ao responder a mensagens no Outlook, a saudação personalizada será adicionada automaticamente ao corpo do e-mail, conforme mostrado na captura de tela a seguir:

auto add greeting

Observação: No Outlook 2013, esta utilidade não funciona se você responder às mensagens no Painel de Leitura. Clique aqui para saber como desativar a resposta no Painel de Leitura no Outlook 2013.


Melhores Ferramentas de Produtividade para Office

🤖 Assistente AI do KUTOOLS: Revolucione a análise de dados com base em: Execução Inteligente | Gerar Código | Criar Fórmulas Personalizadas | Analisar Dados e Gerar Gráficos | Invocar Funções Aprimoradas
Recursos Populares: Encontrar, Destacar ou Marcar Duplicatas | Excluir Linhas em Branco | Combinar Colunas ou Endereço sem Perder Dados | Arredondar...
Super PROC: PROC com Múltiplos Critérios | PROC com Múltiplos Valores | Procura em várias planilhas | Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente uma Lista Suspensa | Lista Suspensa Dependente | Lista Suspensa com Múltipla Seleção...
Gerenciador de Colunas: Adicionar um Número Específico de Colunas | Mover Colunas | Alternar Estado de Visibilidade das Colunas Ocultas | Comparar Intervalo & Colunas...
Recursos em Destaque: Grade de foco | Visualização de Design | Barra de fórmulas aprimorada | Gerenciador de Pasta de trabalho & Planilha | Biblioteca de AutoTexto | Selecionador de Data | Mesclar Dados | Criptografar/Descriptografar Células | Enviar Email por Lista | Super Filtro | Filtro Especial (filtrar negrito/itálico/tachado...)...
Top15 Conjuntos de Ferramentas:12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...) | Mais de50 Tipos de Gráficos (Gráfico de Gantt, ...) | Mais de40 Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...) |19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem a partir do Caminho, ...) |12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...) |7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ... e muito mais

Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...


O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho

  • Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
  • Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!