Macro para enviar email Outlook y cuerpo con formato.

Para Dante Amor

Hola de nuevo, agradezco mucho tu ayuda en las preguntas anteriores.

Me ayudaste a hacer la siguiente macro, sin embargo quisiera saber ¿cómo puedo hacer para que en el cuerpo del mensaje sea una imagen que tengo y ademas poder agregar mi firma también como imagen?, o en su defecto ¿Cómo puedo hacer que el texto del cuerpo tenga el mismo formato que esta en las celdas E2:E6 (alineación, fuente, color, tamaño) y agregar la imagen de mi firma?

Sub Pdf_Enviar_Correos_Gmail()
'---
'   Por.Dante Amor
'---
    '***Macro Para enviar correos por Outlook
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set h = Sheets("REGISTRO")
    '
    ruta = "C:\Users\itumi\Desktop\PRUEBAS\"
    'ruta = ThisWorkbook.Path & "\"
    h.Select
    For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
        '
        archivo = ruta & Cells(i, "A").Value & ".pdf"
        Cells(i, "A").ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=archivo, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
        '
        Set dam = CreateObject("Outlook.Application").CreateItem(0)
        dam.To = Range("B" & i).Value           'Destinatarios
        dam.Subject = "Asunto"
        dam.Body = "Cuerpo del mensaje"
        If Dir(archivo) <> "" Then
            dam.Attachments.Add archivo
        End If
        Dam. Send 'El correo se envía en automático
 'dam. Display 'El correo se muestra
        Cells(i, "C") = "El mail se envió con éxito"
        Set dam = Nothing
    Next
    MsgBox "Correos enviados", vbInformation, ""
End Sub