have a look:
http://www.rondebruin.nl/sendmail.htm

Corey....

"James T" wrote in message
...
I am using the following to send the current worksheet to clients, and it
is
great - using Outlook Express:

Sub mail2()
ActiveWorkbook.SendMail (Range("a1")), (Range("a2"))
End Sub

However just wondering if there is a way to have the email come up and
allow
me to enter in data before it is actually sent.

Regards