serienbrief mit makro

[kannenklaus]

hallo zusammen,

ein serienbrief soll per makro automatisch erzeugt werden. mir ist noch nicht klar wie ich dem makro einen dateiname für die ausgabe übermittle. bei dateipfad ausgabe wird nur der pfad aktzeptiert. sobalb eine bereits vorhandene und überschreibbare datei z.b. LBP1.odt angegeben wird, kommt die fehlermeldung, dass es diesen pfad nicht gibt.

hat jemand ne idee?

ubunutu 8.04 und openoffice 3.0

Code: Alles auswählen

Sub SB1Starten
Dim strDBName as String, qry as String
Dim DateipfadSB1 as string 'Pfad Serienbriefvorlag
Dim DateipfadLBP1 as string 'Pfad Ausgabedokumnet
strDBName="pfa23"
DateipfadSB1="/home/lissiklaus/temp/SB1.odt" 
DateipfadLBP1="/home/lissiklaus/temp"
qry="Abfrage1"
MailMerge = createunoservice("com.sun.star.text.MailMerge")
MailMerge.DataSourceName=strDBName

MailMerge.DocumentURL=ConvertToUrl(DateipfadSB1)
MailMerge.OutputUrl=ConvertToUrl(DateipfadLBP1)
xray MailMerge
exit sub
MailMerge.CommandType=com.sun.star.sdb.CommandType.QUERY
MailMerge.Command=qry
MailMerge.OutputType=com.sun.star.text.MailMergeType.FILE
MailMerge.OutputUrl=ConvertToUrl(DateipfadLBP1)

Dim MyProps()
MailMerge.execute(MyProps())
End Sub

freue mich auf eine antwort.

grüße

klaus

[kannenklaus]

das geht zumindestens und bewirkt, dass alle datensätze in eine datei geschrieben werden:

Code: Alles auswählen

maileMerge.OutputType=com.sun.star.text.MailMergeType.FILE
maileMerge..SaveAsSingleFile=True