Email Formatting -

Hi Experts!

I am working on one project, wherein I am sending an emails through lotus notes using the VBA code. It is working absolutely fine, however I am facing trouble in formatting the email. Is there any possible way if I want to make few lines bold in my email.

Here is the code which I am using. Please suggest it is really very urgent.


Private Sub CommandButton1_Click()
Dim strBOdocument As String
Dim strBOUserDocsPath As String
Dim domSession As New Domino.NotesSession
Dim domNotesDBMailFile As NotesDatabase
Dim domNotesDocumentMemo As NotesDocument
Dim domNotesRichText As NotesRichTextItem
Dim richStyle As NotesRichTextStyle
'Dim richStyle As n
Dim strAttachment As String
Dim names As String
Dim firstline As String
Dim secondline As String
Dim thirdline As String
Dim fourthline As String
Dim fifthline As String
Dim sixthline As String
Dim seventhline As String
Dim i As Integer
Dim sig1 As String
Dim sig2 As String
Dim sig3 As String
Dim sig4 As String
Dim doc As NotesDocument
Dim f As New StdFont
Sheets("sheet4").Select
Worksheets("Sheet4").Range("A6").Select

sig1 = Worksheets("Sheet4").Range("A6") & vbNewLine
sig2 = Worksheets("Sheet4").Range("A7") & vbNewLine
sig3 = Worksheets("Sheet4").Range("A8") & vbNewLine
sig4 = Worksheets("Sheet4").Range("A9") & vbNewLine
nam = Worksheets("Sheet4").Range("A6")
i = 0
domSession.Initialize ("")
Sheets("Sheet1").Select
Range("A6").Select
Do While Selection.Offset(i, 0) <> ""
strBOdocument = Selection.Offset(i, 2) & " Hotel Program: Urgent Action Required(1)"
Set domNotesDBMailFile = domSession.GetDatabase("", "headline.nsf")
Set domNotesDocumentMemo = domNotesDBMailFile.CreateDocument
Call domNotesDocumentMemo.AppendItemValue("Form", "Memo")
Call domNotesDocumentMemo.AppendItemValue("SendTo", domSession.CommonUserName)
Call domNotesDocumentMemo.AppendItemValue("Subject", strBOdocument)
Set domNotesRichText = domNotesDocumentMemo.CreateRichTextItem("Body")
Set richStyle = domSession.CreateRichTextStyle
'RICHTEXT.AppendStyle (richStyle)
names = Selection.Offset(i, 0) & " " & Selection.Offset(i, 1)
txt="PLEASE MAKE THIS TEXT BOLD"
richStyle.Bold = yes
domNotesRichText.AppendStyle richStyle
domNotesRichText.AppendText (txt)
domNotesDocumentMemo.Send False, emails
domNotesDocumentMemo.Send (False)
Loop
End Sub