Send to function
 

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
...
I have got the following code, but I am unable to automatically populate
the
"To" area of the send to drop down box. Does any on know where I am going
wrong.

Option Explicit

Sub SendSheet()
Dim objOutlook As Outlook.Application
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

All comments greatly received.

Thanks

Mike