Hi Below is an email code that works. but what i am looking to do is convert it to HTML format so that i can format the body of the message. for example i would like to bold the qouted part in incident Number with the stbody. If any ideas it would be appreciated.

Private Sub CmdMailNotification_Click()
On Error GoTo Err_CmdMailNotification_Click

Dim db As Database
Dim rs As Recordset
Dim objOutlook As Outlook.application
Dim objEmail As Outlook.MailItem
Dim stbody As String
Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim RepDate As Variant '-- Rep date for e-mail text
Dim EMEA As Variant '--EMEA Clients
Dim Operation As Variant '--Operations issues
Dim IncDate As Variant '-- Inc date for e-mail text
Dim Summary As Variant '-- Summary for e-mail text
Dim HowDet As Variant '-- How was event detected for e-mail text
Dim ShortCorr As Variant '-- Short Term Corrective Action for e-mail text
Dim LOB As Variant '-- LOB for e-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stID As String '-- The Case ID from form
Dim stWho As String '-- Reference to tblMailingList
Dim errLoop As Error
Dim sSQL As String

Set db = CurrentDb
Set rs = db.OpenRecordset("tblMailingListLOB")

Dim strSQL As String '-- Create SQL update statement

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

'-- names to Management e-mails
varTo = Get_Email_Names(Me.LOB)

stID = Format(Me.ID, "00000")
RepDate = Me.Reported_Date
IncDate = Me.Opened_Date
Summary = Me.Summary
HowDet = Me.How_Was_Event_Detected
ShortCorr = Me.Short_term_Corrective_Action
EMEA = Me.EMEA_Check
'Operations = Me.Operation_Check
stSubject = ":: Privacy Incident Report:: " & stID

stbody = "This Privacy Incident Report is being forwarded to you by Business Control Group Privacy Dept. on behalf of the business line indicated below." & Chr$(13) & _
Chr$(13) & "Incident Number: " & stID & Chr$(13) & _
Chr$(13) & "This is an automated message." & _
" Please do not respond to this e-mail. If you require additional information please e-mail Business Controls Privacy Dept." & Chr$(13) & _
Chr$(13) & _

'Do Until rs.EOF

If Len(varTo) > 0 And Me.EMEA_Check = True Then

Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
'.From = "business.controls.privacy.dept@jpmchase.com"
.To = ""
.CC = ""
.BCC = varTo
.Subject = stSubject
.Body = stbody

'SendUsingAccount is new in Outlook 2007
'Change Item(1)to another number to use another account
'.SendUsingAccount = OutApp.Session.Accounts.Item(1)
'myItem.SentOnBehalfOfName = "Business Controls Privacy Dept"
.SentOnBehalfOfName = "business.controls.privacy.dept@jpmchase.com"
'.Send 'or use

End With
End If

Set objOutlook = Nothing
Set objEmail = Nothing

'Exit Sub

'Set the update statement to disable command button
'once e-mail is sent
strSQL = "UPDATE Cases " & _
" Set Cases.ysnManagementNotified = -1 " & _
"Where Cases.ID = " & Me.CaseID & ";"

On Error GoTo Err_Execute
CurrentDb.Execute strSQL, dbFailOnError
On Error GoTo 0

'Requery checkbox to show checked
'after update statement has ran
'and disable send mail command button
Me.CmdMailNotification.Enabled = False

Exit Sub


' Notify user of any errors that result from
' executing the query.
If DBEngine.Errors.Count > 0 Then
For Each errLoop In DBEngine.Errors
MsgBox "Error number: " & errLoop.Number & vbCr & _
Next errLoop
End If

Resume Next

Exit Sub

MsgBox Err.Description
Resume Exit_CmdMailNotification_Click

End Sub