Cómo usar automáticamente diferentes fuentes para diferentes cuentas al enviar correos electrónicos en Outlook

Si ha configurado varias cuentas de correo electrónico en su Outlook y le gustaría usar diferentes fuentes en los correos electrónicos salientes según las diferentes cuentas de correo electrónico utilizadas para el envío, puede utilizar el enfoque presentado en este artículo.

Muchos usuarios esperan que Outlook pueda seleccionar automáticamente y usar diferentes fuentes en los correos electrónicos salientes según las diferentes cuentas de correo electrónico que usan para enviar. Sin embargo, de forma predeterminada, Outlook no tiene esa función. Afortunadamente, todavía puede darse cuenta de esto con la ayuda del código VBA. Ahora, revelaremos este método en detalle.

Uso automático de diferentes fuentes para diferentes cuentas al enviar correo electrónico

1. En primer lugar, abre la aplicación Outlook.
2. Luego, en la siguiente ventana principal de Outlook, debe presionar las teclas "Alt + F11".
3. A continuación, entrará en una nueva ventana: "Microsoft Visual Basic para aplicaciones".
4. En esta ventana, se le pedirá que busque y abra el proyecto "ThisOutlookSession".
5. Posteriormente, copie y pegue el siguiente código VBA en este proyecto.

'Occurs when you click "Send" button
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objMailDocument = objMail.GetInspector.WordEditor
 
       'Use different fonts based on different send using account
       'Change the accounts and fonts as per your needs
       Select Case objMail.SendUsingAccount
              Case "johnsmith@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Times New Roman"
                        .Size = 13
                        .ColorIndex = wdBlue
                   End With
              Case "team1@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Cambria"
                        .Size = 10
                        .ColorIndex = wdBlack
                   End With
              Case "johnsmith_jonny@outlook.com"
                   With objMailDocument.Range.Font
                        .Name = "Segoe Script"
                        .Size = 8
                        .ColorIndex = wdDarkYellow
                   End With
      End Select
 
      objMail.Save
    End If
End Sub

6. Después de eso, es mejor que firme este código.

• Primero, haga clic en el botón "Herramientas" en la barra de herramientas.
• Luego elija la opción "Firma digital" de la lista desplegable.
• Más tarde, puede seguir las instrucciones en pantalla para completar esta tarea.

7. Luego, puede salir de la ventana actual y proceder a cambiar la configuración de la macro de Outlook para permitir los proyectos VBA firmados.
8. A partir de ahora, cada vez que envíe un correo electrónico, Outlook cambiará automáticamente las fuentes en los correos electrónicos salientes según la cuenta de correo electrónico para el envío.

Manténgase preparado para un bloqueo inesperado de Outlook

Debido a la vulnerabilidad de Outlook, los usuarios deben estar bien preparados para diversos problemas al usar Outlook constantemente. Sin duda, uno de los pasos más esenciales es realizar copias de seguridad consistentes y actualizadas de los datos de Outlook. Con dichas copias de seguridad, incluso si los datos originales de Outlook se dañan en un fallo, aún podrá recuperarlos. recuperar Outlook datos de copias de seguridad con suma facilidad. Además, también es recomendable equipar su Outlook con una potente herramienta de reparación, como DataNumen Outlook Repair. Será útil cuando fallan las copias de seguridad.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrupción sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com