Excel vb Email

[Jonathan]

Hello.

I am looking for some help with a function to send a workbook by email
without knowing whether the user has outlook or outlook express. I can make
the funtion work with either email program but not both. I am using Office
2000.

Thanks

Jonathan

 

[Ron de Bruin]

Hi Jonathan

You can use this example from my site
http://www.rondebruin.nl/sendmail.htm#Workbook

You only can send a workbook that is open if you want to
use code that will work in both programs

 

[Jonathan]

Thanks for the quick response....

I am using this exact code

ActiveWorkbook.SendMail "(e-mail address removed)", "This is the Subject line"

and have tried

Application.Dialogs(xlDialogSendMail).Show ("(e-mail address removed)"), ("hi")


Both of these work in Outlook without problem but refuse to work in outlook
express (Outlook express version is 6.00) I have tried with outlook express
open and closed and outlook is the default mail program. Any hints would be
great.

Thanks

Jonathan

 

[Jonathan]

sorry I meant to say outlook express is the default program not outlook

 

[Ron de Bruin]

Hi Jonathan

and outlook is the default mail program

Is this a typo?

If not change it to Outlook Express
Start>Settings>Control Panel....Internet options (Program Tab)
Close Excel first before you make a change.

 

[Ron de Bruin]

Do you get errrors?

 

[Jonathan]

I get the error "Runtime 1004 Show method of dialog class failed" when using
the below code

Application.Dialogs(xlDialogSendMail).Show ("(e-mail address removed)"), ("hi")

and the error "Method 'SendMail' of object '_Workbook' failed"

with the code

ActiveWorkbook.SendMail "(e-mail address removed)", "This is the Subject line"

Jonathan

 

[Jonathan]

Yes it was a typo it should have read outlook express

Jonathan

 

[Ron de Bruin]

Hi Jonathan

Try point 2 on this page
http://www.rondebruin.nl/sendmail.htm#Problems

Please post back with the result

 

[Jonathan]

Editing the win.ini file as suggested work.

Thanks for all the help.

Jonathan

 

[Ron de Bruin]

Thanks for the feedback