¿Integrar imágenes en macro para envío de correos masivos?

Tengo la siguiente macro que me ayuda a enviar correos masivos a mis clientes, si se cumple cierta condición, pero ahora necesito agregarle imágenes que tengo guardadas en la pc, ¿cómo puedo hacerlo?

Sub Enviar_Correos()
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "H").Value = "Correo" Then
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = Cells(i, "D").Value 'Contacto
dam.Subject = "Seguimiento a cotizacion"
dam.Body = "Estimado/a : " & Cells(i, "C").Value & vbCr & vbCr & _
"Nos contactamos con usted para dar seguimiento a su solicitud de cotización, le recordamos que estamos a sus ordenes " & _
"cotización con numero : " & Cells(i, "A").Value & vbCr & vbCr & _
dam.Send 'El correo se envía en automático
'dam.Display 'El correo se muestra
End If
Next
MsgBox "Correos enviados"
End Sub