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" <(E-Mail Removed)> wrote in message
news:18e35ffb-8324-443d-9a8d-(E-Mail Removed)...
>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