Dim olAppt As Outlook.AppointmentItem
Dim olApptCopy As Outlook.AppointmentItem
Set olApptCopy = Outlook.CreateItem(olAppointmentItem)



'Copy the desired details to a new appointment item
If objItem.Class = olAppointment Then
Set olAppt = objItem

With olApptCopy
.Subject = olAppt.Subject
.Location = olAppt.Location
.Body = olAppt.Body
.Categories = olAppt.Categories
.AllDayEvent = olAppt.AllDayEvent
End With

'Display the copy
olApptCopy.Display

This code takes a copy of a calendar item and copies it like a template for a new calendar item. It works really well.

Now I would like to change the font from within the code.

Is it possible?