[Resuelto] Mandar correo electrónico

[Jose Manuel]

Hola!

He estado mirando la forma de mandar un correo electrónico usando Windows y Thuderbird, en:

http://www.oooforum.org/forum/viewtopic.phtml?t=2732

He conseguido hacer una macro que manda un correo electrónico pasando el documento odt a pdf y mandandolo como adjunto.
He usado com.sun.star.system.SimpleSystemMail

Ahora bien, no consigo hacer un cuerpo de texto, es decir "Body" al correo.
¿Alguien sabe como hacerlo?

[Jose Manuel]

Bueno, ya lo hemos conseguido.

En la variable:

sBody = "http://www.google.es" & "%0A"

ponemos %0A , que es el código en hexadecimal del salto de linea

El código es el siguiente:

Código: Seleccionar todo

Sub declareMailAttributes
   sRecipient = "correo@correo.es"
   sSubject = "Esto es una prueba"
   sBody = "http://www.google.es"
   'Si ponemos "%0A" es equivalente a salto de línea.
   exampleSendEmailWithBody(sRecipient, sSubject, sBody)
End Sub

Sub exampleSendEmailWithBody(sRecipient As String, sSubject As String, sBody As String)
   email_dispatch_url = "mailto:" & sRecipient & "?subject=" & sSubject & "&Body=" & sBody
   Dim noargs()

   dispatcher = createUnoService( "com.sun.star.frame.DispatchHelper")
   dispatcher.executeDispatch( StarDesktop,email_dispatch_url, "", 0, noargs() )
End Sub