I want the emails to have the sender address set to that of my club account.
This is my code:
Code: Select all
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.setRecipient(strRecipient)
objMessage.setOriginator(strSender)
objMessage.setSubject(strSubject)
objMessage.Body = strMessage
subInspect(objMessage)
objClient.sendSimpleMailMessage(objMessage, 2)
End Sub
Is this known behaviour, or am I doing something wrong? "8-[