Improve Notesitem.text functionality to get all body content of a mail with forwarded mail

In an application, the content of the mail body is read with the help of item.text and written to another document. For some mail body with forwarded mails, the body is not read completely.

Sample code:

dim bodytext as string

dim item as notesitem

dim doc as notesdocument

Set item = doc.GetFirstItem("Body")

bodytext = item.text

Using that code, the body content before the forwarded mails body is being captured using 'item.text'. However, for forwarded mail body, item.text is not working.

When reading out the "body" field, the readout ends at the first HTML end TAG. As a result, everything after the first /body and / html TAG is no longer displayed.

It would be helpful if improving notesitem.text by, for example, recording the number of opening and closing body tags and recording the entire text up to the end.