Try the following instead of send mail:

Sub email()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String

EmailAddr = "
Subj = "Your subject"

BodyText = "your subject"

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Body = BodyText
.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .send
End With

Set OutMail = Nothing
Set OutApp = Nothing
End sub

"Tempy" wrote:

Hi all, i am using ActiveWorkbook.SendMail mySuppName, "Latest
Reconciliation " & myDate, True
To send an e-mail and it works great, i just need to write a message, as
the above only has the possibility to put in the address and the subject
?
Any suggestions or help would be appreciated.



Tempy

*** Sent via Developersdex http://www.developersdex.com ***