I had trouble getting the code to work until I made Recipient plural. So it
should look like this:
activesheet.copy
Activeworkbook.Sendmail ", Subject:="Report for
" & format(date,"mm/dd/yyyy")
Activeworkbook.Close Savechanges:=False
Other than that it works wonderfully.
"Tom Ogilvy" wrote:
when you say form, do you mean using a worksheet to simulate a paper form?
or are you talking about a Userform that you create in the VBE?
for a worksheet
activesheet.copy
Activeworkbook.Sendmail ", Subject:="Report for
" & format(date,"mm/dd/yyyy")
Activeworkbook.Close Savechanges:=False
--
Regards,
Tom Ogilvy
"George" wrote in message
...
I want to make a form with in it a button to send that form to a
pre-choossen
mail address
Can someone help me?
Regards
George