How can i change the Outlook Calendar Color Label
Code:
Dim ol As Outlook.Application
Dim olns As Outlook.Namespace
Dim olappment As Outlook.AppointmentItem
Set ol = CreateObject("Outlook.Application")
Set olns = ol.GetNamespace("MAPI")
Set olappment = ol.CreateItem(olAppointmentItem)
olappment.MeetingStatus = olMeeting
olappment.Subject = "Strategy Meeting"
olappment.Location = "Conference Room B"
olappment.Start = #5/21/2008 7:30:00 PM#
olappment.Duration = 90
[COLOR=Green]'I imagine that i would need something over here[/color]
[COLOR=red]olappment.lable=XXX[/color]
olappment.Save