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

Como definir assinaturas diferentes para respostas e encaminhamentos no Outlook?

Normalmente, você pode definir assinaturas diferentes para contas diferentes em seu Outlook, mas, já tentou aplicar assinaturas diferentes para respostas e encaminhamentos. Isso significa que, quando você responde um e-mail, a assinatura1 é inserida, quando você encaminha um e-mail a assinatura2 é aplicada. Como você resolveria essa tarefa no Outlook?

Defina assinaturas diferentes para respostas e encaminhamentos com código VBA


Defina assinaturas diferentes para respostas e encaminhamentos com código VBA

O código VBA a seguir pode ajudá-lo a definir assinaturas diferentes para respostas e encaminhamentos. Siga as etapas abaixo, uma por uma:

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

2. Então clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:

Código VBA: defina assinaturas diferentes para respostas e encaminhamentos:

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMail As Outlook.MailItem
Public GFSO As Scripting.FileSystemObject
Public GTextStream As Scripting.TextStream
Public GText As String
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
    Set GFSO = New Scripting.FileSystemObject
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 GMail = xItem
End Sub
Private Sub GMail_Reply(ByVal Response As Object, Cancel As Boolean)
    InsertSignature Response, "Signature1.htm"   'change this signature name for replies
End Sub
Private Sub GMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    InsertSignature Forward, " Signature2.htm"    'change this signature name for forwards
End Sub
Private Sub InsertSignature(Item As Object, SignName As String)
    Dim xSignatureFile As String
    Dim xMailItem As Outlook.MailItem
    xSignatureFile = CreateObject("WScript.Shell").SpecialFolders(5)
    xSignatureFile = xSignatureFile & "\Microsoft\Signatures\" & SignName
    Set GTextStream = GFSO.OpenTextFile(xSignatureFile)
    GText = ""
    GText = GTextStream.ReadAll
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    With xMailItem
        .Display
        .HTMLBody = .HTMLBody & "<br><br>" & GText
    End With
End Sub

Nota: No código acima, Assinatura 1 e Assinatura 2 são os dois nomes de assinatura que você deseja usar para responder e encaminhar. Por favor, altere os nomes de acordo com sua necessidade.

doc sig forwar resposta 1

3. Ainda no Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > Referências para ir para o Referências-Projeto1 caixa de diálogo e verifique Tempo de execução de scripts da Microsoft opção do Referências Disponíveis caixa de lista, veja a captura de tela:

doc sig forwar resposta 2

4. E, em seguida, clique em OK para fechar a caixa de diálogo, a partir de agora, quando você responder um e-mail, a Assinatura1 será inserida imediatamente, veja a imagem:

doc sig forwar resposta 3

E quando você encaminhar uma mensagem, a Signature2 será inserida conforme a seguinte imagem mostrada:

doc sig forwar resposta 4


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 (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos