How to generate an outlook message with the content from a particular worksheet.

[DURGESH88]

I have a Macro developed which gives me lot of graphs and tables in multiple worksheets. As there is lot of data, I have selected specific data and stored in one of the worksheet. Now I want to generate outlook message with the content only from that particular worksheet instead of sending that whole worksheet or spreadsheet.
I have created one button on that sheet. Once the user clicked on that particular worksheet outlook message should get generate automatically.

For more details please refer the attachment.

Can anyone please help me on this. Thanks!

NOTE:
The body of the email should take the text as well as pictures from the selected range from the worksheet.

[Tinbendr]

Check out Ron's site. There are lots of good examples there.

[DURGESH88]

Thanks for the info:
I used below code from Ron's site and its working for me to get the text as well as pictures from the respective worksheet. However I am facing a small problem. With current code email is directly shoot and not able to just open into the outlook message. I did try to change the keyword as ".Display" instead of ".Send". But its not working for me. Can you please help me on this.


Dim AWorksheet As Worksheet
Dim Sendrng As Range
Dim rng As Range
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With

'Fill in the Worksheet/range you want to mail
'Note: if you use one cell it will send the whole worksheet
Set Sendrng = Worksheets("Sheet1").Range("A5:K60")

'Remember the activesheet
Set AWorksheet = ActiveSheet

With Sendrng

' Select the worksheet with the range you want to send
.Parent.Select

'Remember the ActiveCell on that worksheet
Set rng = ActiveCell

'Select the range you want to mail
.Select

' Create the mail and send it
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

' Set the optional introduction field thats adds
' some header text to the email body.
.Introduction = "Breaking News: Durgesh la bhook lagali"

With .Item
.To = "abc.xyz@test.com"
.CC = ""
.BCC = ""
.Subject = "Auto Generated Report"

.Send 'I used .Display as well but its not working,. .Send is working
End With

End With

'select the original ActiveCell
rng.Select
End With

'Activate the sheet that was active before you run the macro
AWorksheet.Select

StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False

Thanks for your help on this.

[Tinbendr]

But its not working for me.

What does this mean exactly?

You should replace Send with Display.

Also comment out

Please Login or Register  to view this content.

Please use code tags when posting code.