|
SAM
|
Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules. |
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