Cómo configurar la fuente predeterminada para el cuerpo del contacto, la cita y la tarea a través de VBA

Outlook no tiene una función nativa para establecer la fuente predeterminada para el cuerpo del contacto, la cita y el elemento de la tarea. Por lo tanto, si desea especificar la fuente, puede recurrir al método presentado en este artículo.

Como el correo electrónico, la cita de Outlook, la tarea y el contacto también tienen el campo del cuerpo, en el que podemos completar los detalles del artículo. Sin embargo, Outlook solo permite a los usuarios configurar la fuente predeterminada utilizada en el cuerpo del correo electrónico. Si desea especificar la fuente en el cuerpo del contacto, cita o tarea, debe buscar otros medios, como complementos de terceros o Outlook VBA. Aquí le enseñaremos detalladamente cómo usar VBA para obtenerlo. Siga leyendo para conocer los pasos detallados y los códigos VBA correspondientes.

Establecer la fuente predeterminada para el cuerpo de la cita, la tarea y el contacto

1. Al principio, start su programa Outlook.
2. Luego presione los botones de tecla "Alt + F11" para iniciar el editor de Outlook VBA.
3. En la ventana emergente, debe abrir el proyecto "ThisOutlookSession".
4. Posteriormente, copie los siguientes códigos VBA en esta ventana del proyecto.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector

Public Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Public Sub objInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    Set objInspector = Inspector
End Sub

Public Sub objInspector_Activate()
    Dim objCurrentItem As Object
    Dim objCurrentInspector As Outlook.Inspector
    Dim objWordDocument As Word.Document
    Dim objWordSelection As Word.Selection
 
    Set objCurrentItem = objInspector.CurrentItem
    Set objCurrentInspector = objCurrentItem.GetInspector
    Set objWordDocument = objCurrentInspector.WordEditor
    Set objWordSelection = objWordDocument.Application.Selection
 
    'You change the font as per your preference
    Select Case objCurrentItem.Class
           Case olContact
                With objWordSelection.Font
                     .Name = "Segoe Script"
                     .ColorIndex = wdRed
                     .Size = 8
                     .Bold = True
                End With
           Case olAppointment
                With objWordSelection.Font
                     .Name = "Comic Sans MS"
                     .ColorIndex = wdBlue
                     .Size = 9
                     .Bold = False
                End With
           Case olTask
                With objWordSelection.Font
                     .Name = "MV Boli"
                     .ColorIndex = wdGreen
                     .Size = 10
                     .Bold = True
                End With
   End Select
End Sub

5. Después de eso, debe firmar este código.

• Primero, cree un certificado digital mediante Certificados digitales para proyectos VBA.
• Luego asigne este certificado a la nueva macro.

6. Más tarde, puede cambiar la configuración de las macros de Outlook para permitir las macros firmadas digitalmente.
7. Finalmente tu start su Outlook para activar el nuevo proyecto VBA. A partir de ahora, cuando cree un nuevo contacto, cita o tarea, el cuerpo utilizará su fuente predeterminada, como la siguiente captura de pantalla:

Proteja sus datos de PST contra la corrupción

Debido al hecho de que el archivo PST de Outlook es propenso a errores y corrupción, debe prestar mucha atención a las protecciones de PST. Por ejemplo, debe tener cuidado con los correos electrónicos de fuentes desconocidas, ya que pueden ser correos electrónicos maliciosos con virus. Una vez que su archivo PST se infecta, debe recurrir a una herramienta de reparación confiable y probada, como DataNumen Outlook Repair, Que puede reparar PST archivo como una brisa.

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 reparar SQL Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com