SimpleMail funtioniert nicht in LibreOffice

[Steffan]

Hallo zusammen,
ich habe diese Frage schon mal im OpenoOffice-Forum gestellt, aber da fühlt sich niemand zuständig, ist hier vielleicht auch besser aufgehoben.

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

[komma4]

ich habe diese Frage schon mal im OpenoOffice-Forum gestellt, aber da fühlt sich niemand zuständig

Ja, hast Du hier: http://de.openoffice.info/viewtopic.php?f=18&t=50041

"Zuständig" ist weder dort noch hier einer: überall alles "nur" freiwillige Helfer!

Fehlermeldung: senddoc.exe hat ein Problem festgestellt ....

Damit hast Du prinzipiell auch geschrieben, dass Du (irgendein) WINDOWS verwendest...


Ich kann Dir nur antworten, dass es unter LINUX mit createUnoService("com.sun.star.system.SimpleCommandMail") fuktioniert (LO 3.4.3)


Übernehme hier doch den Ratschlag von Bertold

Hast du schon auf der Mailingliste nachgefragt? Dort ist man gut informiert.
http://de.libreoffice.org/hilfe-kontakt/

[FriedolinH]

Hallo,

den Code habe ich ausprobiert. Funktioniert.
Aber gibt es dazu auch noch eine Methode, um den Mail-Text an das Mail-Programm zu übergeben?


Danke.

FriedolinH

[komma4]

Aber gibt es dazu auch noch eine Methode, um den Mail-Text an das Mail-Programm zu übergeben?

Nein.

[hr.hartwig]

Hallo!

Aber gibt es dazu auch noch eine Methode, um den Mail-Text an das Mail-Programm zu übergeben?

Nein

Ich bekomme einen Text in das Mailprogramm.
Zumindest mit dem Donnervogel.
Mit LO3.4 und OO3.3 unter WinXP und Linux getestet.
War das so gemeint?
Viele Grüße,
Hotti

P.S.: O.T.: Warum ist es nicht erlaubt, *.odt-Dateien hochzuladen?

[Bertold]

Warum ist es nicht erlaubt, *.odt-Dateien hochzuladen?

Das weiß nur der Forumsinhaber. Frage ihn.
Seine Kontaktadresse findest du im Impressum (im Fuß diese Seite).

[komma4]

Aber gibt es dazu auch noch eine Methode, um den Mail-Text an das Mail-Programm zu übergeben?

Nein

Ich bekomme einen Text in das Mailprogramm.
Zumindest mit dem Donnervogel.
Mit LO3.4 und OO3.3 unter WinXP und Linux getestet.
War das so gemeint?

Nein

Gesucht war eine Methode beim SimpleMail-Objekt.

Du nutzt einen direkten Aufruf des verwendeten Mailprogramms. Das ist was anderes.

Warum postest Du den Code nicht im Forum? Wozu einen Anhang?

Code: Alles auswählen

Sub Mail_Versand

' Thunderbird URL-ermitteln =======================================================================
	If GetGuiType() = 1 Then ' für viele Windosen viele Pfade
		If FileExists("C:\Program Files\Mozilla Thunderbird\thunderbird.exe") then
			EmailProg = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe" 'Win7(32)
		ElseIf FileExists("C:\Programme\Mozilla Thunderbird\thunderbird.exe") then
			EmailProg = "C:\Programme\Mozilla Thunderbird\thunderbird.exe" ' Win2000, WinXP
		Else
			EmailProg = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"' Win7(64)
		End If
	End If

	If GetGuiType() = 4 Then ' für Linux
		EmailProg = "/usr/bin/thunderbird"
	End If

	If Not FileExists(EmailProg) Then
		MsgBox "Thunderbird wurde nicht gefunden."
		Exit Sub
	End If

EmailAdr = "Max.mustermann@web.de"
EmailBetr = "Mein Emailbetreff"
Emailtxt = "Der Anfang meines langen Emailtextes:" + Chr(10) + Chr(10) + Chr(10) + "Das Ende meines langen Emailtextes."

Shell(EmailProg,1,"-compose to=" + EmailAdr + ",subject=" + EmailBetr + ",body=" + Emailtxt' + ",attachment=" + ConvertToURL(PDF_Datei))

End Sub

[hr.hartwig]

Moin!

Nein

Gesucht war eine Methode beim SimpleMail-Objekt.

Du nutzt einen direkten Aufruf des verwendeten Mailprogramms. Das ist was anderes.

Naja, das eigentliche Ziel ist ja, Text in das Emailprogramm zu bekommen.
Da es mit dem SimpleMail-Objekt nicht geht, wollte ich nur eine funktionierende Möglichkeit aufzeigen.

Welche Vorteile hat es, SimpleMail zu benutzen, gegenüber eines direkten Aufrufs des Emailprogramms?
Danke schon mal für die Aufklärung.

Warum postest Du den Code nicht im Forum? Wozu einen Anhang?

Hast ja Recht.
Ich wollte es dem Runterlader etwas einfacher machen.
Starten, klicken, staunen
Viele Grüße,
Hotti