Hi,

How do I format the body of an email. I want it to be bold, font size 12
and font to be Arial. See my code to date.

Sub SendMail()
'You must add a reference to the Microsoft outlook Library
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olmailitem)
With OutMail
.To = To_List
.CC = CC_List
.BCC = ""
.Subject = The_Subject
.Attachments.Add ActiveWorkbook.FullName
.Body = Line1 & Chr(13) & Chr(13) & Line2 & Chr(13) & Chr(13) &
Line3 & Chr(13) & Chr(13) & Line4
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub



--
Andrew