Email Active Sheet as jpeg

[JonElCanche]

I would like to email only the active sheet of my workbook when clicking a button. The best would be to email it as a jpeg or paste values only. Is there some code that would send this automatically to a predetermined email address?

 

[bensonsearch]

Hi,
you can send the workbook with

activeworkbook.send ('details here)

the only thing is this sends the workbook itself as an attachment.

the only other ways I can think of is to email based on a variable which gets data from say A1:N100 and pastes it in the body

or

use printscreen to save a pic of it then make an email with that attached.

let me know which option if any of these and I can explain further

 

[JonElCanche]

Hi,
you can send the workbook with

activeworkbook.send ('details here)

the only thing is this sends the workbook itself as an attachment.

the only other ways I can think of is to email based on a variable which gets data from say A1:N100 and pastes it in the body

or

use printscreen to save a pic of it then make an email with that attached.

let me know which option if any of these and I can explain further

Creating a macro to copy and paste the desired cells in the body of an email would work perfect. How would that be done?

 

[bensonsearch]

ok so below is the code to create an email in vba to send via outlook for range a1:n10

Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Dim user As Variant
 
    user = 'email address to send to
 
 strbody = sheets("Sheet1").range("A1:n10").value
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = 'body of email
    On Error Resume Next
    With OutMail
        .To = user
        .CC = ""
        .BCC = ""
        .Subject = "Subject goes here"
        .body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing

adjust range and sheet name plus email address and done