title: How can I bold the font in Lotus notes when generating an email from Access 2003?
body: <p>I am running Access 2003 and have created a module which sends an email to recipients from the database in Lotus Notes. It works just fine, but now I have been asked to "Bold" specific text in the email so that it is easier to read on their blackberries . Can anyone help me format the text? I'm not sure how to do this.... Here is the code I am using:</p>
  
  <pre><code>Public Sub SendQtrNotesMail(Subject As String, Recipient As String, WL As String, SQA   As String, _
  DC As String, ADR As String, TDR As String, SafetyNote As String, QualityNote As String, _
  ProdNote As String, SaveIt As Boolean)
  'Set up the objects required for Automation into lotus notes
  Dim Maildb As Object 'The mail database
  Dim UserName As String 'The current users notes name
  Dim MailDbName As String 'The current users notes mail database name
  Dim MailDoc As Object 'The mail document itself
  Dim Session As Object 'The notes session
  Dim EmbedObj As Object 'The embedded object (Attachment)
  'Start a session to notes
  Set Session = CreateObject("Notes.NotesSession")
  'Get the sessions username and then calculate the mail file name
  'You may or may not need this as for MailDBname with some systems you
  'can pass an empty string or using above password you can use other mailboxes.
  UserName = Session.UserName
  MailDbName = Left$(UserName, 1) &amp; Right$(UserName, (Len(UserName) - InStr(1,   UserName, " "))) &amp; ".nsf"
  'Open the mail database in notes
  Set Maildb = Session.getdatabase("", MailDbName)
   If Maildb.ISOPEN = True Then
  'Already open for mail
   Else
       Maildb.openmail
   End If
  'Set up the new mail document
  Set MailDoc = Maildb.createdocument
  MailDoc.Form = "Memo"
  MailDoc.sendto = Recipient
  MailDoc.Subject = Subject
  MailDoc.Body = WL &amp; vbCrLf &amp; SQA &amp; vbCrLf &amp; DC &amp; vbCrLf &amp; ADR &amp; vbCrLf &amp; TDR &amp; vbCrLf   &amp;vbCrLf &amp; _
  SafetyNote &amp; vbCrLf &amp; QualityNote &amp; vbCrLf &amp; ProdNote
  MailDoc.SaveMessageOnSend = SaveIt
  'Send the document
  MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
  MailDoc.Send 0, Recipient
  'Clean Up
  Set Maildb = Nothing
  Set MailDoc = Nothing
  Set Session = Nothing
  Set EmbedObj = Nothing
  End Sub
  </code></pre>
  
  <p>And:</p>
  
  <pre><code>Sub SendEmail()
  Dim stTotw As String
  Dim HoldWL As String
  Dim HoldSQA As String
  Dim HoldDC As String
  Dim HoldADR As String
  Dim HoldTDR As String
  Dim HoldSafetyNotes As String
  Dim HoldQualityNotes As String
  Dim HoldProdNotes As String
  HoldWL = "WL:  " &amp; Forms!frmAMQtr!WL.Value
  HoldSQA = "SQA:  " &amp; Forms!frmAMQtr!SQA.Value
  HoldDC = "DC:  " &amp; Forms!frmAMQtr!DC.Value
  HoldADR = "A DR:  " &amp; Forms!frmAMQtr!ADR.Value
  HoldTDR = "Total DR:  " &amp; Forms!frmAMQtr!TDR.Value
  HoldSafetyNotes = "**Safety Issues &amp; Details:"** &amp; Forms!frmAMQtr![subfrmAMQtrNotes].Form!AMSafetyNote.Value
  HoldQualityNotes = "**Quality Issues &amp; Details**:  " &amp; Forms!frmAMQtr![subfrmAMQtrNotes].Form!AMQualityNote.Value
  HoldProdNotes = "**Productivity Issues &amp; Details**:  " &amp; Forms!frmAMQtr![subfrmAMQtrNotes].Form!AMProdNote.Value
  stTotw = "myboss@abc.com"
  Call SendQtrNotesMail("Test Email", stTotw, HoldWL, HoldSQA, HoldDC, HoldADR, HoldTDR, _
  HoldSafetyNotes, HoldQualityNotes, HoldProdNotes, True)
  
  End Sub
  </code></pre>
  
  <p>What I have <strong>Bolded</strong> above is what my management wants to see bolded in the email. Can anyone point me in the right direction on how I can accomplish this?</p>