Insertar firma con imagen a macro mails automático

¿Me podran ayudar con esta Macro? Solo me que cuando envie el mail se envie con image, ( no necesito que se adjunte el archivo de la imagen, sino que salga como firma)

Sub EnviarEmail()
'
' Declaramos variables
'
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Observación As String
Dim Solicitud As String

Dim Msg As String
'
Set OutlookApp = New Outlook.Application
'
'Recorremos la columna EMAIL
'
For Each cell In Range("B11:B200")
'
'Asignamos valor a las variables
'
Asunto = "DOCUMENTACIÓN FALTANTE-NO REPLY"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
Observación = Format(cell.Offset(0, 1).Value, "$#,##0")
Solicitud = cell.Offset(0, 2).Value
'
'Cuerpo del mensaje
'
Msg = "Estimado " & Destinatario & " N° de Solicitud:" & Solicitud & vbNewLine & vbNewLine
Msg = Msg & " Nos dirigimos a usted a fin de informale que su sucripción a Plan Ovalo, se encuentra a un paso de quedar aprobada. Por favor diríjase a su Concesionario para completar los siguientes requisitos faltantes: " & vbNewLine & vbNewLine
Msg = Msg & Observación & vbNewLine & vbNewLine
Msg = Msg & "Atentamente:" & vbNewLine
Msg = Msg & "Plan Ovalo."
Msg = Msg & "ESTE E-MAIL ES AUTOMÁTICO Y NO RESPONDE CONSULTAS." & vbNewLine
Msg = Msg & "La información y documentos contenidos en este correo electrónico son confidenciales y están legalmente protegidos. Este correo electrónico está dirigido únicamente a la dirección de correo señalada. El acceso a este correo electrónico por cualquier otra persona no está autorizado. Si usted no es la persona a la cual el presente correo electrónico estaba originalmente dirigido, cualquier difusión, copia o distribución está prohibida y puede ser ilegal. Si lo ha recibido por error, por favor notifique al emisor e inmediatamente bórrelo de forma permanente y destruya cualquier copia impresa."
'
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.Body = Msg
.Send
'
End With
'
Next
'
End Sub

Sub EnviarEmail()
'
' Declaramos variables
'
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Observación As String
Dim Solicitud As String

Dim Msg As String
'
Set OutlookApp = New Outlook.Application
'
'Recorremos la columna EMAIL
'
For Each cell In Range("B11:B200")
'
'Asignamos valor a las variables
'
Asunto = "DOCUMENTACIÓN FALTANTE-NO REPLY"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
Observación = Format(cell.Offset(0, 1).Value, "$#,##0")
Solicitud = cell.Offset(0, 2).Value
'
'Cuerpo del mensaje
'
Msg = "Estimado " & Destinatario & " N° de Solicitud:" & Solicitud & vbNewLine & vbNewLine
Msg = Msg & " Nos dirigimos a usted a fin de informale que su sucripción a Plan Ovalo, se encuentra a un paso de quedar aprobada. Por favor diríjase a su Concesionario para completar los siguientes requisitos faltantes: " & vbNewLine & vbNewLine
Msg = Msg & Observación & vbNewLine & vbNewLine
Msg = Msg & "Atentamente:" & vbNewLine
Msg = Msg & "Plan Ovalo."
Msg = Msg & "ESTE E-MAIL ES AUTOMÁTICO Y NO RESPONDE CONSULTAS." & vbNewLine
Msg = Msg & "La información y documentos contenidos en este correo electrónico son confidenciales y están legalmente protegidos. Este correo electrónico está dirigido únicamente a la dirección de correo señalada. El acceso a este correo electrónico por cualquier otra persona no está autorizado. Si usted no es la persona a la cual el presente correo electrónico estaba originalmente dirigido, cualquier difusión, copia o distribución está prohibida y puede ser ilegal. Si lo ha recibido por error, por favor notifique al emisor e inmediatamente bórrelo de forma permanente y destruya cualquier copia impresa."
'
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.Body = Msg
.Send
'
End With
'
Next
'
End Sub

Cambia "firma.jpg" por el nombre del archivo que tiene la firma y logo

Private Sub Workbook_Open()
'envía mail
'Por.Dante Amor
'
    '
    Sheets("Task Status").Select
    ufila = Range("B" & Rows.Count).End(xlUp).Row
    For i = 4 To ufila
        If Cells(i, 7) <= Cells(i, 8) Then
            Set dam = CreateObject("outlook.application").createitem(olmailitem)
            para = Cells(i, 10) & ";" & Cells(i, 11) & ";" & Cells(i, 12)
            dam.To = para 'Destinatarios
            dam.Subject = "Task Status" '"Asunto"
            '
            'carpeta y nombre del archivo con el logo
            ruta = "c:\trabajo\"
            logo = "firma.jpg"
            dam.Attachments.Add ruta & logo
            '
            cuerpo = "Señ@r " & Cells(i, 5) & _
                     " el trabajo " & Cells(i, 2) & _
                     " le fue asignado el día " & Cells(i, 6) & _
                     " y actualmente se encuentra " & Cells(i, 8) & _
                     ". Favor indicar la razón de esta situación." & _
                     "<br> <br>"
            '
            dam.HTMLBody = _
                "<HTML> " & _
                    "<BODY>" & _
                        cuerpo & _
                        "<img src=cid:" & logo & " height=150 width=275>" & _
                    "</BODY> " & _
                "</HTML>"
            '
            'dam. Attachments.Add Ruta & Archivo
            Dam. Send 'El correo se envía en automático
            'dam. Display 'El correo se muestra
        End If
    Next
End Sub

.

¿Quiere crear y gestionar firmas de correo electrónico profesionales? No se preocupe, porque Newoldstamp tiene todo lo que necesita. Un generador de firmas de correo electrónico es una potente herramienta en línea que te ayuda a personalizar tus correos electrónicos con firmas profesionales. Es realmente fácil de usar y puedes crear rápidamente una firma que cumpla con todos los requisitos.