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.
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
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.