RATE THIS ANSWER
0
Click to Vote:
- 0
0
Last Answered:
Feb 5 2008 6:56 PM GMT
by StanRogers
After each mail is sent, you can re-initialize the rich text field And the mail document using Delete to get rid of the existing object. Each entry into the loop should use New (or CreateXXX) to get a new object:
For i = 1 To 6
Set maildoc = db.CreateDocument
.
. 'Set subject, recipient fields
.
Set rtBody = New NotesRichTextItem(maidoc, "Body")
.
. 'append message text, doclinks, etc.
.
Call maildoc.Send(False)
Delete rtBody
Delete maildoc
Next
LotusScript, Web application development, NotesRichTextItem, Body of e-mail
I'm creating an agent that loops through 6 different calls that evenutally sends out e-mails. I'm using a field called rtBody which is described as a NotesRichTextItem. In order to build each e-mail I use AppendText. Each each has the previous e-mails wording and also it's wording attached to the e-mail. So the last e-mail sent is a combination of all the e-mails sent before it before the loop ends. How can I blank out rtBody before rebuilding it within each e-mail? 
