Sending Email through a macro

R

rojobrown

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
 
R

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 "[email protected]", _
"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
 
R

rojobrown

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


Ron de Bruin said:
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 "[email protected]", _
"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
Click to expand...
 
R

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
 
Top