Color Label for Calendar Items

For Outlook XP and 2003 appointments could be labeled - but not via the Outlook object model. See how to set a color label by code.

Last modified: 2007/05/02 | Accessed: 64.038 | #55
◀ Previous sample Next sample ▶

	Category-Manager
	With Category-Manager you can group your Outlook categories, share them with other users, filter a folder by category, automatically categorize new emails, and more. You can use the Addin even for IMAP.

Since Outlook XP appointments can be labeled - but not via the Outlook object model. The sample shows how to use the Redemption for that. You cannot choose colors of your own. Instead, values from 0 (no label) to 10 (telephon call) are possible, and Outlook then assigns the determined color itself.

How to add macros to Outlook

Private Sub LabelAppointment(Appt As Outlook.AppointmentItem, _
  Color As Long _
)
  Dim Session As Redemption.RDOSession
  Dim rdAppt As Redemption.RDOAppointmentItem
  Dim EntryID As String
  Dim StoreID As String
  Dim ID As Variant
  Const PropSetID1 = "{00062002-0000-0000-C000-000000000046}"
  Const PR_APPT_COLORS = &H8214

  If Len(Appt.EntryID) = 0 Then
    Exit Sub
  End If

  Set Session = CreateObject("Redemption.RDOSession")
  Session.LogOn

  With Appt
    EntryID = .EntryID
    StoreID = .Parent.StoreID
  End With

  Set rdAppt = Session.GetMessageFromID(EntryID, StoreID)

  ID = rdAppt.GetIDsFromNames(PropSetID1, PR_APPT_COLORS)
  ID = ID Or &H3

  rdAppt.Fields(ID) = Color
  rdAppt.Save

  Session.Logoff
End Sub

	OLKeeper
	OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.

Send a message

◀ Previous sample ▲ Top Next sample ▶

All names, products and pictures are under the copyright of the respective producers.

Microsoft and the Office logo are trademarks or registered trademarks

of Microsoft Corporation in the United States and/or other countries.