Enviar Mail con macro e Incluir imágenes

Hola, estoy haciendo una macro que envíe cotizaciones por mail, el cuerpo es HTML y ya logre hacerlo, pero hay dos detalles:
1) en el rango de celdas que envío como HTML hay imágenes y estas no aparecen en el mail.
2) en la firma de correo la imagen no aparece
este es el código que he usado.
Set rng = Sheets("Cot General").Range("A1:F" & ultima_Fila).SpecialCells(xlCellTypeVisible) 'Defino la celdas que voy a copiar '
strbody = "Estimado(a)" & contacto_Nombre & ":" & "<br><br>" & _
"Adjunto encontraras la cotizacion por el servicio de " & servicio & " para el auto " & marca
SigString = "C:\Users\Personal 3\AppData\Roaming\Microsoft\Firmas\Speed.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else Signature = ""
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
With OutMail
.To = contacto_Mail
.Subject = "Cotizacion " + servicio + " " + marca + " " + auto 'MsgBox ("5") '
.HTMLBody = strbody & RangetoHTML(rng) & "<br><br>" & Signature
.Attachments.Add (RutaArchivo)
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing