Email spreadsheet

[bbc1]

I have a sheet that I have created a button on that when its pressed opens
outlook up, would like as part of the macro that it places the employee's
email address's in it and sends it.
Sub Email()
'
' Email Macro
''

'
Application.Dialogs(xlDialogSendMail).Show
End Sub

Outlook opens corrrectly with the file attached and the subject completed
but I have to select the persons email address from the contacts dropdown.

 

[Sheeloo]

With the mail object use the following;

..To = "[email protected]"

basically use the same syntax as populating SUBJECT field...

 

[bbc1]

Sorry am not sure how to place this in the code could I have the actual code
I need to insert

 

[JP]

From mrexcel.com:

Dim Send As Dialog
Send = Application.Dialogs(xlDialogSendMail).Show("[email protected]",
"Subject Line", True)

--JP

 

[Ron de Bruin]

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

 

[bbc1]

Thankyou very much worked it out and it works perfectely