Discussion :

[luchoadvance]

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.

[skywaukers]

bonjour,

je pense que le pb vient simplement du fait que tu instancie un TStrings qui contient des méthodes abstraites. Il ne faut jamais instancier un TStrings, mais un descendant, comme par exemple un TStringList;

Par contre je pense que tu peux faire un

Code :

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

IdMessage.Body.Add('Mon message');

@++
Dany

[luchoadvance]

Tout d'abord merci skywaukers pour la rapidité de ta reponse

je vien de corriger mon erreur en mettant un tStringList


De plus pour l'eereur de j'ai editer , cela venait juste du serrveur smtp qui merdé

merci encore a toi

[docteurxt]

Code :

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

1
2
3
4
5
 
..
  message:=TStrings.Create();   
  message.Text:='lol';          
..

Salut

J espere que dans ton code, tu n as pas oublie de liberer le TStrings (TStrings.Free)