¿Cómo cambiar automáticamente la firma según los destinatarios en Outlook?

De forma predeterminada, Outlook tiene una función incorporada para que los usuarios cambien automáticamente la firma mientras envían correos electrónicos a través de diferentes cuentas de correo electrónico. Pero más allá de eso, aquí le mostraré el método para cambiar automáticamente la firma en función de diferentes destinatarios en el campo Para en Outlook.

Cambie la firma según los destinatarios automáticamente con el código VBA

Cambie la firma según los destinatarios automáticamente con el código VBA

Siga los pasos a continuación para aplicar diferentes firmas a los destinatarios correspondientes mientras envía correos electrónicos en Outlook.

1. En primer lugar, debe desactivar la función de firma adjunta automáticamente en Outlook. Por favor haz click Archive > Opciones para abrir el Opciones de outlook ventana.

2. En el Opciones de outlook ventana, seleccionar Correo en el panel izquierdo, luego haga clic en el Firmas botón en el Redactar mensajes sección. Ver captura de pantalla:

3. En el Firmas y Papelería cuadro de diálogo, vaya al Elija la firma predeterminada sección debajo del Firma de email pestaña, seleccione una cuenta de correo electrónico en la Cuenta de correo electrónico lista desplegable y luego elija (Ninguno) del desplegable Nuevos mensajes y Respuestas / reenvíos listas desplegables. Repita estos pasos hasta que todas las cuentas de correo electrónico estén configuradas como (Ninguno). Luego haz clic en OK del botón.

Note: También puede crear las firmas necesarias en este Firmas y Papelería caja de diálogo.

4. Haga clic en el OK botón cuando devuelve el Opciones de outlook ventana.

5. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

6. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook en el panel izquierdo para abrir la ventana Código, y la copia debajo del código VBA en la ventana. Ver captura de pantalla:

Código de VBA: cambie automáticamente la firma según los destinatarios en 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). En el código de VBA, reemplace "Dirección de correo electrónico 1/2/3/4”Con determinadas direcciones de correo electrónico de los destinatarios.
• 2). "aaa.htm""bbb.htm"Y"ccc.htm" son las firmas especificadas que enviará a los destinatarios correspondientes.
• 3). En este caso, la firma "aaa" será enviado a "Dirección de correo electrónico 1", Firma"bbb" será enviado a "Dirección de correo electrónico 2 y Dirección de correo electrónico 3"y "Dirección de correo electrónico 4"Recibirá el correo electrónico incrustado con la firma"ccc”. Cámbielos según sus necesidades.
• 4). Si hay varios destinatarios en un correo electrónico, el código solo tiene en cuenta al primer destinatario. En este caso, los demás destinatarios recibirán los correos electrónicos con la misma firma que el primer destinatario.

7. Luego haga clic Herramientas > Referencias para ir a la Referencias-Proyecto caja de diálogo. En el cuadro de diálogo, marque ambos Biblioteca de objetos de Microsoft Word y  Tiempo de ejecución de secuencias de comandos de Microsoft opciones y luego haga clic en OK botón, ver captura de pantalla:

8. presione el otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana.

A partir de ahora, después de redactar un correo electrónico y presionar el botón Enviar, la firma correspondiente se insertará automáticamente al final del cuerpo del correo electrónico según la dirección de correo electrónico del destinatario en el campo Para.

---

Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionales: Guardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

Leer Mas       Descargar gratis      Comprar