MailMerge

[TooniX]

Hallo!

ich will gern einen Serienbrief per Makro drucken lassen. Das hier hab ich von irgendwo abgeshcrieben:

Code: Alles auswählen

	MyMerge = createUnoService("com.sun.star.text.MailMerge")
	MyMerge.DataSourceName="test-db"
	MyMerge.DocumentURL=ConvertToURL("/home/toonix/work/test.odt")
	MyMerge.CommandType=0
	MyMerge.Command="Adressen"
	MyMerge.OutputType=2
	MyMerge.OutputUrl=ConvertToURL("/home/toonix/work/")
	MyMerge.FileNameFromColumn=False
	MyMerge.Filenameprefix="test-out-"

	Dim MyProps As Object 
	MyMerge.execute (MyProps())

es gibt mir einen Fehler aus: cannot coerce argument type during corereflection call

danach googlen hat nichts gebracht. Was ist daran faul?


TooniX

[pmoegenb]

Hallo TooniX,
unter viewtopic.php?t=207&highlight=mailmerge gibt es Code für Visual Basic.

Den Code habe ich für Delphi umgeschrieben und unter Delphi funktioniert er.

Also umschreiben für StarBasic.

[TooniX]

ja, das hab ich auch schon gefunden. Nur läuft auf meinem Betriebssystem nichts von MIcrosoft, also leider auch kein VB...
gibt es diesen verdammten Code nicht auch auf StarBasic? Ich bin mir sicher, es ist nur irgendeine dumme Syntaxt-Geschichte.

TooniX

[TooniX]

so, hier die Auflösung : statt

Code: Alles auswählen

Dim MyProps As Object
MyMerge.execute (MyProps()) 

muß es am Ende einfach heißen:

Code: Alles auswählen

MyMerge.execute (Array()) 

hoffe, es hilft irgendwann mal jemandem weiter

TooniX