ich habe eine selbst gestrickte Adress- und Projektverwaltung (mySQL-DB), die ich über die ich über eine Formular steuere und verwalte.
Jetzt wollte ich den Umstieg von OpenOffice 3.3 auf LibreOffice 3.4 wagen. Das ganze funktioniert nach ein paar Anpassungen auch ganz ordentlich, allerdings mit einer Ausnahme: Der Befehl SimpleMail funktioniert in LibreOffice offenbar nicht. Fehlermeldung: senddoc.exe hat ein Problem festgestellt ....
Zur Illustration ein kleines Test-Makro, dass unter OO 3.3 anstandslos funktioniert (Es öffnet sich das Verfassen-Fenster meines Mailprogramms mit den eingetragenen Empfängern und dem Betreff) und unter LibreOffice 3.4 die o.g. Fehlermeldung produziert.
Wäre schön, wenn jemand Rat wüsste.
Danke im Voraus,
Steffan
Code: Alles auswählen
sub SendMail_Test
dim sSendTo() as string
redim sSendTo(0)
dim sSendToCC() as string
GlobalScope.BasicLibraries.LoadLibrary("Standard")
'Zugriff auf SimpleMail
oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
oMailProg = oMailer.querySimpleMailClient()
oNewMsg = oMailProg.createSimpleMailMessage()
'Test-Empfänger
sSendTo(0)="irgendwer@xyz.de"
redim sSendToCC(1)
sSendToCC(0)="nochwer_1@xyz.de"
sSendToCC(1)="nochwer_2@xyz.de"
'Daten an SimpleMail übergeben
oNewMsg.setRecipient(sSendTo(0))
oNewMsg.setCCRecipient(sSendToCC)
sSubject = "Projekt: Test"
oNewMsg.setSubject(sSubject)
'an Mailprogramm übergeben
oMailprog.sendSimpleMailMessage(oNewMsg, 0 )
end sub