I'm trying to insert text into a memo form ( contains field called body). and email it...
​Using simple text, it works and the email body is visible, but using any type of rtItem stuff.. it's either totally blank or ignores the new line stuff
​Can anyone tell me what in the heck I'm doing wrong...?

Dim s As New NotesSession
 Dim db As NotesDatabase
 
 Dim maildoc As NotesDocument
 Dim rtItem As NotesRichTextItem
  
 Dim emplist() As String 
 Dim i As Integer
 Dim z As Integer
 
 'JUST A PLACE HOLDER ARRAY TO TEST WITH 
 ReDim Preserve emplist(0)
 emplist(0) = "06900%Company A%Test,Brett%Test of something or another%Management Information Systems%CN=John Doe/O=SOME_NOTES%05/14/1997%"
 ReDim Preserve emplist(1)
 emplist(1) = "06901%company A%Test,Bill%Test Manager of Bill Solutions%Management Information Systems%CN=John Doe/O=SOME_NOTES%05/14/1996%"
 ReDim Preserve emplist(2)
 emplist(2) = "06902%Company A%Test,Ted%Test Manager of Ted Solutions%Management Information Systems%CN=John Doe/O=SOME_NOTES%05/14/1995%"
 
 Set db = s.Currentdatabase
 Set maildoc = db.Createdocument()
 Set rtItem = New NotesRichTextItem (maildoc, "Body") 
  
 maildoc.Form = "EmailNoticePlain"
 maildoc.From = "MisTools"
 maildoc.Subject = "Employee List"
 maildoc.saveOptions = "0"
 maildoc.SendTo = "Brett Flagg/SOME_NOTES"
 

'maildoc.Body = "this is a test"  '< this works...

 %rem
 this whole loop seems to ignore what i'm tring to do.. append line, insertnew data, loop...... 
 %end Rem

 z = 0
 For z = 0 To UBound(emplist)  
  rtItem.Addnewline(1)
  rtItem.Appendtext(empList(z)& Chr(10) & Chr(13))    ' Tried with and with out the chr() and variations thereof..
 Next
 
 Call maildoc.send(True)
​end sub