Working with appointments - parameter not found

Michael Mueller · Joined: 15 Aug 2007 Posts: 2

Hi.

[Outlook 2003 - SP2]

I create a new appointment with this code:

Dim AI As AppointmentItem
Set AI = ThisOutlookSession.CreateItem(olAppointmentItem)

Subject, body, start, duration,... can be set very easily

A manualy new appointment also includes a field called "Label" where
color-settings can be done (e.g. None, Important, Business, Personal, ...).
But I can't find any expression for the AppointmentItem to set this label.

Is it possible to set this coloring though VBA?
Or will I have to change the color manually later after?

Thanks
Michi

Archived from group: microsoft>public>office>developer>outlook>vba

Sue Mosher [MVP-Outlook] · Joined: 12 Aug 2007 Posts: 656

You must use a low-level API, such as CDO 1.21 or Redemption. See http://www.outlookcode.com/codedetail.aspx?id=139

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54

"Michael Mueller" wrote in message $ns9$1@news4.fe.internet.bosch.com...
> Hi.
>
> [Outlook 2003 - SP2]
>
> I create a new appointment with this code:
>
> Dim AI As AppointmentItem
> Set AI = ThisOutlookSession.CreateItem(olAppointmentItem)
>
> Subject, body, start, duration,... can be set very easily
>
> A manualy new appointment also includes a field called "Label" where
> color-settings can be done (e.g. None, Important, Business, Personal, ....).
> But I can't find any expression for the AppointmentItem to set this label.
>
> Is it possible to set this coloring though VBA?
> Or will I have to change the color manually later after?
>
> Thanks
> Michi
>
>

Michael Mueller · Joined: 15 Aug 2007 Posts: 2

> > A manualy new appointment also includes a field called "Label" where
> > color-settings can be done (e.g. None, Important, Business, Personal,
> > ...). But I can't find any expression for the AppointmentItem to set
> > this label.
>
> You must use a low-level API, such as CDO 1.21 or Redemption. See
> http://www.outlookcode.com/codedetail.aspx?id=139

Thanks, Redemption worked fine.

Michi