Sending Email through a macro

[Guest]

I'm using the following in vbe for a particular workbook. I would like to be
able to key in a message or a subject before I actually send the file. I
just want to have some control on the file being sent. Can this even be done?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SendMail Recipients:="recipient@address"
End Sub

 

[Ron de Bruin]

Hi rojobrown

With SendMail the only way to stop the file is to leave the E-mail address empty.
See example 2

Sub Mail_workbook_1()
ActiveWorkbook.SendMail "(e-mail address removed)", _
"This is the Subject line"
End Sub


Sub Mail_workbook_2()
ActiveWorkbook.SendMail "", _
"This is the Subject line"
End Sub

If you use Outlook you have more options (change Send to Display)
See my site for code examples
http://www.rondebruin.nl/sendmail.htm

 

[Guest]

you are going to love this site
http://www.rondebruin.nl/sendmail.htm

TOTAL control

 

[Guest]

How can I create it in my personal workbook so it doesn't get overwritten
each time I run the file?
--
Thanks a bunch!
rojobrown

Hi rojobrown

With SendMail the only way to stop the file is to leave the E-mail address empty.
See example 2

Sub Mail_workbook_1()
ActiveWorkbook.SendMail "(e-mail address removed)", _
"This is the Subject line"
End Sub


Sub Mail_workbook_2()
ActiveWorkbook.SendMail "", _
"This is the Subject line"
End Sub

If you use Outlook you have more options (change Send to Display)
See my site for code examples
http://www.rondebruin.nl/sendmail.htm

 

[Ron de Bruin]

Have you try it ?

--
Regards Ron de Bruin
http://www.rondebruin.nl

How can I create it in my personal workbook so it doesn't get overwritten
each time I run the file?

 

[Ron de Bruin]

Or do you want to know how to put it there

Alt-F11

See personal.xls on the left
Expand it and click on a module
Copy /paste the macro there
Alt-q to go back to excel