Imprimir página | Cerrar ventana

envío correos outlook texto

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=87087
Fecha de impresión: 26/Marzo/2026 a las 15:54


Tema: envío correos outlook texto
Publicado por: Sherezade81
Asunto: envío correos outlook texto
Fecha de publicación: 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


Respuestas:
Publicado por: Sherezade81
Fecha de publicación: 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>"

Publicado por: Mihura
Fecha de publicación: 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.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Imprimir página | Cerrar ventana