Html and plain text email

HCL Domino Domino Forum
1

It is possible to mix in an email html and plain text partsWhen fist add the html and then the plain text. The html will convert to plain text. When fist plain text and then html, the plain text will not seen.

Dim mh As NotesMIMEHeader

Set mh = MIMERoot.CreateHeader({MIME-Version})

Call mh.SetHeaderVal(“1.0”)

Set mh = MIMERoot.CreateHeader(“Content-Type”)

Call mh.SetHeaderValAndParams( {multipart/alternative;boundary=boundary123})

Dim rtitem1 As Variant

Set rtitem1 = doccurr.GetFirstItem( “htmlText” )

Call stream1.WriteText (rtitem.values) ’ Plain text

Call stream1.WriteText (docCurr.Serienbrief_Anrede(0) + “,”, EOL_CRLF)

Call mimeroot.setContentFromText(stream1, “text/plain;charset=UTF-8”,ENC_BASE64)

Call stream1.Close

Call stream.WriteText (doccurr.htmlText(0)) ’ für html

Call stream.WriteText (doc.GetItemValue(“htmltext”)) ’ für html

Call stream.WriteText (doccurr.htmlText(0)) ’ für html

		'

Call stream.WriteText (docCurr.Serienbrief_Anrede(0) + “,”, EOL_CRLF)

Set mime = MIMERoot.CreateChildEntity 'für html

Call stream.WriteText (rtitem1.values) ’ für html

Call mime.SetContentFromText(stream,“text/html”,ENC_NONE) ’ für html

Call stream.Close