Re: als Excel Tabelle versenden
Verfasst: Sa, 09.12.2017 10:31
z.b. ginge:
siehe:
https://forum.openoffice.org/en/forum/v ... ailMessage
Gruß
Stephan
Code: Alles auswählen
Sub Mailer()
' Testen, ob Windows
If GetGuiType() = 1 Then
objMail = createUnoService("com.sun.star.system.SimpleSystemMail")
' Sonst Liux/Mac
Else
objMail = createUnoService("com.sun.star.system.SimpleCommandMail")
End If
' Zugriff auf Mail-Client-Programm
objMailClient = objMail.querySimpleMailClient()
' Message-Objekt erstellen
objMessage = objMailClient.createSimpleMailMessage()
' Nachrichtenempfänger setzen
objMessage.setRecipient("abc@web.de")
' Betreff setzen
objMessage.setSubject("nur ein Test")
' Aktuelles Dokument als Anhang
Dim mAttachment(0)
mAttachment(0) = ConvertToURL("D:\xyz.xls")
objMessage.setAttachement(mAttachment())
' MailClient öffnen
objMailClient.sendSimpleMailMessage(objMessage, 0)
End Sub
https://forum.openoffice.org/en/forum/v ... ailMessage
Gruß
Stephan