Adding pictures from excel into email

[Raymond]

Good Day

I am trying to get users to email sleected fields in excel by clicking a button.
The user is reaquired to paste a screenshot into excel.
When the user clicks send it should either attach or add the picture to the body.
How would I do this, as most scripts are written for chart objects and I am not able to change it to select the picture instead?

This is my code

Sub Bridge_Q()
 
Dim LR As Long
    LR = Range("AA" & Rows.Count).End(xlUp).Row
    Range("AA" & LR + 1).Value = Range("b2") & " (" & LR & ")"
   
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
 
 
strbody = "<H3><B>Good Day</B></H3>" & _
          "Please assist with below query.<br><br>" & Range("b7") & vbCrLf & _
          "<br><br>Please see screenshot.<br><br>"
 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
 
 
On Error Resume Next
 
With OutMail
.Subject = Range("z2") & Range("AA" & LR + 1)
.To = "email@adress1.co.za; " + "email@adress2.co.za"
.CC = Range("z1")
.BCC = "email@adress3.co.za"
.HTMLBody = strbody
.Display
.send
End With
 
On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
 
End Sub

Thanks

 

[lohithsriram]

Hi Raymond,

Check this link which has a code to attach the pictures on Outlook.
http://www.mrexcel.com/forum/excel-...cations-embedding-picture-outlook-email-2.htm

 

[Raymond]

Hi Raymond,

Check this link which has a code to attach the pictures on Outlook.
http://www.mrexcel.com/forum/excel-...cations-embedding-picture-outlook-email-2.htm

Hi Lohith

I have clicked the linked, it goes to a http 404 error.
Could you double check it for me?

Thanks​

 

[lohithsriram]

Hi Raymond,

Try the below link and check the 2nd page of the thread.

http://www.mrexcel.com/forum/excel-...ications-embedding-picture-outlook-email.html