🙏 Bitte helfen Sie uns das LibreOffice Forum zu erhalten. 🙏
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.

🍀 Wir hoffen auf Ihre Unterstützung - vielen Dank!🍀

❤️ DANKE >> << DANKE ❤️

>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Problem beim Druck von Serienbriefen aus per Makro mit ODB-Datenquelle

Alles zur Programmierung im LibreOffice.
Antworten
jh56
Beiträge: 23
Registriert: Fr 16. Mär 2018, 11:17

Problem beim Druck von Serienbriefen aus per Makro mit ODB-Datenquelle

Beitrag von jh56 » Fr 9. Aug 2019, 12:58

Hallo bei Herr Dannenhöfer (Starbasic /Openoffice.org), wie auch Bei Familie Großkopf fand ich ein Beispiel zur Automatisierung von Druckaufträgen (Serienbriefe) per Makro.
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
Die testdb ist angemeldet. der Serienbrief lässt sich per Drucktaste im Menü erfolgreich drucken.
Der Makro bricht beim oMailMerge.execute ab mit mail merge failed, nor furtherinformation aviable.
Serienbrief_mit_Datenquelle.png
Serienbrief_mit_Datenquelle.png (154.21 KiB) 1314 mal betrachtet
Aufruf_Serienbrief_nach Datei.png
Aufruf_Serienbrief_nach Datei.png (226.42 KiB) 1314 mal betrachtet
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

F3K Total
* LO-Experte *
Beiträge: 2501
Registriert: So 10. Apr 2011, 10:10

Re: Problem beim Druck von Serienbriefen aus per Makro mit ODB-Datenquelle

Beitrag von F3K Total » Fr 9. Aug 2019, 16:21

Hi,
kam mir irgendwie bekannt vor, habe geforscht und probiert, es liegt wohl am

Code: Alles auswählen

oMailMerge.FileNameFromColumn = True
oMailMerge.Filenameprefix = "Test07"
der Filenameprefix muss so heißen, wie die Spalte, aus der du den FileName holen willst, z.B. so:

Code: Alles auswählen

oMailMerge.FileNameFromColumn = True
oMailMerge.Filenameprefix = "NNAme"
Gruß R
Windows 11: AOO, LO Linux Mint: AOO, LO


An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:


Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.



Antworten