Como criar automaticamente uma saudação do tipo «Caro [nome do remetente]» ao responder a mensagens no Outlook?

Ao responder a e-mails no Outlook, é comum começar com uma saudação educada, como «Caro João,», seguida de uma mensagem como «Bom dia!». No entanto, digitar isso manualmente todas as vezes pode tornar-se repetitivo e demorado. Este tutorial apresenta dois métodos eficazes para inserir automaticamente o nome do remetente e a saudação ao responder a mensagens no Outlook:

Método 1: Adicionar automaticamente saudações com VBA ao responder a e-mails(Configuração flexível mas manual)

Método 2: Adicionar automaticamente saudação ao responder ou reencaminhar com Kutools para Outlook 👍(Rápido e fácil)

Método 1: Adicionar automaticamente saudações com VBA ao responder a e-mails

O código VBA seguinte insere automaticamente uma saudação personalizada (por exemplo, «Caro João, Bom dia!») no corpo da mensagem de resposta, com base na hora atual do dia.

Passo 1: Abrir o Editor do VBA no Outlook

1. Prima Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. No painel esquerdo, em «Project1 (VbaProject.OTM)», expanda «Microsoft Outlook Objects» e faça duplo clique em «ThisOutlookSession».

Passo 2: Inserir o código VBA

Copie e cole o seguinte código VBA no editor:

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem

Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub GExplorer_SelectionChange()
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set GMailItem = xItem
End Sub

Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
    AutoAddGreetingToReply Response
End Sub

Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    AutoAddGreetingToReply Response
End Sub

Sub AutoAddGreetingToReply(Item As Object)
    Dim xGreetStr As String
    Dim xReplyMail As MailItem
    Dim xSenderName As String
    Dim xRecipient As Recipient
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xReplyMail = Item
    For Each xRecipient In xReplyMail.Recipients
        If xSenderName = "" Then
            xSenderName = xRecipient.Name
        Else
            xSenderName = xSenderName & "," & xRecipient.Name
        End If
    Next xRecipient
    Select Case Time
           Case 0.3 To 0.5
                xGreetStr = " Good morning!"
           Case 0.5 To 0.75
                xGreetStr = " Good afternoon!"
           Case Else
                xGreetStr = " Good evening!"
    End Select
    With xReplyMail
        .Display
        .HTMLBody = "Dear " & xSenderName & "," & xGreetStr & "" & .HTMLBody
    End With
End Sub

Passo 3: Guardar o código VBA e reiniciar o Outlook

1. Prima Ctrl+S para guardar o projeto.

2. Feche o editor do VBA e reinicie o Outlook para que o código tenha efeito.

Resultado:

Sempre que responder a um e-mail, o Outlook insere automaticamente uma saudação no início do corpo da mensagem.

---

📅 Inserção automática de data e texto no assunto ou na assinatura — instantaneamente!

Cansado de adicionar manualmente datas aos seus e-mails? Com Kutools para Outlook, pode inserir automaticamente a data atual — e até mesmo texto personalizado — no assunto do seu e-mail ou na sua assinatura sempre que criar, responder ou reencaminhar uma mensagem. Basta configurar uma vez e o Kutools trata do resto por si — de forma instantânea e consistente. 🚀

💡Dica rápida: Clique em Kutools > Opções e ative a inserção automática de datas nos assuntos ou nas assinaturas.

✅Inserção automática de Inserir data nas assinaturas
✅Adicionar automaticamente a data às linhas de assunto

✅Formato de data personalizado
✅Funciona em novos e-mails e em respostas

🔥 Experimente o Kutools para Outlook – GRÁTIS!

Método 2: Adicionar automaticamente saudação ao responder ou reencaminhar com Kutools para Outlook 👍

Se pretender uma abordagem mais rápida e sem programação, a funcionalidade integrada «Kutools para Outlook» oferece uma opção de Saudação que adiciona automaticamente o nome do remetente juntamente com uma saudação ao responder ou reencaminhar e-mails.

1. Clique em «Kutools» > «Opções» para abrir a caixa de diálogo «Opções».

2. Na caixa de diálogo «Opções», configure o seguinte:

1. 1). Aceda ao separador «Responder».
2. 2). Marque a opção «Adicionar automaticamente saudação ao compor, responder ou encaminhar e-mails». Por predefinição, irá aparecer Olá >, na caixa.
⚡ Dica: Pode substituir a saudação pelo seu próprio texto e personalizá-la utilizando códigos automáticos de nome como >,>, ou >para inserir o nome do destinatário conforme necessário.
3. 3). Clique em OK para guardar as suas definições.

📌Resultado: A partir de agora, sempre que responder ou reencaminhar um e-mail, o Kutools insere automaticamente uma saudação no início do corpo da mensagem.

Qual o método que deve utilizar?

Aqui está uma comparação rápida dos dois métodos para o ajudar a escolher o que melhor se adapta às suas necessidades:

Recomendação final:
Se já domina VBA e precisa de controlo avançado sobre o conteúdo da saudação, o Método 1 é uma excelente opção. Contudo, para a maioria dos utilizadores, o Método 2 com Kutools para Outlook é a forma mais fácil e eficiente de adicionar saudações automaticamente — com configuração mínima e sem programação.

---

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook      Transferir Já      Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

• ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
• 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
• 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto⬇ Transferir o Conjunto💳 Comprar o Conjunto