Remplacer une chaîne de caractères dans un richtext (MIME)

[mike76]

Remplacer une chaîne de caractères par une autre chaîne de caractères dans un champ de texte riche au format MIME :

Code : Tout sélectionner

Sub Initialize()

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim stream As NotesStream
   Dim mime As NotesMIMEEntity
   Dim body As variant
   Dim chaine As String
     
   session.Convertmime=False
   
   Set db=session.CurrentDatabase
   Set collection=db.Search({Form="Emailing"}, Nothing, 0)
   Set doc=collection.Getfirstdocument()
   Set body = doc.GetFirstItem("Body")
   
   If body.Type = MIME_PART Then
      Set mime = body.GetMimeEntity
      Set stream = session.CreateStream
     
      chaine=Replace(mime.ContentAsText,"TITI","TOTO")
      Call stream.WriteText(chaine)

      Call mime.SetContentFromText(stream, mime.Contenttype + "/" + mime.Contentsubtype + ";charset=" + mime.Charset, mime.Encoding)
      Call doc.Save(True,False)
   End if
   
   session.Convertmime=True
   
End Sub