Note: The other languages of the website are Google-translated. Back to English

Como criar automaticamente um nome de remetente caro ao responder uma mensagem no Outlook?

Ao responder a mensagem de e-mail, você deve digitar o nome do remetente e saudações manualmente. Para economizar tempo e melhorar a eficiência do trabalho, você pode considerar a criação de um nome de remetente caro e saudações automaticamente no Outlook. Neste artigo, falarei sobre alguns métodos úteis para resolver essa tarefa no Outlook.

Crie um nome de remetente caro e saudações automaticamente ao responder a mensagem com o código VBA

Crie um nome de remetente querido e saudações automaticamente ao responder a mensagem com o Kutools para Outlook


Crie um nome de remetente caro e saudações automaticamente ao responder a mensagem com o código VBA

O seguinte código VBA pode ajudá-lo a inserir automaticamente o nome e saudações de um remetente caro ao responder uma mensagem de e-mail, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook de Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: insira automaticamente o nome de um remetente caro e saudações ao responder:

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 = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
    End With
End Sub

doc auto querido remetente nome 1

3. Em seguida, feche o Outlook e reinicie-o para obter o efeito do código, e agora, quando você responde a uma mensagem de e-mail, o nome de um querido remetente e saudações são inseridos no corpo automaticamente, veja a imagem:

doc auto querido remetente nome 2


Crie um nome de remetente querido e saudações automaticamente ao responder a mensagem com o Kutools para Outlook

Se você tem Kutools para Outlook, Com o seu Adicionar saudação ao responder recurso, o Outlook irá inserir automaticamente o nome do remetente ao responder.

Kutools para Outlook : com mais de 100 suplementos úteis do Outlook, grátis para testar sem limitação em 60 dias. 

Depois de instalar Kutools para Outlook, por favor, faça o seguinte:

1. Clique Kutools > Opções, veja a captura de tela:

doc auto querido remetente nome 3

2. No Opções caixa de diálogo, sob o Resposta guia, cheque Adicionar saudação ao responder opção e, em seguida, insira as saudações conforme necessário, consulte a captura de tela:

doc auto querido remetente nome 4

3. Então clique OK para finalizar esta configuração, a partir de agora, ao responder uma mensagem, as saudações serão criadas automaticamente na frente do corpo da mensagem, veja a imagem:

doc auto querido remetente nome 5

Clique para baixar Kutools para Outlook e teste gratuito agora!


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (9)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Querida equipe,

Se eu configurar a configuração acima, no entanto, se eu estiver respondendo a um e-mail que tenha vários destinatários em Para, a saudação não será padrão. Como faço para conseguir isso?
Este comentário foi feito pelo moderador no site
Olá, Wesley,
Sim, como você disse, se houver vários destinatários no campo Para, a saudação não será inserida por padrão.
Este comentário foi feito pelo moderador no site
Oi.
O que preciso editar no código VBA para incluir apenas o primeiro nome e omitir o "(s)" após Dear?
obrigado
Este comentário foi feito pelo moderador no site
Oi.
O que preciso editar no código VBA para incluir apenas o primeiro nome e omitir o "(s)" após Dear?
obrigado
Este comentário foi feito pelo moderador no site
Olá, Mateus,
Para resolver seu problema, o seguinte código VBA pode lhe fazer um favor:
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 xRcpName As String
  Dim xRecipient As Recipient
  Dim xContactItem As ContactItem
  Dim xExUser As ExchangeUser
  On Error Resume Next
  If Item.Class <> olMail Then Exit Sub
  Set xReplyMail = Item
  xSenderName = ""
  xRcpName = ""
  For Each xRecipient In xReplyMail.Recipients
    Set xExUser = Nothing
    Set xContactItem = Nothing
    If xRecipient.AddressEntry.AddressEntryUserType < 6 Then
      Set xExUser = xRecipient.AddressEntry.GetExchangeUser
    Else
      Set xContactItem = xRecipient.AddressEntry.GetContact
    End If
    If Not xExUser Is Nothing Then
      If xSenderName = "" Then
        xSenderName = xExUser.FirstName
        If xSenderName = "" Then
          xSenderName = xRecipient.Name
        End If
      Else
        xSenderName = xSenderName & ", " & xExUser.FirstName
        If xExUser.FirstName = "" Then
          xSenderName = xSenderName & xRecipient.Name
        End If
      End If
    ElseIf Not xContactItem Is Nothing Then
      If xSenderName = "" Then
        xSenderName = xContactItem.FirstName
        If xSenderName = "" Then
          xSenderName = xRecipient.Name
        End If
      Else
        xSenderName = xSenderName & ", " & xContactItem.FirstName
        If xRecipient.FirstName = "" Then
          xSenderName = xSenderName & xRecipient.Name
        End If
      End If
    Else
      If xSenderName = "" Then
        xSenderName = xRecipient.Name
      Else
        xSenderName = xSenderName & ", " & xRecipient.Name
      End If
    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 = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
  End With
End Sub

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Olá
Obrigado pelas sugestões, embora não funcione. Desejo incluir apenas o primeiro nome e omitir o "(s)" após Dear?
Este comentário foi feito pelo moderador no site
Olá, Mateus,
O código acima funciona bem.
Primeiro, você deve certificar-se de que o endereço do destinatário foi adicionado à pasta de contatos do Outlook.
Caso o destinatário não esteja na pasta Contatos, ao aplicar este código, o nae completo será exibido.
Obrigado!
Este comentário foi feito pelo moderador no site
Olá

Obrigado por sua resposta! Vou adicionar contatos à minha pasta. Eu queria saber se existe uma maneira de sempre exibir apenas o primeiro nome, mesmo sem contatos dentro da minha pasta. Para contextualizar, trabalho em uma grande universidade e seria difícil e demorado encontrar todos os membros da equipe individualmente.
Este comentário foi feito pelo moderador no site
Olá, Mateus,

Sorry, if you haven't added the contact to the contact folder, the code will not get the recipient's first name.
Obrigado!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL