Good Morning,
I am using the example give from
Sending Email from Base with multiple attachments - English - Ask LibreOffice
Here is my code:
Sub SendEmail
Dim eMailer as Object
Dim eMailClient as Object
Dim eMessage as Object
Dim sOnderwerp as String
Dim sBody as String
eMailer = createUnoService ("com.sun.star.system.SimpleSystemMail")
eMailClient = eMailer.querySimpleMailClient()
eMessage = eMailClient.createSimpleMailMessage()
sOnderwerp = "please confirm receipt"
sBody = "this is a test"
eMessage.Body = sBody
eMessage.SetRecipient("workmail")
eMessage.setSubject(sOnderwerp)
eMessage.setAttachement(Array("K:\temp_pathway\TABLE_EXPORT.ods"))
eMailClient.sendSimpleMailMessage(eMessage, com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE)
End Sub
Here is the prompt.
Microsoft Outlook
A program is trying to send an e-mail message on
your behalf. If this is unexpected, click Deny and verify
your antivirus software is up-to-date.
For more information about e-mail safety and how
you might be able to avoid getting this warning,
Is there a way to avoid this prompt?