Access - Imagen en el cuerpo del mensaje por mail

 
Vista:
sin imagen de perfil

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.



asi_No





Me tuvisese que aparece asi, esto lo hice a mano para que se den cuenta.


asi


Espero puedan darme una mano.
Gracias y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder