Set font for body of calendar item through VBA?
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?
|