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 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 do 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
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:
Crie o nome e as saudações de um remetente querido automaticamente ao responder uma mensagem com o Kutools para Outlook
Se você tem Kutools for Outlook, Com o seu Adicionar saudação ao responder recurso, o Outlook irá inserir automaticamente o nome do remetente ao responder.
Kutools for Outlook : com mais de 100 suplementos úteis do Outlook, grátis para testar sem limitação em 60 dias. |
Depois de instalar Kutools for Outlook, por favor, faça o seguinte:
1. Clique Kutools > Opções, veja a captura de tela:
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:
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:
Clique para baixar o Kutools para Outlook e testar gratuitamente agora!
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.