Sending e mail with attachment from button click

[Guest]

Hi,

I have never used macros before..but i have created a button on excel
sheet...a CommandButton1 . Now when this button is clicked a blank e - mail
should open up with this spreadsheet attached to it...

Is there any way this is possible? What code is required for this?

Thanks

 

[Ron de Bruin]

Hi Pmud

Look at my site for code examples
http://www.rondebruin.nl/sendmail.htm

Maybe one of the Add-ins is the best choice for you
http://www.rondebruin.nl/mail/add-in.htm

 

[Guest]

This code works for me:
Sub Mailit()
Dim BkName As String
ActiveWorkbook.Save
BkName = ActiveWorkbook.FullName
Dim Mailit As Object
Set Mailit = CreateObject("Outlook.Application")
Set NewMail = Mailit.CreateItem(olMailItem)
NewMail.Subject = ActiveWorkbook.Name
NewMail.Attachments.Add BkName
NewMail.Display
End Sub

Attach it to your button. If you want it available for any workbook, put the
module in your personal workbook. Also, be sure the reference to Microsoft
Visual Basic for Applications Extensibility (etc.) is checked under
Tools/Refereces in the VBE

 

[Guest]

On second thought , I had forgotten that Excel already provides w way to do
this without programming. Just Click File/Send To/ Mail Recipient(as
Attachment)

 

[Guest]

Hi Ron,

Thanks . that worked..

Cheers

Hi Pmud

Look at my site for code examples
http://www.rondebruin.nl/sendmail.htm

Maybe one of the Add-ins is the best choice for you
http://www.rondebruin.nl/mail/add-in.htm