Probleme mit MaiMerge

[Heinz Bär]

Guten Tag

Ich habe Probleme mit MailMerge. Mit OOo 2.3 (Kubuntu 7.10) funktioniert der MailMerge mit untenstehenden Code:

Code: Alles auswählen

MailMerge = createunoservice("com.sun.star.text.MailMerge")
MailMerge.DataSourceName="RV_Adressen"
MailMerge.DocumentURL=url_vorlage
MailMerge.CommandType=1
MailMerge.Command="Abfrage_Mitglieder_Neu"
MailMerge.OutputType=Print_auf   	 ' 1 = Drucker,  2 = Datei
if Print_auf = 2 then
	MailMerge.OutputUrl=url_druck
	MailMerge.FileNameFromColumn=False
	MailMerge.Filenameprefix="zz_sb_willkomm"
	MailMerge.OutputType=com.sun.star.text.MailMergeType.FILE
	MailMerge.SaveAsSingleFile=True
end if
MailMerge.execute(Array())

Lasse ich dasselbe mit OOo 2.4 oder OOo 3.0 laufen, erscheint bei MailMerge.execute(Array()) der Fehler:
Es ist eine Exception aufgetreten
Type: com.sun.star.sdbc.SQLException
Message:

Ich ersetzte nun MailMerge.execute(Array()) durch
Dim MyProps as Object
MailMerge.execute(MyProps())
Jetzt erscheint der Fehler:
Es ist eine Exception aufgetreten
Type: com.sun.star.lanf.IllegalArgumentException
Message: cannot coerce argument type during corereflection call!

Was läuft da falsch? Wie bringe ich MailMerge unter OOo 2.4 und 3.0 zum laufen? Kann mir jemand helfen?

Alles suchen in Foren usw. brachte nichts brauchbares.

Gruss
Heinz

Code: Alles auswählen

[kannenklaus]

hallo heinz,

Es ist eine Exception aufgetreten
Type: com.sun.star.sdbc.SQLException
Message:

versuch's einfach mal anstatt mit 1 bei CommandType

Code: Alles auswählen

MailMerge.CommandType=com.sun.star.sdb.CommandType.QUERY

grüße

klaus

[Heinz Bär]

Hallo kannenklaus

Schade, es hat leider nichts bewirkt. Der Fehler erscheint immer noch.

Hat irgend jemand MailMerge unter 3.0 gemacht und kann mir den Code zur Verfügung stellen?

Gruss
Heinz

[Heinz Bär]

Hallo Dirk

Auch das habe ich nochmals probiert; es kommt auch dann immer noch der Fehler.

Gruss
Heinz

[kannenklaus]

hallo heinz,

Hat irgend jemand MailMerge unter 3.0 gemacht und kann mir den Code zur Verfügung stellen?

dieser code-schnipsel funktioniert unter 3.0 windows xp sp3 und ubuntu 8.04:

Code: Alles auswählen

'--Serienbrief erstellen
qry1="qry1_MCEF_Massn_gruppiert"
MailMerge = createunoservice("com.sun.star.text.MailMerge")
With MailMerge
	.DataSourceName=strDBName 'deine Datenbank, -quelle
	.DocumentURL=ConvertToUrl(SBQuellPfad+SB1Name)'Serienbriefmuster
	.CommandType=com.sun.star.sdb.CommandType.QUERY
	.Command=qry1
	.OutputType=com.sun.star.text.MailMergeType.FILE
	.SaveAsSingleFile=True
	.OutputUrl=ConvertToUrl(SBZielPfad)'dein Pfad
	.execute(Array())
End with

grüsse klaus

[Heinz Bär]

Hallo kannenklaus

Dank Deiner Code-Auflistung funktioniert es jetzt einwandfrei.

Vielen Dank für Deine Hilfe.

Grüsse
Heinz