publipostage avec delphi

Bonjour,

J'utilise word avec mon application Delphi pour envoyer des lettres de confirmation à des clients avec le publipostage.
les informations sur le client sont stockées dans une base de données.

Et donc je voudrai savoir si on peu automatiquement remplir le champs "À..."
à partir de l'adresse mail enregistré en base

j'utilise delphi 7

Merci.

Tu peux utiliser Word par Automation, tu as toutes les méthodes qu'il faut pour invoquer le Publipostage et le remplissage des champs de fusion ...
Après il faut faire attention à la version de Word, les interfaces changent selon la version

Bonjour,

j'ai toujours ce petit probleme, j'ai testé le code suivant mais sans succès.

Code:

---

1 2 3 4 5 6 7 8

WPadApp.Documents.Open(FichierModele, LectureSeule); WPadApp.ActiveDocument.MailMerge.openDataSource(FichierAOuvrir); WPadApp.ActiveDocument.MailMerge.Destination := wdSendToNewDocument; WPadApp.ActiveDocument.MailMerge.MailAsAttachment := True; WPadApp.ActiveDocument.MailMerge.MailSubject := 'Lettre'; WPadApp.ActiveDocument.MailMerge.MailAddressFieldName := 'xxx@xxx.fr'; WPadApp.ActiveDocument.MailMerge.SuppressBlankLines := True; WPadApp.ActiveDocument.MAilMerge.execute;

---

je n'arrive toujours pas à avoir l'adresse mail dans le cadre "À...".

je me suis aider de la faq : http://delphi.developpez.com/faq/?pa...ordmailingsgbd

merci d'avance,

il ne faut pas mettre 'xxx@xxx.fr' dans MailAddressFieldName mais le champ de ta base de données qui contient l'adresse du destinataire, si tu as 10000 courriers à envoyer, en général, c'est pour 10000 personnes différentes ... donc la donnée et le destinataire sont tous les deux dans le DataSource

OK, merci

j'ai mis

Code:

---

WPadApp.ActiveDocument.MailMerge.MailAddressFieldName := 'cli_mail';

---

qui est donc un champ dans mon fichier de fusion.

mais j'ai toujours pas d'adresse mail d'affiché.

sinon ce sont des lettres personnalisé donc il y a toujours qu'un seul destinataire et donc une ligne dans fichier de fusion.

Citation:

---

Envoyé par Chayanne47

OK, merci

j'ai mis

Code:

---

WPadApp.ActiveDocument.MailMerge.MailAddressFieldName := 'cli_mail';

---

qui est donc un champ dans mon fichier de fusion.

mais j'ai toujours pas d'adresse mail d'affiché.

sinon ce sont des lettres personnalisé donc il y a toujours qu'un seul destinataire et donc une ligne dans fichier de fusion.

---

es-tu connecté à la base de données ?

Non,
en fait je créé un fichier de fusion en txt séparateur ";"
et je l'utilise pour remplir automatiquement ma lettre sous word après

Citation:

---

Envoyé par Chayanne47

Non,
en fait je créé un fichier de fusion en txt séparateur ";"
et je l'utilise pour remplir automatiquement ma lettre sous word après

---

oui même si c'est un fichier texte faut bien te connecter à ta source de données ! comment fais-tu ça en programmation ? car je crois que tu as omis complètement cette partie.

Citation:

---

Envoyé par Just-Soft

oui même si c'est un fichier texte faut bien te connecter à ta source de données ! comment fais-tu ça en programmation ? car je crois que tu as omis complètement cette partie.

---

ben en fait je rempli mon fichier txt avec une requête et en suite j'ouvre
mon fichier word avec :

Code:

---

1 2	WPadApp.Documents.Open(FichierModele, LectureSeule); WPadApp.ActiveDocument.MailMerge.openDataSource(FichierAOuvrir);

---

le FichierModele étant de fichier .txt et le FichierAOuvrir le fichier .dot

'cli_mail' c'est le nom de ton champ, mais ton fichier csv contient-il l'entête pour indiquer à Excel quel champ utilisé ?
la fonction OpenHeaderSource permet de définir un header différent de celui contenu dans le fichier, il me semble, j'avais étudié le code d'un collègue sur le Publispostage avec Word97 et Word 2K, ça date un peu !

de ce coté la tout es bon
je pense avoir trouvé d'ou viens le probleme

avant la ligne
WPadApp.ActiveDocument.MAilMerge.execute;
c'est le document "FichierModele" qui est ActiveDocument

donc il faut que ce soit l'autre document "FichierAOuvrir"
à qui il faut donner les valeurs

Code:

---

1 2 3 4 5 6 7 8 9

WPadApp.Documents.Open(FichierModele, LectureSeule); WPadApp.ActiveDocument.MailMerge.openDataSource(FichierAOuvrir); WPadApp.ActiveDocument.MailMerge.Destination := wdSendToNewDocument; WPadApp.ActiveDocument.MAilMerge.execute; ActiveWindow.Document.EnvelopeVisible := true; WPadApp.ActiveDocument.MailMerge.MailAsAttachment := False; WPadApp.ActiveDocument.MailMerge.MailSubject := 'Lettre'; WPadApp.ActiveDocument.MailMerge.MailAddressFieldName := 'Email'; WPadApp.ActiveDocument.MailMerge.SuppressBlankLines := True;

---

J'ai donc essayé comme ça mais il me dit "l'objet demandé n'est pas disponible"

j'ai essayé ça aussi :

Code:

---

1 2 3 4 5

ActiveWindow.Document.EnvelopeVisible := true; ActiveWindow.Document.MailMerge.MailAsAttachment := False; ActiveWindow.Document.MailMerge.MailSubject := 'Lettre'; ActiveWindow.Document.MailMerge.MailAddressFieldName := 'Email'; ActiveWindow.Document.MailMerge.SuppressBlankLines := True;

---

mais même message

regarde ici plein d'exemple