You are replying to:

1. • 
   • David Schmidt
   • Posted on Wed 30 Jun 2004 08:45 AM

   Try using the following WebQuerySave agent (richtext field is called mshtmldata):

   Sub Initialize

   On Error Goto herror

   Dim session As New notessession

   Dim db As notesdatabase

   Dim doc As notesdocument

   Dim richStyle As NotesRichTextStyle

   Dim rtitem As Variant

   Dim htmlcode As Variant

   Dim agentLog As NotesLog

   Set agentLog = New NotesLog ("HTML AGENT")

   Call agentLog.OpenAgentLog

   Call agentLog.LogAction ("Starting Agent")

   Set db=session.currentdatabase

   Set doc = session.DocumentContext

   Set richStyle = session.CreateRichTextStyle

   richStyle.PassThruHTML=True

   Set rtitem = doc.GetFirstItem( "mshtmldata" )

   If ( rtitem.Type = RICHTEXT ) Then

   htmlcode= rtitem.GetUnFormattedText()

   Call doc.RemoveItem("mshtmldata")

   Set rtitem = doc.CreateRichTextItem( "mshtmldata" )

   Call rtitem.AppendStyle(richStyle)

   Call rtitem.AppendText(htmlcode)

   Call doc.save(True,True)

   End If

   Exit Sub

   herror:

   Call agentLog.LogError (Err, "Agent Failed:" & Error$ & ", " & Erl)

   Call agentLog.Close()

   End Sub

Your Comments