A
adropinabucket
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
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