label colour (MakeAppointmentInOutlook2003)
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 |
label colour (MakeAppointmentInOutlook2003)
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 |
All times are GMT +1. The time now is 11:02 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com