New to 6.5 is the NotesColorObject, but when using a field of type "color" the value is stored as a hex string.
NotesColorObject will not take this string as input, so you have to convert it to its RGB components.
define and set doc as a NotesDocument get the first color item stored in doc Set item = doc.GetFirstItem("apF") colors = setNotesColor(item.Text) Function setNotesColor( clr As String ) As Integer Dim s As New NotesSession Dim soct As String, toct As String, foct As String Dim color As NotesColorObject soct = Mid( clr, 3, 2) toct = Mid( clr, 5, 2) foct = Right( clr, 2 ) r = Val("&H" + soct) g = Val("&H" + toct) b = Val("&H" + foct) Set color = s.CreateColorObject setNotesColor = color.SetRGB(r, g, b) End Function
Do you have comments on this tip? Let us know.