Macro Excel - Enviar correo imagen y texto

Quisiera automatizar un archivo que genero de manera diaria para que al ejecutar una macro envié un correo con una imagen tipo resumen de un análisis y un texto en el cuerpo del correo.

Actualmente tengo el siguiente código de la macro, mas sin embargo al ejecutarla solo enviar la imagen en el cuerpo del correo.

El office que tengo es la versión 2016.

Sub ENVIAR_CORREOS()
Dim MI_APP As Object
Dim MI_CORREO As Object
Set MI_APP = CreateObject("Outlook.Application")
'MI_APP.SESSION.LOGON
Set MI_CORREO = MI_APP.createitem(0)
'ActiveWorkbook.Save
On Error Resume Next
IMAGEN = Sheets("RESUMEN").Range("B1:Q29").Copy
PLANTA = "PLANTA"
JEFE = Application.WorksheetFunction.VLookup(PLANTA, Sheets("CAT").Columns("C:E"), 3, 0)
AUXILIAR = Application.WorksheetFunction.VLookup(PLANTA, Sheets("CAT").Columns("C:F"), 4, 0)
ASUNTO = Sheets("REPORTE DIARIO").Range("A2")
USUARIO = Environ$("Username")
MENSAJE = "¡Buenas Tardes!; " & vbNewLine & vbNewLine
MENSAJE = MENSAJE & "Envío un resumen informativo de las facturas sin folio. Así mismo también se adjunta la base de datos donde vienen estas facturas." & vbNewLine & vbNewLine
MENSAJE = MENSAJE & "Les solicitamos por favor puedan actualizar el registro de los folios en SAP que traen pendientes, esta información se estará actualizando y enviando cada semana." & vbNewLine & vbNewLine
With MI_CORREO
.to = JEFE
.CC = AUXILIAR
.Subject = ASUNTO
.BODY = MENSAJE
.HTMLBody = "<IMG SRC='Planilla.jpg'>"
.Attachments.Add ("C:\Users\" & USUARIO & "\Desktop\ANALISIS.xlsx")
'''''
.Attachments.Add ThisWorkbook.Path & "\Planilla.jpg"
.BodyFormat = 2 'olFormatHTML
.display
'''''
.send
End With
MsgBox "Email enviado con éxito"
On Error GoTo -1
Set MI_CORREO = Nothing
Set MI_APP = Nothing
End Sub