1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Sub Publipostage_UNFINISHED
'les variables
document = ThisComponent.CurrentController.Frame
'lancer le publipostage
M_mailing ("FICHIER_TEMOIN_TEXTE_POUR_PUBLIPOSTAGE", "DOSSIER_ENREGISTREMENT_FICHIER_A_IMPRIMER", "NOM_BASE_DE_DONNEE(pourLibreoffice", "NOM_REEL_BASE_DE_DONNEE")
End Sub
' , , Nom table dans OpenOffice(si doublon nom différent du reel), Nom reel dans les dossiers
sub M_mailing (PysModele as string, PubRepertoireCible as string, PubSource as string, PubNomTable as string)
Dim MonPublipostage as object, MyProps(), PysMod as object
Dim propFich(0) as New com.sun.star.beans.PropertyValue
'Service publipostage
MonPublipostage=createUnoService("com.sun.star.text.MailMerge")
With MonPublipostage
.DataSourceName=PubSource
.CommandType=com.sun.star.sdb.CommandType.TABLE 'paramètre du publipostage
.Command=PubNomTable
.SaveAsSingleFile=True
.OutputType=com.sun.star.text.MailMergeType.FILE 'option publipostage par fichier
.DocumentURL=convertToURL(PysModele)
.OutputURL=ConvertToURL(PubRepertoireCible) 'chemin du fichier de sortie
.FileNamePrefix = "Essai"
.execute(MyProps()) 'executer le publipostage
End With
MsgBox "Fin du Publipostage, la fusion se trouve dans: " + PubRepertoireCible
End Sub |
Partager