Add label colour to outlook appoinment

[adropinthebucket]

How can add I a "label colour" in this routine?

Sub MakeAppointmentInOutlook2003()
Dim olApp As Outlook.Application
Dim olApt As AppointmentItem

Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)

With olApt
.Start = Range("A2")
.Duration = Range("B2")
.Subject = Range("C2")
.Location = Range("D2")
.Categories = Work
.Display
.Save
End With

Set olApt = Nothing
Set olApp = Nothing

 

[Sue Mosher [MVP-Outlook]]

See http://www.outlookcode.com/codedetail.aspx?id=139 for sample code.
You'll need to use CDO or Redemption.