Need to fix macro to send workbook via email

[Elkar]

I'm using the following line of code to send a workbook to a specific
recipient.

Application.Dialogs(xlDialogSendMail).Show "recipient"

It works fine, but the email dialog box remains open (which I want), and the
macro will not continue until the email is either sent or closed. I want the
macro to continue running regardless of whether the user actually hits "Send"
or not.

I've also tried:

ActiveWorkbook.SendMail Recipients:="recipient"

But this automatically sends the email without giving the user a chance to
type anything in the message body of the email.

How can I get the email dialog to appear and remain open for the user to add
a message to, but also keep the macro running? Any ideas?

Using: Excel 2003, GroupWise 8

Thanks in advance!
Elkar

 

[ker_01]

I didn't look for your specific topic, but anytime I need code to email from
Excel, I visit:
http://www.rondebruin.nl/sendmail.htm

Also, instead of .send or .show, when I link in to the Outlook object model
to send email, I seem to recall using .display to generate all my emails at
once without sending them; I think they either stay open, and are saved in
the drafts folder

Of course, if you aren't using the Outlook object model to send your mail,
then I have no idea if this helps- sorry!

Keith