Bonjour je voudrais applique ruen couleur dans mon champ mais le code ci_joint ne marche pas
Dim bodyItem As NotesRichTextItem 'Variant
Dim bodyStyle As NotesRichTextStyle
Dim docp As NotesDocument
Set bodyStyle = session .CreateRichTextStyle
Set bodyItem = docp.GetFirstItem("Description")
bodyStyle.NotesColor = COLOR_BLUE
Call bodyItem.AppendStyle(bodyStyle)
Call bodyItem.AppendText(" 000000testst")
en Sortie je n'ai pas la couleur bleu mais toujours du noir