voila un bout de code qui marche (enfin, qui marchait avant que je vire toutes mes variables/fonctions.etc... et que je les remplaces par des chaines en dur)
ca n'utilise pas les composants NetMaster mais Winshoes (maintenant Indy):
Code :
- var
- i:integer;
- msgMail : TWinshoeMessage;
- begin
- with TWinshoeSMTP.Create(nil) do
- try
- Host := 'smtp.wanadoo.fr';
- msgMail := TWinshoeMessage.Create(nil);
- try
- msgMail.ContentType := 'text/html';
- msgMail.Too.Text := 'toto@toto.to';
- msgMail.From := 'no-reply@monsite.com';
- msgMail.Subject := 'mail en achteumeuleu';
- msgMail.Text.Text := '<html><body><b>Hello</b><br>Voici un mail en html</body></html>';
- Send(msgMail);
- finally
- msgMail.Free
- end;
- finally
- free;
- end;
|
[jfdsdjhfuetppo]--Message édité par JWhy le 23-05-2002 à 19:00:19--[/jfdsdjhfuetppo]
---------------
www.alliancefrancophone.org ... Home is where the heart is