Subject: RE: Sent Mail format problem while sending mail in backend
This is just an example for bold / italic … you can check for more in notes help NotesRichTextStyle
HTH
Keshava
===============================================
Dim session As New NotesSession
Dim currebtDb As NotesDatabase
Set currentDb = session.CurrentDatabase
Dim memoDoc As NotesDocument
Dim richStyle As NotesRichTextStyle
Dim recipients( 1 ) As String
Set memoDoc = currentDb.CreateDocument()
memdoc.Form =“Memo”
memoDoc.From = session.UserName
memoDoc.Subject = “Test Email”
Set richStyle = session.CreateRichTextStyle
richStyle.NotesFont = FONT_COURIER
richStyle.FontSize = 14
Set richText = New NotesRichTextItem(memoDoc, “Body”)
Call richText.AppendStyle(richStyle)
Call richText.AppendText(“Hi,”)
Call richText.AddNewLine(2)
Call richText.AppendText(“contents”)
richStyle.Bold = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText(“This is in bold”)
Call richText.AddNewLine(1)
richStyle.Bold = False
Call richText.AppendStyle(richStyle)
Call richText.AppendText(“This is not Bold”)
Call richText.AddNewLine(1)
richStyle.Italic = True
Call richText.AppendStyle(richStyle)
Call richText.AppendText(“This is italic”)
Call richText.AddNewLine(1)
richStyle.Italic = False
Call richText.AppendStyle(richStyle)
Call richText.AppendText(“This is not Italic”)
recipients( 0 ) = “firstmail”
recipients( 1 ) = “second Mail”
Call memoDoc.Send( True, recipients )