Como alterar automaticamente a assinatura com base nos destinatários no Outlook?
Por padrão, o Outlook tem uma função integrada para que os usuários alterem automaticamente a assinatura ao enviar emails por meio de contas de email diferentes. Além disso, mostrarei aqui o método de alteração automática da assinatura com base em destinatários diferentes no campo Para do Outlook.
Altere a assinatura com base nos destinatários automaticamente com o código VBA
Altere a assinatura com base nos destinatários automaticamente com o código VBA
Siga as etapas abaixo para aplicar assinaturas diferentes aos destinatários correspondentes ao enviar e-mails no Outlook.
1. Em primeiro lugar, você precisa desativar o recurso de assinatura anexada automaticamente no Outlook. Por favor clique Envie o > Opções para abrir o Opções do Outlook janela.
2. No Opções do Outlook janela, selecione Mail no painel esquerdo e, em seguida, clique no Assinaturas botão no Compor mensagens seção. Veja a imagem:
3. No Assinaturas e papelaria caixa de diálogo, vá para o Escolha a assinatura padrão seção sob o Assinatura de e-mail guia, selecione uma conta de e-mail no Conta de e-mail lista suspensa e escolha (Nenhum) do Novas mensagens e Respostas / encaminhamentos listas suspensas. Repita essas etapas até que todas as contas de e-mail estejam definidas para (Nenhum). Em seguida, clique no botão OK botão.
Note: Você também pode criar suas assinaturas necessárias neste Assinaturas e papelaria caixa de diálogo.
4. Clique na OK botão quando ele retorna o Opções do Outlook janela.
5. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
6. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook no painel esquerdo para abrir a janela Código e a cópia abaixo do código VBA na janela. Veja a imagem:
Código VBA: altera automaticamente a assinatura com base nos destinatários do Outlook
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
Notas:
- 1). No código VBA, substitua o “Endereço de Email 1/2/3/4”Com determinados endereços de e-mail dos destinatários.
- 2). "aaa.htm""bbb.htm"E"ccc.htm" são as assinaturas especificadas que você enviará aos destinatários correspondentes.
- 3). Neste caso, assinatura “aaa”Será enviado para“Endereço de Email 1”, Assinatura“bbb”Será enviado para“Endereço de Email 2"E"Endereço de Email 3"e “Endereço de Email 4”Receberá o e-mail com a assinatura“ccc”. Altere-os de acordo com suas necessidades.
- 4). Se houver vários destinatários em um email, o código levará em consideração apenas o primeiro destinatário. Nesse caso, outros destinatários receberão os e-mails com a mesma assinatura do primeiro destinatário.
7. Então clique Ferramentas > Referências para ir para o Referências-Projeto caixa de diálogo. Na caixa de diálogo, verifique os Biblioteca de objetos do Microsoft Word e os votos de Tempo de execução de scripts da Microsoft opções e clique em OK botão, veja a captura de tela:
8. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, após escrever um e-mail e clicar no botão Enviar, a assinatura correspondente será inserida automaticamente no final do corpo do e-mail com base no endereço de e-mail do destinatário no campo Para.
Insira automaticamente a data atual como assinatura ao enviar e-mail no Outlook:
Se você deseja inserir um carimbo de data / hora como assinatura no corpo do e-mail ao criar / responder / encaminhar um novo e-mail no Outlook, você pode ativar o Adicionar assinatura de data ao criar um novo, responder e encaminhar e-mail opção de Kutools for Outlook para alcançá-lo. Veja a imagem:
Faça o download e experimente agora (trilha gratuita de 60 dias)
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.
