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 )
