label colour (MakeAppointmentInOutlook2003)

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
 
C

Chip Pearson

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top