Hi folks,
I have a rather large macro that I have developed to distribute various emails to set receipients via lotus notes.
Im just looking to see if its possible to set some of the the chosen email body of my mails to bold within the VB?

Ive put in a snapshot of my code below.
Cheers



' Open and locate current LOTUS NOTES User

    Set Session = CreateObject("Notes.NotesSession")
        UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Maildb.IsOpen = True Then
    Else
        Maildb.OPENMAIL
    End If

  ' Create New Mail and Address Title Handlers

    Set MailDoc = Maildb.CreateDocument

    MailDoc.Form = "Memo"
    '   Select range of e-mail addresses
    Recipient = Sheets("Sheet 1").Range(whatcellforto).Value
    MailDoc.sendto = Recipient
            
    ccRecipient = Sheets("Sheet 1").Range(whatcellforcc).Value
    MailDoc.CopyTo = ccRecipient
      
      
      
'*********************************************
'**** If statement to decide body of mail ****
'*********************************************


'***Sample Body***
If Mid(subject, 21, 4) = "Subs" Then
    MailDoc.subject = subject
        MailDoc.Body = _
    "" & AddNote & vbCrLf & _
    "" & vbCrLf & _
    "Good " & AmPm & "," & vbCrLf & _
     "" & vbCrLf & _
    "Please find attached your Sample Email Body" & GradeRefDate & ". " & vbCrLf & _
    "" & vbCrLf & _
    "Please see attached descriptions/instructions for actioning." & vbCrLf & _
    "" & vbCrLf & _
    "Kind regards," & vbCrLf & _
    "" & SenderName & vbCrLf & _
    "Sign Off" & vbCrLf & _
    "address" & vbCrLf & _
    "address" & vbCrLf & _
    "EXT: " & PhoneNumber & vbCrLf & _
    " " & vbCrLf & _
    "*** Please consider the environment before you print this email ***" & _
    " " & vbCrLf