¿Cómo anexar firma después del cuerpo de correo?
Sr. Amor he estado trabajando sobre una plantilla que usted compartió en preguntas anteriores con el siguiente código:
Sub correo()
'Por.Dante Amor
col = Range("H1").Column
ruta = ThisWorkbook.Path & "\"
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = Range("B" & i) 'Destinatarios
dam.CC = Range("C" & i) 'Con copia
dam.Bcc = Range("D" & i) 'Con copia oculta
dam.Subject = Range("E" & i) '"Asunto"
dam.body = Range("F" & i) '"Cuerpo del mensaje"
'
For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
archivo = Cells(i, j)
If archivo <> "" Then dam.Attachments.Add archivo
Next
'
logo = "FIRMACORREO.png"
dam.Attachments.Add ruta & logo
dam.htmlbody = _
"<HTML> " & _
"<BODY>" & _
"<P>" & Cuerpo & "</P>" & _
"<img src=cid:" & logo & " height=151 width=756>" & _
"<br>" & "<b>" & [I2] & "</b>" & _
"<br>" & [J2] & _
"<br>" & [K2] & _
"</BODY> " & _
"</HTML>" & dam.htmlbody
'dam.Display 'El correo se muestra
dam.send 'El correo se envía en automático
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End SubPero me encuentro con los siguientes detalles:
-La firma me aparece antes del cuerpo del correo.
-Firma
-Cuerpo
-Si agrego 2 archivos o más, entre la firma y el cuerpo aparece la ruta para llegar a los archivos adjuntos ej. "C: \Users \Usuario1 \Desktop \TRABAJO \COTIZACIONES \Cotizacion1 .pdf"
-Firma
-Ruta
-Cuerpo
¿Es posible hacer que la firma aparezca después del cuerpo del correo y que no se muestren las rutas de los archivos adjuntos?
