I'd tried to send a email with e-mail adress, subject and body in calc macro, but it wouldn't work in AndrOpen, but in OpenOffice on win10 with Thunderbird
Code: Select all
eMailAddress = "xx@xxxx.dk"
eSubject = "TEST"
eMailer = createUnoService("com.sun.star.system.SystemMailProvider")
eMailClient = eMailer.queryMailClient()
eMessage = eMailClient.createMailMessage()
eMessage.Recipient = eMailAddress
eMessage.Subject = eSubject
eMessage.Body = "Message"
AttachmentURL = convertToUrl("file:///storage/emulated/0/FOLDER/PDF/") & Filename & restid & ".pdf"
eMessage.Attachement = array(AttachmentURL)
eMailClient.sendMailMessage ( eMessage,0 )' Yes button pressed
'eMailClient.sendMailMessage ( eMessage, com.sun.star.system.MailClientFlags.NO_USER_INTERFACE ) (tried this as well)
Else
' No button pressed
End IF