| | Awarded by
Microsoft: |  |
| | VBOffice Info | | Visitors | 537779 | | Impressions | 2242546 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 02.05.2007 | Accessed: 10807 | | | | Description
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. |
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
|
| | |
| | |  | With Category Manager you get all of your categories in a side-bar, a reminder service, synchronized with a central category list and much ... [more] |
| | |  | VBOffice Reporter calculates the sum of values from tasks, appointments, and journal entries with just a few clicks. These reports may be filtered, grouped, and exported into an Excel ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
