envío correos outlook texto

   Buenas tardes, Me enviaba correctamente los mensajes pero añadi el incluir la firma. Los sigue enviando pero el texto del mensaje me sale corrido, sin respetar los espacios y lineas que tengo definidas. ¿saben a qué puede ser debido?

 Mensaje = "    Estimado Cliente" & vbCrLf & _
             vbCrLf & _
            "    Adjunto le enviamos la factura correspondiente al mes de  " & _
            StrConv(Format(!FECHAFACTURA, "mmmm"), vbUpperCase) & "." & vbCrLf & _
            "    Quedamos a su entera disposición para resolver cualquier duda sobre la misma." & vbCrLf & _
            "    Sin otro particular, aprovechamos para enviarles un cordial saludo," & vbCrLf & _
              vbCrLf & _
            "    Bea" & vbCrLf & _
             vbCrLf & _
             vbCrLf & _
             vbCrLf & ""

   ------

  'DoCmd.SendObject acSendReport, Me.albaran, acFormatPDF, Me.cboPara, Me.txtEmailCc, Me.txtEmailCcO, Me.txtAsunto, Me.txtMensaje
'Es necesario añadir la refeerncia Microsoft Outlook Library (herramientas/referencias)
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim oInspector As Outlook.Inspector
Dim strfirma As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Set oInspector = OutMail.GetInspector
With OutMail

.To = CuentaCorreo

.Subject = Nz(Asunto, "")

strfirma = .HTMLBody

.HTMLBody = Nz(Mensaje, "") & strfirma

Gracias
Saludos

Bea

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Sherezade81 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 14/Septiembre/2011 Localización: España Estado: Sin conexión Puntos: 124	Opciones de entrada Responder Cita Sherezade81 Informar de mensaje Gracias(0) Cita Respuesta Tema: envío correos outlook texto Enviado: 17/Agosto/2025 a las 17:47
	Buenas tardes, Me enviaba correctamente los mensajes pero añadi el incluir la firma. Los sigue enviando pero el texto del mensaje me sale corrido, sin respetar los espacios y lineas que tengo definidas. ¿saben a qué puede ser debido? Mensaje = " Estimado Cliente" & vbCrLf & _ vbCrLf & _ " Adjunto le enviamos la factura correspondiente al mes de " & _ StrConv(Format(!FECHAFACTURA, "mmmm"), vbUpperCase) & "." & vbCrLf & _ " Quedamos a su entera disposición para resolver cualquier duda sobre la misma." & vbCrLf & _ " Sin otro particular, aprovechamos para enviarles un cordial saludo," & vbCrLf & _ vbCrLf & _ " Bea" & vbCrLf & _ vbCrLf & _ vbCrLf & _ vbCrLf & "" ------ 'DoCmd.SendObject acSendReport, Me.albaran, acFormatPDF, Me.cboPara, Me.txtEmailCc, Me.txtEmailCcO, Me.txtAsunto, Me.txtMensaje 'Es necesario añadir la refeerncia Microsoft Outlook Library (herramientas/referencias) Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Dim oInspector As Outlook.Inspector Dim strfirma As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) Set oInspector = OutMail.GetInspector With OutMail .To = CuentaCorreo .Subject = Nz(Asunto, "") strfirma = .HTMLBody .HTMLBody = Nz(Mensaje, "") & strfirma Gracias Saludos Bea

Sherezade81 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 14/Septiembre/2011 Localización: España Estado: Sin conexión Puntos: 124	Opciones de entrada Responder Cita Sherezade81 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 17/Agosto/2025 a las 18:35
	Buenas! resuelto: Mensaje = "<html><body>" & _ "Estimado Cliente,<br>" & _ "Adjunto le enviamos la factura correspondiente al mes de " & _ StrConv(Format(!FECHAFACTURA, "mmmm"), vbUpperCase) & "<br>" & _ "Quedamos a su entera disposición para resolver cualquier duda sobre la misma.<br>" & _ "Sin otro particular, aprovechamos para enviarles un cordial saludo,<br>" & _ "<br>" & _ "Bea" & _ "</body></html>"

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 17/Agosto/2025 a las 19:17
	Esa es una manera. Otra hubiera sido usar el comando HtmlEncode que haría los cambios de un texto plano a uno con formato html. ¿Cerramos?
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es