Remplacer une chaîne de caractères dans un richtext (MIME)
Publié: 10 Sep 2010 à 11:17Remplacer 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