This is all you need to send it

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

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"funkymonkUK"
wrote in message
...

Hi

I am looking for excel VBA code to send email with the activeworkbook
attached and subject line & message. I have searched this site and all
the solutions which all point to Rons website however due to our IT
security have blocked his website and I cannot view his code for this
problem I have.

If somebody could check on his site and then paste it on here for me I
would be most grateful.

Many Thanks

Funkymonk
(THE FUNKIEST VBA CODER ON THE FORUM);)


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile:
http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=535447