I am forwarding a form and emailing it. I can not get a RichText field to forward in the form, all other fields forward fine. I have a standard Richtext field on the form. Is there anything special I need to do?
Sub SendDoc
Dim Doc As NotesDocument
Dim MailDoc As NotesDocument
Dim success As Variant
Dim picklist As Variant
Dim UIW As New NotesUIWorkspace
Dim UIDoc As NotesUIDocument
Set UIDoc = UIW.CurrentDocument
Set Doc = UIDoc.Document
If Not UIDoc.EditMode Then
UIDoc.EditMode = True
End If
If Doc Is Nothing Then
'do nothing
Else
Call Doc.Save(True,False)
'SendTo = "Anthony Cotellese"
CopyTo = "Anthony Cotellese"
'If Instr(SendTo, "@") Then
'do nothing
'Else
'Exit Sub 'dont want to send if no @ sign
'End If
Set MailDoc = db.CreateDocument
Doc.Form = "frmCertificate" 'your form name here
picklist = UIW.PickListStrings( PICKLIST_NAMES, True)
MailDoc.Subject = "CERTIFICATE OF ELIGIBLE CANDIDATES"
Dim TmpRTItem As New NotesRichTextItem(Maildoc, "Body")
'Set TmpRTItem = New NotesRichTextItem( MailDoc, “Body”)
Success = doc.RenderToRTItem(TmpRTItem) 'this is what puts the doc into the mail doc
If Success Then
MailDoc.SendTo = picklist
'MailDoc.CopyTo = CopyTo
MailDoc.BlindCopyTo = CopyTo
Call MailDoc.Send(False)
'Call maildoc.replaceitemvalue("EnterSendTo",SendTo)
'Call UIDoc.Save
Call UIDoc.Close
End If
End If
End Sub