Publipostage à partir d'Outlook

[hernandez]

Bonjour,

J'ai besoin de réaliser un publipostage à partir d'Outlook.
Il me manque juste les codes pour passer d'un enregistrement à l'autre lors de l'impression de mes documents Word.
Merci à tous !

Voici un extrait de mon code :

' Ouverture des objets Excel
Set xlObject = CreateObject("excel.application")
Set xlBook = xlObject.workbooks.Open("chemin du fichier .xls")

........

Set Wrd = CreateObject("Word.Application")
Set appWord = Wrd.Documents.Open("chemin du fichier .doc")

Wrd.activedocument.PrintOut

Là j'ai écrit : Wrd.activedocument.PrintOut mais ça ne m'imprime que le premier enregistrement d'excel et je bloque : je ne sais pas passer à l'enregistrement suivant (j'ai du mal à comprendre l'aide VBA)

Wrd.Documents.Saved = True
Wrd.Documents.Close 'SaveChanges:=wdDoNotSaveChanges

Merci à tous !