Consello: outros idiomas están traducidos a Google. Podes visitar o English versión desta ligazón.
Iniciar sesión
x
or
x
x
Register
x

or

Como cambiar automaticamente a sinatura baseada nos destinatarios en Outlook?

De xeito predeterminado, Outlook ten unha función de compilación para que os usuarios cambien automaticamente a sinatura mentres envían correos electrónicos a través de diferentes contas de correo electrónico. Pero máis aló diso, aquí mostrarémosme método de cambio automático de sinatura en función de diferentes destinatarios no campo Para de Outlook.

Cambia a sinatura baseada nos destinatarios automaticamente co código VBA


Responda sempre o correo electrónico coa conta de correo electrónico predeterminada en Outlook:

Se desexa responder sempre o correo electrónico coa conta de correo electrónico predeterminada no Outlook, o Responda sempre con conta predeterminada opción de Kutools para Outlook farás un favor. Ver captura de pantalla:

Kutools para Outlook: con complementos de Outlook máis que 40, gratuitos para probar sen ningunha limitación en 45 días. Descarga e proba gratuíta Agora!


Cambia a sinatura baseada nos destinatarios automaticamente co código VBA

Siga os seguintes pasos para aplicar diferentes sinaturas aos destinatarios correspondentes ao enviar correos electrónicos en Outlook.

1. En primeiro lugar, necesitas desactivar a característica de sinatura automática en Outlook. Fai clic en Arquivo > Opcións para abrir a Opcións de Outlook fiestra.

2. No Opcións de Outlook fiestra, seleccione correo no panel esquerdo e prema no botón esquerdo Sinaturas botón no Escribir mensaxes sección. Ver captura de pantalla:

3. No Sinaturas e papelería caixa de diálogo, vai ao Escolla a sinatura por defecto sección baixo o Sinatura de correo electrónico , seleccione unha conta de correo electrónico no Conta de correo electrónico lista despregábel e, a continuación, elixa (Aínda non hai) a partir do Novas mensaxes e Respostas / adiante listas desplegables. Repita estes pasos ata que todas as contas de correo electrónico estean configuradas (Aínda non hai). A continuación, fai clic no OK botón.

Nota: Tamén pode crear as súas sinaturas necesarias neste Sinaturas e papelería caixa de diálogo.

4. Prema na OK cando devolva o Opcións de Outlook fiestra.

5. Preme o botón alt + F11 chaves para abrir a Microsoft Visual Basic para aplicacións fiestra.

6. No Microsoft Visual Basic para aplicacións ventá, prema dúas veces Esta sesión de consulta no panel esquerdo para abrir a ventá Código e a copia debaixo do código VBA na fiestra. Ver captura de pantalla:

Código VBA: Cambia automaticamente a sinatura baseada nos destinatarios en 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, substituír o "Enderezo de correo electrónico 1 / 2 / 3 / 4"Cos certos enderezos de correo electrónico dos destinatarios.

2. "aaa.htm""bbb.htm"E"ccc.htm"é a sinatura especificada que enviará aos destinatarios correspondentes.

3. Neste caso, a sinatura "aaa"Enviarase a"Enderezo de correo electrónico 1", Sinatura"bbb"Enviarase a"Enderezo de correo electrónico 2"E"Enderezo de correo electrónico 3"e "Enderezo de correo electrónico 4"Recibirá o correo electrónico incrustado coa sinatura"CCC". Cambia-los en función das túas necesidades.

7. A continuación, fai clic en ferramentas > References para ir ao Referencias-Proxecto caixa de diálogo. No cadro de diálogo, comprobe Execución de scripting de Microsoft opción e, a continuación, prema en OK botón, ver captura de pantalla:

8. Preme o botón alt + Q chaves para pechar o Microsoft Visual Basic para aplicacións fiestra.

A partir de agora, despois de compoñer un correo electrónico e pulsar o botón Enviar, a sinatura correspondente inserirase automaticamente ao final do corpo do correo electrónico en función do enderezo de correo electrónico do destinatario no campo Para.

Se desexa inserir marca de tempo como sinatura no corpo do correo electrónico ao crear / responder / reenviar un novo correo electrónico no seu Outlook, pode habilitar a Engada a data de sinatura cando crees un correo electrónico novo, de resposta e de reenvío opción de Kutools para Outlook para facelo. Ver captura de pantalla:

Kutools para Outlook: con complementos de Outlook máis que 40, gratuitos para probar sen ningunha limitación en 45 días. Descarga e proba gratuíta Agora!



Kutools para Outlook

Máis de 100 Funcións avanzadas para Outlook 2010, 2013, 2016, 2019 e 365

captura de pantalla kutools para pequenas perspectivas para a bandeira 201812

Máis recursos | Descarga gratuíta | Só $ 39.00 por centos de funcións

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.