serienbrief mit makro

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: serienbrief mit makro

[SOLVED] serienbrief mit makro

von kannenklaus » Sa, 20.12.2008 08:31

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

serienbrief mit makro

von kannenklaus » So, 14.12.2008 17:40

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

Nach oben