Seite 1 von 1

SimpleMail in LibreOffice

Verfasst: Mi, 31.08.2011 15:49
von Steffan
Hallo zusammen,

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

Re: SimpleMail in LibreOffice

Verfasst: Mo, 05.09.2011 14:22
von komma4