none
change the font in tasks and appointments in outlook

    Question

  • Hello,

    Is it possible that I can change the default font of the body text in the tasks and appointments in Outlook?  I search in the setting but find nothing. Any ideas?

    I'm using outlook 2010

    Thanks in advance


    • Edited by LydiaLD Wednesday, April 26, 2017 8:54 AM
    Wednesday, April 26, 2017 8:46 AM

Answers

  • Hi,LydiaLD

    You can use a macro to do this. Try the code below, change the font setting as you want:

    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

    For more detailed information, you can see

    https://www.datanumen.com/blogs/how-to-set-the-default-font-for-the-body-of-contact-appointment-and-task-via-vba/





    • Marked as answer by LydiaLD Friday, April 28, 2017 8:37 AM
    • Edited by LotusAdaBanned Thursday, May 4, 2017 7:43 AM
    Thursday, April 27, 2017 3:10 AM
  • Hi LydiaLD,

    Based on my test and research, I am afraid Outlook has no native feature to set the default font for the body text of appointments and tasks.

    To specify the font, please refer to the above VBA provided by LotusAda. You can also read the article below for more details about how to set the default font for the body of Appointment and Task via VBA:

    https://www.datanumen.com/blogs/how-to-set-the-default-font-for-the-body-of-contact-appointment-and-task-via-vba/

    Please Note: Since the web site is not hosted by Microsoft, the link may change without notice. Microsoft does not guarantee the accuracy of this information.

    Best regards,
    Yuki Sun


    Please remember to mark the replies as answers if they helped.

    If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com.

    • Marked as answer by LydiaLD Friday, April 28, 2017 8:37 AM
    Thursday, April 27, 2017 11:01 AM
    Moderator

All replies