Send To mail or Attach to mail.

[amithmurali]

Hi guys.

I have a requirement from the Client, i am not able to figure it out.

They need to send the screenshot of the graph directly to mail. we have an option to copy the screen shot and send to excel. but i need "send to mail" option. how to achieve it. My client is does not want to do the hastle of copy the chart and pasting it in his mail. he needs a shortcut.  Layout & Visualizations‌App Development‌Creating Analytics‌

[Anonymous]

Hi,

I use the code below to copy the sheet and attach it in the Mail client

For a button i assign three actions

1) Run Macro - CaptureScreen - to save the screenshot of the sheet and save it in C drive.

2) Launch - select you mail client application

3) Run Macro - Insert image in mail

sub CaptureScreen

    ActiveDocument.ActiveSheet.ExportBitmapToFile "C:\Snapshot.PNG"   

    'msgbox "Screen capture is stored in C:\Snapshot.JPG."

end sub

sub InsertImageInMail

    ActiveDocument.GetApplication.Sleep 2000

    Set objShell = CreateObject("WScript.Shell")

    objShell.SendKeys "%FNM" - short cut keys for attachment

    objShell.SendKeys "%IA" --short cut keys for attachment

    objShell.SendKeys "C:\Snapshot.PNG"

    objShell.SendKeys "{ENTER}"

end sub

Hope this helps you.