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-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org