Imagen en el cuerpo del mensaje por mail
Publicado por andres (42 intervenciones) el 27/04/2023 14:08:22
Buenas, como están?,
Paso a comentar el problema que tengo.
Tengo un formulario con un botón que manda mail, el inconveniente que se me presenta que no me lo pone como encabezado a la imagen
Dim correo As String
Dim asunto As String
Dim mensaje As String
Dim rutaLogo As String
' Asignación de valores a las variables
correo = Me.Txtcorreo.Value
asunto = "ASUNTO N.º " & Me.Curs_N_Acta & " Proyecto " & Me.Curs_N_Proy & " - " & vAnyoNow & " " & Vmes
mensaje = "ENCABEZADO:" & vbCrLf & vbCrLf
mensaje = mensaje & Me.benef_papel & vbCrLf & vbCrLf
mensaje = mensaje & "CUERPO DEL MENSAJE. " & Me.Curs_N_Acta & " Proyecto N.º " & Me.Curs_N_Proy & "." & vbCrLf & vbCrLf
mensaje = mensaje & " " & vbCrLf & vbCrLf
mensaje = mensaje & "CUERPO DEL MENSAJE." & vbCrLf & vbCrLf
mensaje = mensaje & "Sin otro particular, saludamos a Uds. muy atte."
' Obtener la ruta del archivo de logo
rutaLogo = "C:\logo.jpg"
' Crear el objeto de la aplicación de correo electrónico
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
' Crear un objeto de mensaje
Dim objMail As Object
Set objMail = objOutlook.CreateItem(0)
' Agregar los detalles del mensaje
With objMail
.To = correo
.Subject = asunto
.HTMLBody = "<img src='" & rutaLogo & "'><br><br>" & mensaje
.Attachments.Add rutaLogo
.Display ' cambiar a .Send para enviar automáticamente
End With
' Liberar recursos
Set objMail = Nothing
Set objOutlook = Nothing
Aca me aparece el la imagen en el encabezado del mensaje pero el problema que no me respeta los salto de lineas.
Me tuvisese que aparece asi, esto lo hice a mano para que se den cuenta.
Espero puedan darme una mano.
Gracias y saludos.
Paso a comentar el problema que tengo.
Tengo un formulario con un botón que manda mail, el inconveniente que se me presenta que no me lo pone como encabezado a la imagen
Dim correo As String
Dim asunto As String
Dim mensaje As String
Dim rutaLogo As String
' Asignación de valores a las variables
correo = Me.Txtcorreo.Value
asunto = "ASUNTO N.º " & Me.Curs_N_Acta & " Proyecto " & Me.Curs_N_Proy & " - " & vAnyoNow & " " & Vmes
mensaje = "ENCABEZADO:" & vbCrLf & vbCrLf
mensaje = mensaje & Me.benef_papel & vbCrLf & vbCrLf
mensaje = mensaje & "CUERPO DEL MENSAJE. " & Me.Curs_N_Acta & " Proyecto N.º " & Me.Curs_N_Proy & "." & vbCrLf & vbCrLf
mensaje = mensaje & " " & vbCrLf & vbCrLf
mensaje = mensaje & "CUERPO DEL MENSAJE." & vbCrLf & vbCrLf
mensaje = mensaje & "Sin otro particular, saludamos a Uds. muy atte."
' Obtener la ruta del archivo de logo
rutaLogo = "C:\logo.jpg"
' Crear el objeto de la aplicación de correo electrónico
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
' Crear un objeto de mensaje
Dim objMail As Object
Set objMail = objOutlook.CreateItem(0)
' Agregar los detalles del mensaje
With objMail
.To = correo
.Subject = asunto
.HTMLBody = "<img src='" & rutaLogo & "'><br><br>" & mensaje
.Attachments.Add rutaLogo
.Display ' cambiar a .Send para enviar automáticamente
End With
' Liberar recursos
Set objMail = Nothing
Set objOutlook = Nothing
Aca me aparece el la imagen en el encabezado del mensaje pero el problema que no me respeta los salto de lineas.
Me tuvisese que aparece asi, esto lo hice a mano para que se den cuenta.
Espero puedan darme una mano.
Gracias y saludos.
Valora esta pregunta
0