Hi there,
I'm trying to do a mailmerge with SQL query, I have all my record (32 records
equals 32 pages) but my datafield are empty ?
Is there anything else to do than :
myMailMerge.CommandType = com.sun.star.sdb.CommandType.COMMAND
myMailMerge.Command = "SELECT * FROM biblio"
Here is the source code using the bibliography db :
Const PathMailMerge = "c:\temp"
Sub TestMailMerge
Dim myMailMerge As Object
'Service myMailMerge
myMailMerge = CreateUnoService("com.sun.star.text.MailMerge")
'DataSourceName
myMailMerge.DataSourceName = "Bibliography"
'Source
myMailMerge.DocumentURL = convertToURL(thisComponent.URL)
'Mailmerge options
'OK
'myMailMerge.CommandType = com.sun.star.sdb.CommandType.TABLE
'myMailMerge.Command = "biblio"
'KO with SQL query
myMailMerge.CommandType = com.sun.star.sdb.CommandType.COMMAND
myMailMerge.Command = "SELECT * FROM biblio"
'Save as single file
myMailMerge.SaveAsSingleFile = True
'By file
myMailMerge.OutputType = com.sun.star.text.MailMergeType.FILE
'PDF output
myMailMerge.SaveFilter = "writer_pdf_export"
'ODT output
'myMailMerge.SaveFilter = "writer8"
'output path
myMailMerge.OutputUrl = ConvertToURL(PathMailMerge)
'Execute mailmerge
monPublipostage.execute(Array())
monPublipostage.dispose()
MsgBox "Result is in " + PathMailMerge
End Sub
Tested on OOo 2.3.1.
Some link about the subject :
http://api.openoffice.org/servlets/ReadMsg?list=dev&msgNo=9168
http://api.openoffice.org/servlets/ReadMsg?msgId=858917&listName=dev
Thank you for your help, best regards.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
