Seite 1 von 1
SimpleMail funtioniert nicht in LibreOffice
Verfasst: Mo 5. Sep 2011, 13:59
von 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
Re: SimpleMail funtioniert nicht in LibreOffice
Verfasst: Mo 5. Sep 2011, 14:22
von komma4
Steffan hat geschrieben: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!
Steffan hat geschrieben: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
Re: SimpleMail funtioniert nicht in LibreOffice
Verfasst: Di 20. Sep 2011, 13:15
von 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
Re: SimpleMail funtioniert nicht in LibreOffice
Verfasst: Di 20. Sep 2011, 17:14
von komma4
FriedolinH hat geschrieben:Aber gibt es dazu auch noch eine Methode, um den Mail-Text an das Mail-Programm zu übergeben?
Nein.
Re: SimpleMail funtioniert nicht in LibreOffice
Verfasst: Do 22. Sep 2011, 23:04
von 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?
Re: SimpleMail funtioniert nicht in LibreOffice
Verfasst: Do 22. Sep 2011, 23:14
von 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).
Re: SimpleMail funtioniert nicht in LibreOffice
Verfasst: Fr 23. Sep 2011, 05:10
von komma4
hr.hartwig hat geschrieben: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
Re: SimpleMail funtioniert nicht in LibreOffice
Verfasst: Fr 23. Sep 2011, 08:47
von hr.hartwig
Moin!
komma4 hat geschrieben:
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.
komma4 hat geschrieben:
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