I have designed a workbook so that based upon the following macro, a
designated worksheet ("Sheet1") will be copied and sent to Outlook
where it is mailed.

Private Sub Worksheet_Activate()
ActiveWorkbook.Worksheets("Sheet1").Copy
ActiveWorkbook.SendMail Worksheets("Sheet1").Range("A1"),
Worksheets("Sheet1").Range("A2")
ActiveWorkbook.Close False
'A1 = User's mail | A2 = User's confirmation
End Sub

If I attempt to email a workbook on a computer that does not have
Outlook (Mail, Express), this macro obviously debugs. Therefore, I
need to be able to make a copy that can be easily accessed, renamed
and attached to web-based systems such as hotmail and yahoo. I would
appreciate any help fashioning a macro that will accomplish that
goal. Thanks.

Michael

Hi Michael , try CDO
http://www.rondebruin.nl/cdo.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Michael Lanier" wrote in message
...
I have designed a workbook so that based upon the following macro, a
designated worksheet ("Sheet1") will be copied and sent to Outlook
where it is mailed.

Private Sub Worksheet_Activate()
ActiveWorkbook.Worksheets("Sheet1").Copy
ActiveWorkbook.SendMail Worksheets("Sheet1").Range("A1"),
Worksheets("Sheet1").Range("A2")
ActiveWorkbook.Close False
'A1 = User's mail | A2 = User's confirmation
End Sub

If I attempt to email a workbook on a computer that does not have
Outlook (Mail, Express), this macro obviously debugs. Therefore, I
need to be able to make a copy that can be easily accessed, renamed
and attached to web-based systems such as hotmail and yahoo. I would
appreciate any help fashioning a macro that will accomplish that
goal. Thanks.

Michael

Thanks Ron. I can tell it will be a bit of a struggle, but I think I
can plow through. Thanks again.

Michael