Hi

I have added a button to my spreadsheet that allows users to add the sheet
to an email ready to send, but i really want it to populate the email address
so it sends it straight to me rather than having to rely on users to input my
address (they are a bit slow I'm afraid!!!)

Thanks

John

John, have a look at some of Ron de Bruin's code here to do it

http://www.rondebruin.nl/sendmail.htm#Workbook.

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"JonnieP" wrote in message
...
Hi

I have added a button to my spreadsheet that allows users to add the sheet
to an email ready to send, but i really want it to populate the email
address
so it sends it straight to me rather than having to rely on users to input
my
address (they are a bit slow I'm afraid!!!)

Thanks

John

This code was in the Help files in Excel VBA. I substituted my ow
email address(complete with the @..... inside the parentheses). I go
a warning message that a program was trying to access my email and di
I want to proceed. It worked.


With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Adam Bendel", _
"Jean Selva", "Bernard Gabor")
.Subject = "Here is the workbook"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
End With
.Route
End Wit

--
DataCollecto
-----------------------------------------------------------------------
DataCollector's Profile: http://www.hightechtalks.com/m36
View this thread: http://www.hightechtalks.com/t229546