newdoc.Sendto = uidoc.FieldGetText ("TestField") newdoc.subject = uidoc.FieldGetText ("TestField2") Call rtitem.AppendText ("Special Notes/Instructions:") Call rtitem.AddnewLine(1) Call rtitem.AppendText("") 'Call rtitem.AppendText("TestField3") newdoc.AppendText = uidoc.FieldGetText ("TestField3") 'newdoc.instructions = doc.TestField3 Call newdoc.Send(False)
The problem is that you have not defined a rich text item to update. Add the following before your first call of the rtitem:
Set rtitem = New NotesRichTextItem ( newdoc, "Body" )
Do you have comments on this Ask the Expert question and response? Let us know.
This was first published in October 2004