¿Cómo configurar diferentes firmas para respuestas y reenvíos en Outlook?

Normalmente, puede establecer diferentes firmas para diferentes cuentas en su Outlook, pero alguna vez ha intentado aplicar diferentes firmas para respuestas y reenvíos. Significa que, cuando responde un correo electrónico, se inserta la firma1, cuando reenvía un correo electrónico, se aplica la firma2. ¿Cómo podrías resolver esta tarea en Outlook?

Establezca diferentes firmas para respuestas y reenvíos con código VBA

---

Establezca diferentes firmas para respuestas y reenvíos con código VBA

El siguiente código VBA puede ayudarlo a configurar diferentes firmas para respuestas y reenvíos, siga los pasos a continuación uno por uno:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Luego, haz clic recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto, vea la captura de pantalla:

Código de VBA: establezca diferentes firmas para respuestas y reenvíos:

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:: En el código anterior, Signature1 y Signature2 son los dos nombres de firma que desea utilizar para responder y reenviar. Cambie los nombres según sus necesidades.

3. Todavía en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias para ir a la Referencias-Proyecto1 cuadro de diálogo y verifique Tiempo de ejecución de secuencias de comandos de Microsoft Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:

4. Y luego haz clic OK para cerrar el cuadro de diálogo, a partir de ahora, cuando responda un correo electrónico, se insertará Signature1 de una vez, vea la captura de pantalla:

Y cuando reenvíe un mensaje, Signature2 se insertará como se muestra en la siguiente captura de pantalla: