En mi humilde opinión (nunca lo he hecho) pero parece ser que la Clase CDO puedes hacer referencia a CDO.Message y despues en sus propiedades incluir la imagen en el Cuerpo HTML
Dim objMailMsg As New CDO.Message
objMailMsg.AddAttachment.AddBodyPart "C:\LaImagen.jpg"
objMailMsg.CreateMHTMLBody = "<html><p>This is a picture.</p>" & _
"<img src='cid:LaImagen.jpg' height=480 width=360>"
El Codigo es erratico, lo escribi al vuelo, Repito, se me ocurrio, es solo una idea.
