I want the emails to have the sender address set to that of my club account.
This is my code:
- Code: Select all Expand viewCollapse view
Sub subSendEmail(strRecipient As String, strSender As String, strSubject As String, strMessage As String)
Dim objClient As Object
Dim objMessage As Object
objClient = createUnoService("com.sun.star.system.SimpleCommandMail")
objMessage = objClient.createSimpleMailMessage()
objMessage.Body = strMessage
subInspect uses MRI and I can see that the Originator is correctly set to the club email address. When I let the code continue, the resulting email created by Evolution instead has my personal account as the sender.
Is this known behaviour, or am I doing something wrong? "8-[