Bonjour a tous et a toutes ,

Encore une fois j'ai besoins de vous car je seche sur un probleme assez bizzard :
En effet je souhaite créer une fonction qui envoie des email avec le composant indy mais cela en mode console (ce qui complique un peu le tout ^^).

Je pense que monde est juste , le probleme vien du faite que le corps du message a envoyer doit etre du type TStrings , alors que ej souhaite envoyer simplement un string. Je tente de le convertir mais apres j'ai une erreur:
EIdSMTPReplyError whitj message ".

Voici le source :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
unit test;
 
interface
  uses
  IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
  IdSMTP, Classes,string_to_tstring;
 
procedure Lucho_mail(lol : string);
 
implementation
procedure Lucho_mail(lol : string);
var
  IdMessage: TIdMessage;
  IdSMTP: TIdSMTP;
  message: TStrings;
  i: Integer;
  Fichiers: Array Of String;
  message_string : string;
 
begin
  IdMessage := TIdMessage.Create(nil);
  IdMessage.From.Address := 'expediteur@domaine.com';
  IdMessage.ReplyTo.Add.Address := 'expediteur@domaine.com';
  IdMessage.Recipients.Add.Address := 'luchoadvance@gmail.com' ;
  IdMessage.Subject := 'Sujet du message';
  IdMessage.ContentType := 'text/plain';
 
  message:=TStrings.Create();   
  message.Text:='lol';          
  IdMessage.Body:=message;      
 
 
 
 
 
  IdSMTP := TIdSMTP.Create(nil) ;
  IdSMTP.Port := 25;
  IdSMTP.Host := 'smtp.laposte.net';
 
    IdSMTP.Connect;
    IdSMTP.Send(IdMessage);  //erreur ici
 
    IdSMTP.Disconnect;
    IdSMTP.Free;
    IdMessage.Free;
  end;
 
 
end.