trying to email workbook from VB6, getting error 1004
 

I'm using this code from VB6 to open a workbook then email it. The
workbook opens and I can read from it, write to it, format cells, etc,
but when I try to send mail I get an error:

'OutputFile contains a valid path to a working .xls file

Set oExcel = CreateObject("Excel.Application")
oExcel.UserControl = False 'do not let user interact with sheet
Sleep 1000
oExcel.Visible = DisplayExcel
Set oBook = oExcel.Workbooks.Open(OutputFile)
Sleep 1000
oBook.SendMail ", "Excel Email Test"

Run-time error '1004'
Method 'SendMail' of object _Workbook' failed

I would like to be able to send the workbook from any version of Excel
2000 or later, on any OS XP or later, if possible.

Any suggestions would be appreciated.
Mike

trying to email workbook from VB6, getting error 1004
 

Mike S was thinking very hard :
I'm using this code from VB6 to open a workbook then email it. The workbook
opens and I can read from it, write to it, format cells, etc, but when I try
to send mail I get an error:

'OutputFile contains a valid path to a working .xls file

Set oExcel = CreateObject("Excel.Application")
oExcel.UserControl = False 'do not let user interact with sheet
Sleep 1000
oExcel.Visible = DisplayExcel
Set oBook = oExcel.Workbooks.Open(OutputFile)
Sleep 1000
oBook.SendMail ", "Excel Email Test"

Run-time error '1004'
Method 'SendMail' of object _Workbook' failed

I would like to be able to send the workbook from any version of Excel 2000
or later, on any OS XP or later, if possible.

Any suggestions would be appreciated.
Mike

Hi Mike,
Is there any reason why you can't execute Excel's FileSend ToMail
Recipient (as attachment) menuitem while the workbook is active?

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

trying to email workbook from VB6, getting error 1004
 

GS wrote:
Mike S was thinking very hard :
I'm using this code from VB6 to open a workbook then email it. The
workbook opens and I can read from it, write to it, format cells, etc,
but when I try to send mail I get an error:

'OutputFile contains a valid path to a working .xls file

Set oExcel = CreateObject("Excel.Application")
oExcel.UserControl = False 'do not let user interact with sheet
Sleep 1000
oExcel.Visible = DisplayExcel
Set oBook = oExcel.Workbooks.Open(OutputFile)
Sleep 1000
oBook.SendMail ", "Excel Email Test"

Run-time error '1004'
Method 'SendMail' of object _Workbook' failed

I would like to be able to send the workbook from any version of Excel
2000 or later, on any OS XP or later, if possible.

Any suggestions would be appreciated.
Mike

Hi Mike,
Is there any reason why you can't execute Excel's FileSend ToMail
Recipient (as attachment) menuitem while the workbook is active?

I'm automating Excel from Visual Basic 6. I decided to use a different
approach: simulating right clicking on the file in the Windows file
explorer then selecting Send To Mail Recipient, that works great. I
think the problem above was caused because I don't have Outlook
configured, but the problem is solved. Thanks for replying.