Como adicionar automaticamente uma saudação personalizada ao responder e-mails no Outlook?
Normalmente, ao responder a uma mensagem de e-mail no Outlook, é necessário adicionar manualmente a saudação. No entanto, a mensagem original já contém informações do destinatário, como o nome do remetente. Neste artigo, apresento dois métodos para incluir automaticamente uma saudação personalizada nas suas respostas 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 código VBA seguinte permite adicionar automaticamente uma saudação personalizada ao responder mensagens no Outlook. Siga os passos abaixo:
1. Selecione a mensagem de e-mail à qual deseja responder.
2. Prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o seguinte código VBA na nova janela do 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 Sub4. Prima a tecla F5 ou clique no botão Executar para executar este VBA. Irá surgir uma caixa de diálogo, conforme ilustrado na imagem seguinte. Introduza 1 ou 2 consoante as suas necessidades e, em seguida, clique no botão OK.
| Escreva 1 para uma saudação com o nome do destinatário: | Escreva 2 para uma saudação com a hora do dia: |
 |  |
Nota: No Outlook 2013, este código VBA não funciona se responder a 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 utilizadores podem não gostar de aplicar código VBA no Outlook. Por isso, apresentamos um segundo método: a utilidade Saudação Automática do Kutools para Outlook adiciona facilmente saudações personalizadas em todas as respostas.
Kutools para Outlooksimplifica a sua comunicação diária por e-mail através do Outlook, adicionando dezenas de funcionalidades práticas.Saber mais Transferir gratuitamente agora
1. Clique em Kutools > Opções.
2. Na caixa de diálogo Opções que se abre, aceda ao separador Responder, ative a opção Adicionar automaticamente saudação ao compor, responder ou encaminhar emails, personalize a saudação incluindo marcadores como >, > ou >, consoante as suas necessidades, na caixa abaixo e clique no botão OK.
A partir de agora, ao responder a mensagens no Outlook, a saudação personalizada será adicionada automaticamente ao corpo do e-mail, conforme ilustrado na imagem seguinte:
Nota: No Outlook 2013, esta funcionalidade não funciona se responder a mensagens no Painel de Leitura. Clique aqui para saber como desativar as respostas no Painel de Leitura no Outlook 2013.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos