En envío de correo desde Excel como se puede añadir un logo al final del cuerpo
Tengo una macro en Excel para envío de correos, pero necesito al final del mensaje que va en el cuerpo del correo poner una imagen jpg de 300 x 200
¿Cómo se puede hacer esto?
1 Respuesta
[Hola
Dale una leída a la respuesta que doy aquí:
Abraham, muchas gracias por tu respuesta
Mira estoy con la macro de enviar correos con elaboración de pdf de la hoja Excel de Dante
Solamente a esa macro quiero añadirle una imagen al final del body, que es un logo
Y es que a esa macro intente añadirle yo el código de la imagen. Me funciona a medias porque me destroza totalmente el texto que tengo bien justificado,, bien alineado y mete líneas en blanco en medio y la imagen queda a continuación de la ultima linea, no debajo
El error es mío porque he mezclado partes de otra macro y obviamente no son compatibles
Muchas gracias
Saludos
Amigo Abraham,
Perdona que te envíe, esta macro, pero tengo una necesidad de ponerla al 100% y me esta dando problemas en unas filas que deben ir en blanco.
Esas filas en blanco son:
Cells(6, 5) y Cells(12, 5)
Pero sin embargo esas filas se llenan de las siguientes
Estoy seguro que debe ser por el código que hay en ellas que no esta actuando
Te dejo la macro, para que la revises y me ayudes con esas dos cells y las sugerencias que me puedas aportar. Las celdas (cells(x, x) son textos de mensaje de correo y cells(2, 2) es el email del destinatario
Sub Enviar_correo_Outlook_con_imagen()
Set otlApp = CreateObject("Outlook.Application")
Set otlMail = otlApp.CreateItem(olMailItem)
With otlMail
.To = Cells(2, 2)
.Subject = "Imagen al final del body del correo Outlook"
.HTMLBody = "<html><body style='font: italic 14px Arial, Times new Roman, sans-serif'>" & _
Cells(5, 5) & "<p><u><b></u></b></p>
" & _
Cells(6, 5) & "<p><u><b></u></b></p>
" & _
Cells(7, 5) & "<p><u><b></u></b></p>
" & _
Cells(8, 5) & "<p><u><b></u></b></p>
" & _
Cells(9, 5) & "<p><u><b></u></b></p>
" & _
Cells(10, 5) & "<p><u><b></u></b></p>
" & _
Cells(11, 5) & "<p><u><b></u></b></p>
" & _
Cells(12, 5) & "<p><u><b></u></b></p>
" & _
Cells(13, 5) & "<p><u><b></u></b></p>
" & _
Cells(14, 5) & "<p><u><b></u></b></p>
" & _
"<img src='D:\IMAGEN.JPG' 'width='300' height='65'>'" & _
"</body></html>"
.send
End With
End Sub
Muchas gracias
Saludos
Jose
[Hola
El dilema es que no es cosa de solo copiar y pegar lo que vas viendo en internet, si quieres usar VBA necesariamente tienes que entender. Sugiero re-leer la alternativa que doy en el enlace enviado, y si quieres seguir usando HTML, pues debes saber algo de dicho lenguaje. Eso sí, te puede ir adelantando que te falta adjuntar el archivo antes de intentar insertarlo en el cuerpo del mensaje y segundo, primero intenta hacer todo en Dreamweaver o en el Bloc de Notas con puro HTML y recién después de eso lo pasas al VBA y al HTMLBody.
