You seem to be going in the wrong direction. Check out this page for a mass
of information on emailing from excel.

http://www.rondebruin.nl/sendmail.htm

--
Regards,
Tom Ogilvy


"MikeFullam" wrote in message
...
Tom

Thanks for your help, I have got some code as below, but can't get the
Addresses to appear in the "To" area of "send this sheet" box. Do you
know
where I am going wrong?

Option Explicit

Sub SendSheet()
Dim objOutlook As Outlook.Application 'microsoft outlook object library
needs setting in references
Dim objOutlookRecip As Outlook.Recipient
Dim Address
Set Address = Range("address") 'range containing enail address for
distribution
With Application
.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.EnvelopeVisible = True
With .CommandBars("Send To")
Set objOutlookRecip = Address
'Set objOutlookRecip = ")
.Controls.Add Type:=msoControlButton, ID:=3708
With .Controls("Send Now")
.Execute
.Delete
End With
End With
.ScreenUpdating = True
End With
End Sub


Many thanks

Mike


"Tom Ogilvy" wrote:

No, to the best of my knowledge, Excel does not save the destination
addresses.

--
Regards,
Tom Ogilvy


"MikeFullam" wrote:

I am trying to use the send to function in Excel, for the first time,
which
works OK, But I thought that if I saved the file immediately afeter
sending
the file, Excel would retain the destination addresses. This does not
happen
with my version of Excel, should the addresses be retained if so how do
I
force this to happen?

Any comments greatly appreciated. Thanks

Mike