Ir para o conteúdo principal
Note: The other languages of the website are Google-translated. Back to English

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

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

Adicionar saudação personalizada automaticamente ao responder com VBA

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


seta azul bolha direita Adicionar saudação personalizada automaticamente 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. aperte o outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Clique na inserção > Móduloe cole o seguinte código VBA na janela do novo 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. aperte o F5 Tecle ou clique Opere botão para executar este VBA. Ele irá abrir uma caixa de diálogo conforme mostrado abaixo na captura de tela. Digite 1 ou 2 de acordo com suas necessidades e clique em OK botão.

Digite 1 para saudação com o nome do destinatário: Digite 2 para saudação com hora do dia:

Anote os: No Outlook 2013, este código VBA não funciona se você responder mensagens no painel de leitura. Clique aqui para saber como desabilitar a resposta no Painel de Leitura no Outlook 2013.


seta azul bolha direita Adicionar saudação personalizada automaticamente ao responder com Kutools for Outlook

Alguns usuários podem não gostar de aplicar o código VBA no Outlook. Portanto, apresento o segundo método: Kutools for Outlook's Utilitário de saudação automática irá adicionar saudação personalizada facilmente em todas as mensagens de resposta.

Kutools for Outlook simplifica sua comunicação diária por e-mail através do Outlook, adicionando dezenas de recursos úteis. Leia mais      Download grátis agora

1. Clique na Kutools > Opções.

2. Na caixa de diálogo Opções de abertura, vá para o Resposta guia, marque o Adicionar saudação ao responder opção, digite Hi < >, na caixa abaixo e clique no OK botão.

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

Anote os: No Outlook 2013, este utilitário não funciona se você responder mensagens no Painel de Leitura. Clique aqui para saber como desabilitar a resposta no Painel de Leitura no Outlook 2013.

Download grátis Kutools for Outlook


Demonstração: adição automática de saudação personalizada ao responder no Outlook

Dica: Neste vídeo, Kutools guia é adicionada por Kutools for Outlook. Se você precisar, por favor clique aqui para ter um teste gratuito de 60 dias sem limitação!


As melhores ferramentas de produtividade para escritório

Kutools for Excel Resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (1)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi, Pl você pode ajudar a editar o acima para ter apenas o primeiro nome do destinatário e as saudações devem ser apenas 'Oi'? Exemplo: se o e-mail do remetente for Mark.James@xxx.com, minha resposta deveria ter - Oi John
Não há comentários postados aqui ainda