Man kann mit StarOffice/OpenOffice.org Dokumente als Anhang an ein e-Mail versenden.
Dies
erfolgt über einen Service der auf das in den Optionen hinterlegte Mailprogramm zugreift ( Extras -
Optionen - Gemeinsame Programme) com.sun.star.system.SimpleSystemMail.
Achtung: Bei mir funktioniert es mit Windows XP und Thunderbird/Outlook. Tests mit
Windows 98
und Outlook Express 6 und Outlook 2000 führen zum Totalabsturz von OO und SO. Wenn jemand
andere Erfahrungen hat bitte melden.
Dieser Service muß neu erzeugt werden. Danach steht ein Objekt für die eigentliche
Nachricht zur
Verfügung.
Bis OO 1.1.5
MailProgramm = MailProgrammSystem.querySimpleMailClient()
Ab OO 2.0
oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail"
)
MailProgramm = omailer.querySimpleMailClient()
NeueNachricht = MailProgramm.createSimpleMailMessage()
Diese neue Nachricht kann dann mit Inhalt gefüllt werden und abschließend versendet
werden.
Also an das aktive Mailprogramm übergeben werden. Die wichtigsten Inhalt sind der Empfänger,
das Subjekt, und einen Anhang. Anhänge werden als URL-Adresse in einem Array übergeben.
NeueNachricht = MailProgramm.createSimpleMailMessage()
NeueNachricht.setRecipient("empfaenger@domain.de")
NeueNachricht.setSubject( "thema des mails" )
Dim attachs(0)
attachs(0)="file:///c:/test.sxw"
NeueNachricht.setAttachement(attachs())
Anschließend kann man das Mail versenden.
Mailprogramm.sendSimpleMailMessage(Neuenachricht, 0 )