Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Cadastre-se
x

or

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 enquanto enviam e-mails por meio de diferentes contas de e-mail. Mas além disso, aqui mostrarei o método de alterar automaticamente a assinatura com base em diferentes destinatários no campo Para no Outlook.

Alterar assinatura baseada em destinatários automaticamente com código VBA


Sempre responda e-mail com a conta de e-mail padrão no Outlook:

Se você quiser sempre responder e-mail com a conta de e-mail padrão no seu Outlook, o Sempre responda com conta padrão opção de Kutools for Outlook você fará um favor. Veja a captura de tela:

Kutools for Outlook: com mais de 40 acessíveis suplementos do Outlook, pode tentar sem limitação em dias 45. Baixe e teste grátis agora!


Alterar assinatura baseada em destinatários automaticamente com código VBA

Siga as etapas abaixo para aplicar assinaturas diferentes aos destinatários correspondentes enquanto envia e-mails no Outlook.

1. Em primeiro lugar, você precisa desativar o recurso de assinatura automática anexada no Outlook. Por favor clique filete > opções para abrir o Opções do Outlook janela.

2. No Opções do Outlook janela, selecione Mail no painel esquerdo, clique no botão Assinaturas botão no Componha mensagens seção. Ver captura de tela:

3. No Assinaturas e artigos de papelaria caixa de diálogo, vá para o Escolha a assinatura padrão seção sob o Assinatura de e-mail aba, selecione uma conta de e-mail no Conta de e-mail lista suspensa e, em seguida, escolha (Nenhum) de Novas mensagens e Respostas / encaminhamentos listas suspensas. Repita essas etapas até que todas as contas de email estejam definidas como (Nenhum). Em seguida, clique no botão OK botão.

notas: Você também pode criar suas assinaturas necessárias neste Assinaturas e artigos de papelaria caixa de diálogo.

4. Clique na OK botão quando 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 duas vezes ThisOutlookSession no painel esquerdo para abrir a janela de código e a cópia abaixo do código do VBA na janela. Veja a captura de tela:

Código VBA: Altere automaticamente a assinatura com base nos destinatários no Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 20180814
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 xTextStream As Scripting.TextStream
Dim xSignature As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class = olMail Then
    Set xMailItem = Item
    Set xRecipients = xMailItem.Recipients
End If
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
If xRecipients.Count = 1 Then
    Set xRecipient = xRecipients.Item(1)
    xRcpAddress = xRecipient.Address
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
    End Select
End If
Set xTextStream = xFSO.OpenTextFile(xSignatureFile)
xSignature = xTextStream.ReadAll
xMailItem.HTMLBody = xMailItem.HTMLBody & "<HTML><BODY><br>" & xSignature & "</br></HTML></BODY>"
End Sub

Notas:

1. No código VBA, por favor, substitua o “Endereço de email 1 / 2 / 3 / 4”Com os endereços de e-mail específicos dos destinatários.

2. "aaa.htm""bbb.htm"E"ccc.htm"são a assinatura especificada 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 email incorporado com assinatura“ccc" Por favor, altere-os com base em suas necessidades.

7. Então clique Ferramentas > caso para ir para o Referências-Projeto caixa de diálogo. Na caixa de diálogo, por favor verifique Microsoft Scripting Runtime opção e, em seguida, clique em OK botão, veja a captura de tela:

8. aperte o outro + Q chaves para fechar Microsoft Visual Basic para Aplicações janela.

A partir de agora, após compor um email e apertar o botão Enviar, a assinatura correspondente será inserida automaticamente no final do corpo do email com base no endereço de email do destinatário no campo Para.

Se você quiser inserir o registro de data e hora como assinatura no corpo do email ao criar / responder / encaminhar novos emails em seu Outlook, você pode ativar Adicionar assinatura de data ao criar novo, responder e encaminhar e-mail opção de Kutools for Outlook para conseguir isso. Veja a captura de tela:

Kutools for Outlook: com mais de 40 acessíveis suplementos do Outlook, pode tentar sem limitação em dias 45. Baixe e teste grátis agora!



Kutools for Outlook

Mais do que 100 Funções avançadas para o Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools para outlook minúsculo para banner 201812

mais recursos | Download grátis | Apenas $ 39.00 para centenas de funções

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.