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