Læse HTML fra RichTextFelt

Prøv med funktionen GetFormattedText

Nej, det giver det samme som .text

Hvad nu hvis du markerede teksten som Pass-Thru HTML

Virker ikke!

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim collection As NotesDocumentCollection
    Dim item As NotesItem
    Dim mime As NotesMIMEEntity
   
    session.ConvertMime = False
   
    Set db = session.currentdatabase
    Set collection = db.UnprocessedDocuments
    Set doc = collection.getfirstdocument()
   
   
    Set item = doc.GetFirstItem("aktiviteter")
   
    Set mime = item.GetMimeEntity
    Msgbox mime.ContentType,0,"ContentType"
    Msgbox mime.ContentSubType,0,"ContentSubType"
    Msgbox mime.ContentAsText,0,"Content"
    Msgbox mime.Headers,0,"Headers"
End Sub

Så mangler jeg jo bare en lille funktion som kan fjerne alle FONT tags.

Funktion RemoveTags(html as string) As String

Men jeg ser ikke noget richtext object i din kode.

Du har et dokument doc indeholdende RT-felt Body

Dim rtitem As New notesrichtextitem(tmpdoc, "body")
Call doc.Rendertortitem(rtitem)
bodystring = rtitem.getformattedtext(False,10000)

bodystring skulle nu indeholde din html kode

Set item = doc.GetFirstItem("aktiviteter")

Dette er mit RichTextFelt.

Men NotesItem har ikke funktionen GetFormattedText

Næh, men den bruger jeg jo heller ikke da jeg nu benytter MimeEntity.

Har oveikøbet fået fjernet mine tags som jeg ville.


    Set mime = item.GetMimeEntity
    htmlstring = mime.ContentAsText
    Call RemoveTags(htmlstring,"font")
    Call RemoveTags(htmlstring,"/font")

Sub RemoveTags(htmlstring As Variant, tag As String)
    Print "Fjerner tags: <"+tag
    start = Instr(htmlstring,"<"+tag)
    While start<>0
        slut = Instr(start, htmlstring,">")
       
        temp = Left(htmlstring,start-1)_
                    + Right(htmlstring,Len(htmlstring)-slut)
        htmlstring = temp       
        start = Instr(htmlstring,"<"+tag)
    Wend
End Sub

OK - Fint

Hmm bortset fra at hvergang jeg gemmer mit dokument bliver der sat et linieskift ind i alle mine "Gem som HTML/MIME"-felter er det godt.

Men det er jo noget rod at der nu står
"<br><br><br><br><br><br>Test af ...."

Hnmm. Endernok med at jeg skal oprette et nyt spørgsmål på dette..

Dejligt at se at du giver dig tid til at skrive svaret her, selvom det er dig selv der har fundet det. Top$ videsdeling :-D

Og den NotesMIMEEntity-fætter kan faktisk bruges til mange gode ting.

Hmmm, jeg kan desværre ikke komme af med mine <br> så de sidste dages programmering er spildt. Notes igen.....