https://bugs.documentfoundation.org/show_bug.cgi?id=135628
--- Comment #4 from Zeke <[email protected]> ---
The screenshot was with LO 6.4.5
code:
sub send_email(filepath as String, eMailAdress as String, yourOrderno as
String)
Dim eSubject as String
Dim eMailer as Object
Dim eMailClient as Object
Dim eMessage as Object
eSubject = "Delivery note your order " & yourOrderno
eMailer = createUnoService("com.sun.star.system.SimpleCommandMail")
eMessage = eMailer.createSimpleMailMessage()
eMessage.Recipient = eMailAdress
eMessage.Subject=eSubject
eMessage.Body="Text1" & chr$(10) & "Text2" & chr$(10) & "Text3"
eMessage.Attachement=(Array(convertToUrl(filepath)))
eMailer.sendSimpleMailMessage ( eMessage, _
com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE )
End sub
--
You are receiving this mail because:
You are the assignee for the bug._______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
