Outlook calendar category colour

[LB79]

Hi All,

I have been using the below code for a number of years to send reminders to Outlook and colour them red (my category colour for certain items).
I've been asked to roll out this code to all members of my dept but the category for other people assigned to the red colour is different to mine.
Is there a way to colour the item using the colour name rather than the category name?

Thank for any assistance.

Set OutlookApt = Outlook.CreateItem(olAppointmentItem)
With OutlookApt
.Subject = MailSubject
.start = Dte
.End = DateAdd("h", 1, Dte)
.ReminderSet = False
.AllDayEvent = True
.Categories = "Cat1" ‘ß Categories.Color?
End With
OutlookApt.Save
Set OutlookApt = Nothing
Set OutlookApp = Nothing

 

[pr2-eugin]

Defining the color category in the table with the appropriate department would be a good place to start, rather than hard coding for each department.

 

[LB79]

Thanks - Far better way

 

[pr2-eugin]

No problem ! Good Luck !