Visual Basic para Aplicaciones - Ayuda, insertar imagen en el cuerpo del correo con excel VBA

Sub envio_correo()

Application.ScreenUpdating = False

Dim outlookOBJ As Object

Dim mitem As Object

nume_regi = Range("E21").End(xlDown).Row - 21

For i = 1 To nume_regi

  Set outlookOBJ = CreateObject("Outlook.Application")

  Set mitem = outlookOBJ.CreateItem(olMailItem)

     asunto = Cells(5, 5).Value

     ruta_archivo = Cells(7, 5).Value

     Cuerpo = Cells(9, 2).Value

     persona = Cells(21 + i, 5).Value

     empresa = Cells(21 + i, 6).Value

     Enviara = Cells(21 + i, 7).Value

         With mitem

        .To = Enviara

        .Subject = asunto & " su " & Codigo

        .Body = "Buen día " & StrConv(Left(persona, InStr(persona, " ")), vbProperCase) & vbCrLf & vbCrLf & Cuerpo & vbCrLf & vbCrLf & ""

        '.Send

     End With

     If ruta_archivo <> "" Then

        With mitem

        .Attachments.Add (ruta_archivo)

        End With

     End If

        With mitem

        .Send

        End With

Next i

Range("E5").Select

Application.ScreenUpdating = True

Set outlookOBJ = Nothing

Set mitem = Nothing

MsgBox ("Finalizado se enviaron " & nume_regi & " Correos con exito"), vbOKOnly, "Correos enviados"

End Sub

Sub selec_archivo21()

On Error GoTo a2

ruta_archivo = Application.GetOpenFilename(Title:="Selecciona el archivo para Mail")

If ruta_archivo = False Then

 Exit Sub

 Else

    Cells(7, 5).Value = ruta_archivo

End If

a2:

End Sub