[Delphi 4] Envoyer E-Mail depuis un formulaire

Marsh Posté le 12-10-2001 à 14:09:26

J'ai une table client avec les chap Nom, prénom, adresse... et aussi un champ nommé efAdresseEmail où est stoqué l'E-Mail du client. A côté j'ai mis un bitbtn. Ce bouton devra lancer le logiciel de messagerie par défaut avec le champ destinataire rempli selon le champ efAdresseEmail.
Ma question : comment faire ceci ?

Je connais déjà comment lancer le logiciel de mail :
ShellExecute (handle,'Open', 'mailto:contact@tsr.ch?subject=confirmation&body=Chère cliente, cher client, ','',
'',SW_SHOWNORMAL);
Mais le destinataire est fixe (au lieu d'être référencé).

Merci de votre précieuse aide.

Chevalier :jap:

Marsh Posté le 12-10-2001 à 14:09:26

Marsh Posté le 12-10-2001 à 16:54:05

avec delphi5 entreprise tu as les serveur d'automations ki te permettent de manipuler les appli genre Word, Excel et et outlook (po express attention, outlook d'office)
avec ca tu peux faire tout ce ke tu veux
http://www.djpate.freeserve.co.uk/AutoOutl.htm

sinon t'as des objets genre TNMPOP3 et TNMSMTP ki te permettent de travailler avec les serveurs de mails, mais ca j'ai jamais fait

---------------
Hyndex - Meuaarf !! ReZo !!!

Marsh Posté le 13-10-2001 à 00:19:01

j'ai pas tout pigé je crois....
enfin si c'est ce que j'ai pigé:

Code :

ShellExecute(0, 0, PChar(Format('mailto:%s?subject=confirmation&body=Chère cliente, cher client, ', [edit1.Text])), 0, 0, SW_SHOWNORMAL);

où edit1.Text est la zone contenant l'adresse mail du destinataire...

[edtdd]--Message édité par antp--[/edtdd]

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Marsh Posté le 22-10-2001 à 10:48:17

Merci 1000x ! Ca marche.
Enfin une galère en moins

Chevalier :jap:

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *