Good afternoon All,

I've been struggling most of today to try and solve this one and have failed miserably, so I hope someone will be able to help me.

I use the following code to generate an email in lotus notes. The only problem is that I would like to change the colour or make some text bold in the email.
Any help/direction would be appreciated.

Sub autoemail()

Dim x As Integer
Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Recipient1 As Variant
Dim Recipient2 As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim stSignature As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
' Open and locate current LOTUS NOTES User
For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("AJ" & x) = "Overdue" Then
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"
stSignature = Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)

' Select range of e-mail addresses
Recipient = Worksheets("INDEX").Range("AX" & x).Value
Recipient1 = Worksheets("INDEX").Range("AY" & x).Value
Recipient2 = Worksheets("INDEX").Range("AM" & x).Value
MailDoc.SendTo = Recipient
MailDoc.CopyTo = Recipient1
MailDoc.blindcopyto = Recipient2
MailDoc.Subject = " Text " & .Range("A" & x).Value
MailDoc.Body = "Text" & .Range("AP" & x).Value & vbNewLine & vbNewLine & "Text " & .Range("A" & x).Value & " Text " & .Range("AK" & x).Value & " Text " _
& .Range("AL" & x).Value & " days." _
& vbNewLine & vbNewLine & "Text '" & .Range("AM" & x).Value & "' Text" & vbNewLine _
& vbNewLine & "Text" & .Range("AN" & x).Value & " Text " _
& .Range("AO" & x).Value & vbNewLine & vbNewLine & "Text" _
& vbNewLine & vbNewLine & vbNewLine & Text" _
& vbNewLine & vbNewLine & vbNewLine & stSignature
MailDoc.SaveMessageOnSend = True
MailDoc.PostedDate = Now()
On Error GoTo errorhandler1
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
.ScreenUpdating = True
.DisplayAlerts = True

errorhandler1:
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
End If
Next x
End With
End Sub