calc / email mit wechselnden Absendern

[eiswiese]

Hallo,
ich versuche von calc aus, eine email zu verschicken, das klappt auch.
Da ich jedoch die Mails mit wechselnden Absendern verschicken möchte, habe ich´s mit

Code: Alles auswählen

 oMessage.setOriginator("absender1@abc.de") 

versucht. Das klappt leider nicht.
Hier der komplette Code:

Code: Alles auswählen

Sub email_senden
	oMailer = createUnoService ("com.sun.star.system.SimpleSystemMail")
	oMailClient = oMailer.QuerySimpleMailClient()
	oMessage = oMailClient.createSimpleMailMessage()
	oMessage.setOriginator("absender1@abc.de")
	oMessage.setRecipient("empfaenger@test.de")
	oMessage.setSubject("betroffen")
	oMessage.Body = "Hallo"
	oMailClient.sendSimpleMailMessage (oMessage, 2) 
End Sub

Der MailClient wird geöffnet, die entsprechenden Daten eingefügt, außer dem Absender (es wird der "Standard-Absender" verwendet).
Wo liegt mein Fehler, muss ich in LO suchen, oder läuft da im MailClient was falsch?
Getestet mit LO 5.1.6.2, Thunderbird 52.5.0 unter win7

Gruß eiswiese