Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Bypass: A program is trying to send mail using Item.Send prompt | Excel Discussion (Misc queries) | |||
?? Send function not available for Lotus Notes | Excel Discussion (Misc queries) | |||
SaveAs function and Send mail in VBA | Excel Programming | |||
Send to function... | Excel Discussion (Misc queries) | |||
Excel Send To function problem | Excel Discussion (Misc queries) |