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

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

Thanks Tom,

i will try it.

To be more explicit about my question, I have a form in Excel which a team
needs to fill in and then send by mail. One time to one mail address the
second time to another mail address, same form but different content.

Now they have to go to send it by too many steps, if there is a button which
say send to mal 1 or send to mail 2 it makes it a lot easier to have these
persons use this form.

Thanks again.



"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

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