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 email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
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.