Macro to send email and send screen shot

[bthumble]

Want to modify my macro to send a screen shot as part of the body of the email. The screen shot is on a different tab than the input for To, Subject and Body in the VBA code. Would like to be able to adjust the range for the screen shot since it changes frequently. Thanks for your asisstance.


Sub send_email()

Dim OutApp As Object
Dim Outmail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Outmail = OutApp.CreateItem(0)

With Outmail
.To = Range("C3").Value
.Subject = Range("C5").Value
.Body = Application.WorksheetFunction.TextJoin(vbNewLine, True, Range("C7:C13").Value)

.display
End With

Set Outmail = Nothing
Set OutApp = Nothing

End Sub

 

[davesexcel]

Here is a thread worth looking at,

VBA - email different range of excel sheet to different email addresses

I need some help with the macro below that I want to use to send each employee their PTO report (range of cells on sheet) - see attached image. I have the macro below which enables me to send the first report - cells B12:R15 to the email name in cell D12 but now want to modify it to send their...

www.mrexcel.com

there are other threads on this as well.

 

[bthumble]

I am using the VBA script from site Excel Automation - Ron de Bruin and want both text above and below the HTMLBody. Currently only the HTMLBody appears on the email. What have I done incorrectly? Below is the section of the code where I specify the inputs that go in the email. Thanks.

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Range("C3").Value
.CC = Range("C5").Value
.BCC = Range("C7").Value
.Subject = Range("C9").Value
.StrBody = Sheets("Sheet1").Range("C11").Value & "<br>" & _
Sheets("Sheet1").Range("C12").Value & "<br><br><br>"
.HTMLBody = StrBody & RangetoHTML(rng)

'.Send 'or use .Display
.Display