Leider bekomme ich die Adaption an meine BeispielDB nicht zum laufen.
Hier der Code
Code: Alles auswählen
SUB Serienbriefdruck
DIM oMailMerge AS OBJECT
DIM aProps() as object
oMailMerge = createunoservice("com.sun.star.text.MailMerge")
oMailMerge.DataSourceName = "testdb"
oMailMerge.DocumentURL = ConvertToUrl("/home/juergen/Dokumente/Mysql/Vorlagen/Test.odt")
oMailMerge.CommandType = 0
oMailMerge.Command = "Member"
oMailMerge.OutputType = 2
oMailMerge.OutputUrl = ConvertToUrl("/home/juergen/Dokumente/Mysql/Listen/")
oMailMerge.FileNameFromColumn = True
oMailMerge.Filenameprefix = "Test07"
oMailMerge.execute( aProps())
END SUB
Der Makro bricht beim oMailMerge.execute ab mit mail merge failed, nor furtherinformation aviable. ich hätte erwartet, dass im Verzeichnis Listen eine Datei Test07 generiert wird.
Danke für Hilfe
Jürgen
Meine Umgebung:
Linux Mintb19.1 64-bit Cinamon
LibreOffice:
Version: 6.2.4.2
Build-ID: 2412653d852ce75f65fbfa83fb7e7b669a126d64
CPU-Threads: 4; BS: Linux 4.15; UI-Render: Standard; VCL: gtk3;
Gebietsschema: de-DE (de_DE.UTF-8); UI-Sprache: de-DE
Calc: threaded