get values form current record and insert in email body

[stargate]

Hi, Im using the following on a form (frmEmail) This work well but I was wondering if it was possible to make strLastName value carry over to email in Bold.


Private Sub cmdEmail_Click()
Dim strEmail As String
Dim strMailSubject As String
Dim strMsg As String
Dim strLastName As String
Dim objNotesWS As Object
Dim notesdb As Object

Call Shell("C:\notes\notes.exe", vbNormalFocus)

Set objNotesWS = CreateObject("Notes.NotesUIWorkspace")

Set notesdb = objNotesWS.COMPOSEDOCUMENT(, , "memo")

strLastName = Me.txtLastName.Value
strEmail = Me.txtSelected & vbNullString
strMailSubject = Me.txtMailSubject & vbNullString
strMsg = Me.txtMsg & strLastName 'I need the strLastName in Bold

notesdb.FIELDSETTEXT "SendTo", strEmail
notesdb.FIELDSETTEXT "Subject", strMailSubject
notesdb.FIELDSETTEXT "Body", strMsg
'notesdb.Send
'notesdb.Close

Set notesdb = Nothing
Set objNotesWS = Nothing