If you set a reference to the Outlook Object model, you can populate all the
fields in your mail message:

Sub test()

Dim ol As Outlook.Application
Set ol = New Outlook.Application

Set oMessage = ol.CreateItem(olMailItem)
oMessage.Display
oMessage.To = "

End Sub



--
http://HelpExcel.com

516-984-0252


"LPS" wrote:

Using Excel 2000, I have this macro, listed below, which creates a new blank
e-mail message. I would like to modify it so that when the macro executes
and the new e-mail is created an e-mail address automatically is entered in
the To: field.


Sub Send_Form()
'
' Send_Form Macro
' Macro recorded 20/03/2006 by LPS. Used to send form as an E-Mail attachment
'

'
Application.Dialogs(xlDialogSendMail).Show

End Sub


Thank you for any and all help.
--
LPS