openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Heiko Fischer <heiko.fisc...@aladin-gmbh.de>
Subject [AOO 4.0] Basic SimpleCommandMail unter Linux geht nicht mehr
Date Thu, 25 Jul 2013 20:08:06 GMT
Hallo Liste,

nutzt jemand unter Linux den Uno-Service
"com.sun.star.system.SimpleCommandMail" ?

Bei mir bringt der Aufruf mit Umstieg auf AOO 4.0 immer "Objektvariable
nicht belegt".
Unter Windows habe ich noch nicht getestet.


hier noch der Code:

Sub ConvertToPdfAndSendMail()
    Dim sURL as String,oPfad as Object
    Dim vStatus as Variant, oMailer as Object,oMailClient as
Object,oMessage as Object
    Dim vAttachement(0)
    oPfad = CreateUnoService("com.sun.star.util.PathSettings")

'    sURL=ConvertToURL(sStandardPfad & "/mail/" & sDocumentID & ".pdf")
    sURL=ConvertToURL(oPfad.temp)&"/"& sDocumentID & ".pdf"
   
oDoc.storeToURL(sURL,Array(MakePropertyValue("FilterName","writer_pdf_Export")))
    vAttachement(0) = sURL

    if GetGUIType = 1 then
        oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
    elseif GetGUIType = 4 then
        oMailer = createUnoService(
"com.sun.star.system.SimpleCommandMail" )
    End if
   
    oMailClient = oMailer.querySimpleMailClient()
    oMessage = oMailClient.createSimpleMailMessage()
   
    oMessage.setRecipient(sEMail_Empfaenger)
    oMessage.setSubject(sDocument_Typ &" "&_
   
fsInTrim(fsReplace(fsReplace(fsReplace(fsReplace(sDocument_Name,Chr(34)," "),Chr(10),"
- "),Chr(13)," - "),","," ")))
    oMessage.setAttachement(vAttachement())

    oMailClient.sendSimpleMailMessage( oMessage, 0 )
'    kill(sURL)
End Sub



-- 
Mit freundlichen Grüßen

Heiko Fischer


---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message