Discussion :

[Chayanne47]

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.

[ShaiLeTroll]

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

[Chayanne47]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[ShaiLeTroll]

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

[Chayanne47]

OK, merci

j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Just-Soft]

OK, merci

j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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

[Just-Soft]

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.

[Chayanne47]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[ShaiLeTroll]

'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 !

[Chayanne47]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Montor]

regarde ici plein d'exemple