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

¿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.

doc sig forwar respuesta 1

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:

doc sig forwar respuesta 2

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:

doc sig forwar respuesta 3

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

doc sig forwar respuesta 4


Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
  • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
  • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL