How can add 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

End Sub

You'd be more likely to get a correct answer by posting in an
Outlook newsgroup. Your question has nothing to do with Excel.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"adropinabucket" wrote in message
...
How can add 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

End Sub