Hallo F.H.,
habe folgenden Code erfolgreich unter AOO 4.1.2 gestestet.
Du versuchst folgendes:
Code: Alles auswählen
MailAgent = CreateUnoService("com.sun.star.system.SimpleSystemMail")
Hier liegt das Problem, da der Sevice
"SimpleSystemMail" in AOO und in früheren LO-Versionen nicht existiert.
Deshalb mußt Du wie in meinem Code zusehen ist der Service
"SystemMailProvider" geladen werden.
Woher ich das weiß?
Habe ich in der bei mir installierten SDK nachgesehen, ob unter diesem Pfad "com.sun.star.system." der Service
"SimpleSystemMail" existiert. Dort fand ich unter der SDK für AOO jedoch nur den Service
"SystemMailProvider".
Habe diesen ausprobiert, was dann funktioniert, allerdings mussten jetzt die Eigenschaften und Methoden auf diesen Service angepasst werden.
Dazu benutzte ich die IDE-Extension
"MRI", damit kann mal den Code (Eigenschaften/ Methoden/Services/Interfaces) untersuchen.
Daraus folgt auch die weitere Anpassung des Codes, da ich auch die Eigenschaften und Methoden dem geladenen Service angepasst habe.
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
MailAgent = CreateUnoService("com.sun.star.system.SystemMailProvider")
' mri MailAgent
MailClient = MailAgent.queryMailClient()
MailMessage = MailClient.createMailMessage()
MailMessage.Recipient("aaa@bbb.de")
MailMessage.Subject("Der Betreff")
MailMessage.Body = "Hier der Text"
MailClient.sendMailMessage(MailMessage, 0)
End Sub
Was noch fehlt, ist der Service
"SimpleCommandMail". Hierfür habe ich enstprechend
Deiner Case-Anweisung noch keinen Service gefunden.
Ggf. schaust Du mal in der Doku nach unter dem Pfad:
"com\sun\star\mail"
http://www.openoffice.org/api/docs/comm ... le-ix.html
MRI kannst Du Dir hier herunterladen und installieren. In der Dokumentation steht wie die Extension geladen werden kann.
http://extensions.services.openoffice.o ... ction-tool
Gruß
Craig