Bonjour,
 
Je dois insérer un "disclaimer" écolo dans chaque message (env 250 users) sur un serveur Domino V6.5
 
La seule solution qui semble possible d'après mes recherches est d'utiliser du LotusScript et d'insérer du texte riche amélioré.
 
Voici mon code.
 
Sub Querysave(Source As Notesuidocument, Continue As Variant)
 BdyText = Source.FieldGetText( "Body" )  
 
 Dim richStyle As NotesRichTextStyle
 Dim richText As New NotesRichTextItem (doc, "body" )
 Set richStyle = doc.CreateRichTextStyle
 richStyle.Italic = True
 richStyle.FontSize = 10
 richstyle.NotesColor = color_green
 Set richtext = doc.CreateRichTextitem
 Call richText.AppendStyle(richStyle)
 
 If Instr(BdyText,"Préservons l'environnement," ) = 0 And Instr(BdyText,"Please consider the environmental impact" ) =0 Then  
  Call richText.AppendText (Chr(10))  
  Call richText.AppendText ("------------------------------------------------------- " )  
  Call richText.AppendText ("Préservons l'environnement, n'imprimez cet e-mail que si c'est nécessaire !" )
  Call richText.AppendText (Chr(10))  
  Call richText.AppendText ("Please consider the environmental impact of needlessly printing this e-mail." )
 End If  
 
 Call cMemoObject.QuerySave(Continue)
End Sub
 
Celui-ci ne fonctionne pas et me sort l'erreur suivante quand j'envoie mon mail : "Type Mismatch"
 
Merci,