E Mail from Excel using a command botton

[Bob C]

I am trying to program a command button to send a workbook to a preset e mail
address. Why will this code not work? The CommandButton line fails. I do not
know much about VB.

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

Thanks for your help.
Bob

 

[Ron de Bruin]

Hi Bob

You must only copy the code lines in the Click event
Like this :

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

 

[Anne Troy]

Perhaps macros are disabled? Here's another option via Outlook:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=97
**** Hope it helps! ****

~Dreamboat
Excel VBA Certification Coming Soon!
www.VBAExpress.com/training/
********************************

 

[Anne Troy]

Wow. I feel like a buffoon. LOL!! Nice catch, Ron.

 

[Bob C]

Thanks so much! Bob C
Ignore the next post sent by accident.