Dim s as New NotesSession
	Dim db as NotesDatabase					' current db
	Dim pV as NotesView							' application profile lookup view
  Dim pDoc as NotesDocument				' app profile
	Dim dV as NotesView							' document lookup view
  Dim doc As NotesDocument				' source to make copy of body
	Dim inStream As NotesStream				' stream from Body

...

	' new memo doc dims
	Dim mDoc As NotesDocument				 ' memo being assembled
	Dim mBody As NotesRichTextItem			' memo body field being assembled
	Dim mimeBody As NotesMIMEEntity
	Dim mimeChild As NotesMIMEEntity
	Dim mimeSubjectHeader As NotesMIMEHeader
	Dim mimeBodyHeader As NotesMIMEHeader
	Dim mimeChildHeader As NotesMIMEHeader
	

...

	Set db = s.CurrentDatabase
	Set pV = db.GetView('lupProfileView')
	Set pDoc = pV.GetFirstDocument()
	If (pDoc is Nothing) Then
		Exit Function
	End If
	Set dV = db.GetView('lupDocumentsView')
	Set doc = dV.GetFirstDocument()

...

	' convert doc to MIME and place the contents of the RTF field into the stream for conversion to MIME
	Call doc.ConvertToMIME( 1 )
	Set inStream = s.CreateStream
	Call inStream.WriteText(doc.GetItemValue("SF_RTF")(0))




...

	' create memo
	Set mDoc = db.CreateDocument()
	mDoc.Form = "Memo"
	mDoc.SaveMessageOnSend = True

...

' setup mailing fields
	Call mDoc.ReplaceItemValue("ReplyTo", doc.SF_Email )
	Call mDoc.ReplaceItemValue("From", doc.SF_Email)
	Call mDoc.ReplaceItemValue("Principal", pFrom )
	Call mDoc.ReplaceItemValue("INETFrom", doc.SF_Email)			' this must be a internet address rather than a canonical name
	Call mDoc.ReplaceItemValue("Subject", pDoc.P_SFSubject)
	Call mDoc.ReplaceItemValue("SendTo", pDoc.P_SFSendTo)

...

	' build body - add SF doc
	s.ConvertMime = True

	Set mimeBody = mDoc.CreateMIMEEntity("Body")
	Set mimeBodyHeader = mimeBody.CreateHeader("Content-Type")
	Call mimeBodyHeader.SetHeaderVal("multipart/relative")
	Set mimeSubjectHeader = mimeBody.CreateHeader("Subject")
	If Not (mimeSubjectHeader Is Nothing) Then
	  Call mimeSubjectHeader.SetHeaderVal(doc.SF_Name(0) & " - " & doc.SF_Typ(0))
	End If
	Set mimeChild = mimeBody.CreateChildEntity()
	Set mimeChildHeader = mimeChild.CreateHeader("Content-Disposition")
	Call mimeChildHeader.SetHeaderVal(|attachment; filename="DocAttachment.ext"|)
	Call mimeChild.SetContentFromText (inStream, "text/html;charset=iso-8859-1", ENC_NONE)

...

	Call mDoc.Send(False)