Populating an e-mail address in a VBA Function

[DoctorV]

I have the following code in a button on a worksheet Before the lin
that says
Application.Dialogs(xlDialogSendMail).Show
I wanted to put a default email address which can be hard coded and i
known ie
.to = "(e-mail address removed)"
How can I put the To Address in this statement so that when they clic
the button the address automatically appears in the To section of th
email?
Thanks

Code

ActiveSheet.Protect DrawingObjects:=False, Contents:=False
Scenarios:=False
If Sheets("Level 2 Support Team Member").Range("b34").Value
#1/1/2001# Then
Sheets("Level 2 Support Manager").Range("b22").Value = Now()
Me.CommandButton3.Enabled = False
Application.Dialogs(xlDialogSendMail).Show
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenario

 

[Dave Peterson]

From the VBA help for dialogs:

xlDialogSendMail recipients, subject, return_receipt

so

Application.Dialogs(xlDialogSendMail).Show "(e-mail address removed)"

should work ok.

For lots of sample code for email stuff, visit Ron de Bruin's site:
http://www.rondebruin.nl/

And Dick Kusleika has notes/code (especially Outlook) at:
http://dicks-clicks.com/excel/olAutomating.htm