Visual Basic para Aplicaciones - Necesito insertar la imagen en el cuerpo de outlook

Application.ScreenUpdating = False

Dim objOutlook As Object

Dim objItem As Object

Dim objNamespace As Object

Dim ADJUNTO As Variant

Dim Resp As Byte

AppActivate "ACDSee 32 v2.41"

SendKeys "^+C", 1 ´imagen para insertar en Outlook

strbody = "<p style = 'font-family: Comic Sans MS; font-size: 17'>Buenos días.<span style=""color:#e00d0d""> <b>Los firmantes seleccionados no tienen Facultad para esta transacción</b></span style=""color:#e00d0d"">, para el pago del valor que les adjunto necesitamos contar hoy con actas y los poderes actualizados.<br>" & _

              "Y que las mismas se envíen por mail para ser verificado por <span style=""color:#32a851""><b>Soporte-legal-operac@itau.com.ar.</b></span style=""#32a851"">  Hay tiempo hasta las 13:00 Hs.<br>" & _

              "Como siempre muchas gracias.<br>" & _

              "Saludos.<br>"

Application.StatusBar = "By Piojosoft ®"

Application.ScreenUpdating = False

Application.DisplayStatusBar = True

Application.StatusBar = "En Proceso..."

Set objOutlook = CreateObject("Outlook.Application")

Set objNamespace = objOutlook.GetNamespace("MAPI")

Set objItem = objOutlook.CreateItem(olMailItem)

objNamespace.Logon "EXCELSPACE", , True, True

With objItem

  ' .Attachments.Add

  .Display

  .To = Range("G1").Value

  .CC = ""

  .BCC = ""

  .Subject = Range("H1").Value

  .HTMLBody = strbody & "<br>" & .HTMLBody

  '.Send

End With

objNamespace.Logoff

Set objOutlook = Nothing

Set objItem = Nothing

Set objNamespace = Nothing

'

Application.ScreenUpdating = True

Application.StatusBar = "Ejecución terminada..."

Application.StatusBar = "By Piojosoft ®"

'

End Sub