Christian Aicher schrieb:
> Hallo,
>
> möchte gerne aus einem Writerdokument ein Email erzeugen.
> [.....]
> Kann OpenOffice auch direkt ohne Mailclient Mails versenden?
>
> Gruß
> Christian
>
Hallo,
jetzt habe ich einiges versucht, und da ist das Ergebnis.
Sub Mail
Dim MyObject as Object
Dim MailMerge as Object
MailMerge = createUnoService("com.sun.star.text.MailMerge")
with MailMerge
.DataSourceName = "Meine Datenquelle" 'Verbindung!
.CommandType = 0 '0=Tabelle siehe IDL
.Command = "Mein Tabellenname"
.DocumentURL = "file:///Mein Pfad/Meine Datei"
.OutputType = 3 'Steht für Serienmail
.Subject = "Mein Betreff"
.AddressFromColumn = "Meine Spalte"
end with
MailMerge.execute(MyObject)
End Sub
Die Email Einstellungen in Optionen/Writer/Serienmail müssen gemacht
sein. Bei mir funktioniert es nur wenn ich einen lokalen Mailserver
benutzte, direkt zum smtp.web.de hat es nicht geklappt. Das geht nur
vom lokalen Mailserver aus. Wenn ich es ohne Makro als Serienmail
mache, geht es auch über den web.de Server.
Wenn jemand mehr Rat weiß, habe ich ein offenes Ohr.
System: WinXP, OOO 2.0.2, Hamster 2.1 (www.tglsoft.de)
Gruß Christian
--
Lieblings Thread = Mecker-Mail bzgl. OOo -
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
