Cómo insertar firma(imagen) en cuerpo de correo?

Continuo haciéndole modificaciones al ejemplo de neckkito, esta vez trate de insertarle una imagen al final del cuerpo del mensaje pero me da error, investigando me encontré que agregando lo siguiente se podría lograr:

    Dim OutMail As Outlook.MailItem

  OutMail.BodyFormat = olFormatHTML

  .HTMLBody = "<IMG SRC="firma.JPEG">"

pero en el  .HTMLBody = "<IMG SRC="firma.JPEG">" me da error de compilación.

Lo que he investigado no entiendo muy bien como aplicar el formato HTML en el cuerpo del mensaje, al ser la primera vez que lo escucho me pareció algo con muchas reglas a seguir.

Código del botón:

Private Sub cmdEnvioMasivo_Click()
On Error GoTo sol_err
        'Definimos las variables
    Dim mailA As String
    Dim mailCC As String
    Dim mailCCO As String
    Dim elAsunto As String, elMsg As String
    Dim OutMail As Outlook.MailItem ' lo nuevo agregado
       'Pedimos al usuario que especifique el asunto
    elAsunto = "Notificación de Resultados"
        'Si no se especifica nada los valores se convierten a cadena de texto vacía
    If IsNull(elAsunto) Then elAsunto = ""
    If IsNull(elMsg) Then elMsg = ""
        'Creamos el recordset
    Dim rst As Recordset
    'Set rst = CurrentDb.OpenRecordset("Q_envio_correos")
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM Q_envio_correos WHERE FECHA_RECIBIDO_INFORMES Between #" & Format(Me.txt_Fecha_Ini, "mm/dd/yyyy") & "# AND #" & Format(Me.txt_Fecha_Fin, "mm/dd/yyyy") & "#")
        'Nos movemos al primer registro
    rst.MoveFirst
        'Iniciamos el proceso
    Do Until rst.EOF
            'Creamos una instancia de Outlook
        Dim Olk As Outlook.Application
        Set Olk = CreateObject("Outlook.Application")
        OutMail.BodyFormat = olFormatHTML   ' lo nuevo agregado
            'Creamos un nuevo mensaje de Outlook
        Dim OlkMsg As Outlook.MailItem
        Set OlkMsg = Olk.CreateItem(olMailItem)

            'Creamos la información del mail
        With OlkMsg
                'Definimos los elementos del mail
            Dim OlkDestinatario As Outlook.Recipient
            Dim OlkAdjunto As Outlook.Attachment
                'Inicializamos los elementos del mail
            Set OlkDestinatario = .Recipients.Add(rst.Fields("Correo_electronico1").Value)
            OlkDestinatario.Type = olTo

'Añadimos los elementos Asunto y Mensaje
.Subject = elAsunto
If rst("Reporte_Recibido") = True And rst("DVD_Recibido") = True Then
  .Body = " Estimado (a):" & " " & rst("Nombre_Completo") & ", " & vbCrLf & " " & vbCrLf & " " & vbCrLf & "" & "  Le informamos....... ."
  .HTMLBody = "<IMG SRC="ampo.JPEG">"  ' lo nuevo agregado
End If
'Enviamos el mail
.Send
        End With
            'Nos movemos al siguiente registro
        rst.MoveNext
    Loop
        'Lanzamos un mensaje de OK
    MsgBox "El mensaje masivo se ha enviado correctamente", vbInformation, "CORRECTO"
        'Cerramos conexiones y liberamos memoria
    rst.Close
    Set rst = Nothing
        'Eliminamos la instancia
    Set Olk = Nothing
    Set OlkMsg = Nothing
    Set OlkDestinatario = Nothing
    Set OlkAdjunto = Nothing
Salida:
    Exit Sub
sol_err:
    MsgBox Err.Number & ": " & Err.Description
    Resume Salida
End Sub

Agradezco si me pueden ayudar como colocar correctamente una imagen después del mensaje