FieldGetText("Body") does not return content in Reply With History Body Field

HCL Domino Domino Forum
1

This command not shows the content of the history. How can I do?. I have prove with this: Dim doc As NotesDocument

Dim item As NotesItem

Dim BdyText As String

Set doc = Source.Document

Set item = doc.getfirstitem(“Body”)

BdyText = item.Text

but only shows the first line, not all the history

Thanks

2

Subject: FieldGetText(“Body”) does not return content in Reply With History Body Field

Chances are body is a rich text field, which is a different class to an item. code you’ll need is along the lines of …

doc As NotesDocument

Dim item As NotesItem

Dim BdyText As String

Dim rti As NotesRichTextItem

Set doc = Source.Document

Set rti = doc.GetFirstItem(“Body”)

text$ = = rti.GetUnformattedText()

…

HTH

James

3

Subject: RE: FieldGetText(“Body”) does not return content in Reply With History Body Field

Only one more thing. When I insert this code on Querysend event text variable is not set

Dim doc As NotesDocument

Dim item As NotesItem

Dim BdyText,text As String

Dim rti As NotesRichTextItem

Set doc = Source.Document

Set rti = doc.GetFirstItem(“Body”)

Set item = doc.getfirstitem(“Body”)

BdyText = text

text = rti.GetUnformattedText()

If Instr(text,“Este mensaje está dirigido únicamente a su destinatario”) = 0 And Instr(text," La Fundación Tripartita para la Formación en el Empleo no asume responsabilidad") = 0 Then

Call cMemoObject.AñadirPoliticaEmpresa()

End If

4

Subject: FieldGetText(“Body”) does not return content in Reply With History Body Field

Only one more thing. When I insert this code on Querysend event text variable is not set

Dim doc As NotesDocument

Dim item As NotesItem

Dim BdyText,text As String

Dim rti As NotesRichTextItem



Set doc = Source.Document

Set rti = doc.GetFirstItem("Body")

Set item = doc.getfirstitem("Body")

BdyText = text

text = rti.GetUnformattedText()



If Instr(text,"Este mensaje está dirigido únicamente a su destinatario") = 0 And Instr(text," La Fundación Tripartita para la Formación en el Empleo no asume responsabilidad") = 0 Then

	Call cMemoObject.AñadirPoliticaEmpresa()

End If