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

--
pmud

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


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



"pmud" wrote in message ...
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

--
pmud

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



"pmud" wrote in message ...
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

--
pmud

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)

"Bob H" wrote:

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



"pmud" wrote in message ...
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

--
pmud

Hi Ron,

Thanks . that worked..

Cheers

"Ron de Bruin" wrote:

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


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



"pmud" wrote in message ...
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

--
pmud