The following 'hotfix' solves the above issue in the 'Newsletter'-agent and should be part of any future releases;-)



Function CreateMemo (profile As NotesDocument, email As String, subject As String, content As String)

<br/>
Dim mailbox As New NotesDatabase(&quot;&quot;,profile.GetItemValue(&quot;MailboxFilename&quot;)(0))<br/>
Set mail = mailbox.CreateDocument<br/>
Call mail.ReplaceItemValue(&quot;Form&quot;,&quot;Memo&quot;)<br/>
Call mail.ReplaceItemValue(&quot;Subject&quot;, subject)<br/>
' The line below added to domBul 1.0 code fixes a problem, that newsletters inbound the draft folder of R5 clients  <br/>
' Fix provided by Jan Stengel, HP-JES on September 20, 2004 <br/>
mail.PostedDate=Now<br/>
Call mail.ReplaceItemValue(&quot;From&quot;, profile.getItemValue(&quot;EmailFrom&quot;)(0))<br/>
Call mail.ReplaceItemValue(&quot;ReplyTo&quot;, profile.getItemValue(&quot;EmailFrom&quot;)(0))<br/>
Call mail.ReplaceItemValue(&quot;Recipients&quot;, email)<br/>
Call mail.ReplaceItemValue(&quot;SendTo&quot;,email)<br/>
Set rtitem = New NotesRichTextItem ( mail, &quot;Body&quot; )<br/>
Call rtitem .AppendText(profile.GetItemValue(&quot;NewsletterHeader&quot;)(0))<br/>
Call rtitem.AddNewLine( 1 )<br/>
Call rtitem .AppendText(content)<br/>
Call rtitem.AddNewLine( 3 )<br/>
Call rtitem .AppendText(profile.GetItemValue(&quot;NewsletterFooter&quot;)(0))<br/>
Call mail.Save(False,False)<br/>
<br/>

End Function