Discussion :

[sys1]

Bonjour
Je voudrais envoyer un mail avec les composants Indy.
J'ai ajouté à la form les composants idsmptp et idmessage
puis j'ai utilisé le code suivant trouvé sur le net :

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
 
function send_mail():Boolean;
var
  FileName : String;
begin
  try
    Result := False;
    //FileName := 'myfile.txt';
    //Setup SMTP
    Form1.IdSMTP1 := Form1.IdSMTP1.Create(nil);
    Form1.IdSMTP1.Host := 'smtp.live.com';
    Form1.IdSMTP1.Port := 587; //Default email port
    Form1.IdSMTP1.Username := 'mon_mail@hotmail.fr'; // SMTP user name
    Form1.IdSMTP1.Password := 'secret'; //
    Form1.IdMEssage1.From.Address := 'mon_mail@hotmail.fr';
    Form1.IdMEssage1.Recipients.EMailAddresses :=  'mon_mail@hotmail.fr'; 
    Form1.IdMEssage1.Subject := 'Test Email from Delphi XE2';
    Form1.IdMEssage1.Body.Text := 'Hi! This is test email from delphi XE2';
    //Attach a file
    //if FileExists(FileName) then TIdAttachmentFile.Create(MailMessage.MessageParts, FileName);
    //Send email
    try
      try
        Form1.IdSMTP1.Connect;
        Form1.IdSMTP1.Send(Form1.IdMEssage1);
        Result := True;
      except
        on E:Exception do
        begin
          ShowMessage('Cannot send E-Mail: ' + E.Message);
          Result := False;
        end;
      end;
    finally
      if Form1.IdSMTP1.Connected then Form1.IdSMTP1.Disconnect;
  end;
  except
    on E : Exception do
    begin
      ShowMessage('Error in the function SendEmailDelphi: ' + E.Message);
      Result := False;
    end;
  end;
end;

Par souci de test, j'ai forcé les variables selon mes données personnelles. J'ai coupé l'antivirus/firewall pour éviter de poser problème avec les ports.
"smtp.live.com" est lié à hotmail.com
le port 587 aussi.

A l'exécution, j'ai ce bug :
Project1.exe raised exception class EIdSMTPReplyError with message ''.

Quelqu'un a une idée?

[Invité]

En pas à pas tu vois l'erreur a quelle moment ?
Pourquoi utiliser les composants de ta "Form1" ?

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
function send_mail():Boolean;
var
  FileName : String;
  idSMTP1 : TIdSMTP;
  idMessage1 : TIdMessage;
begin
	try
		// initialisation des variables
		Result := False;
		idSMTP1    := TIdSMTP.Create(nil);
		idMessage1 := TIdMessage.Create(nil);
 
		try
			IdSMTP1.Host := 'smtp.live.com';
			IdSMTP1.Port := 587; //Default email port
			IdSMTP1.Username := 'mon_mail@hotmail.fr'; // SMTP user name
			IdSMTP1.Password := 'secret'; //
			IdMEssage1.From.Address := 'mon_mail@hotmail.fr';
			IdMEssage1.Recipients.EMailAddresses :=  'mon_mail@hotmail.fr';
			IdMEssage1.Subject := 'Test Email from Delphi XE2';
			IdMEssage1.Body.Text := 'Hi! This is test email from delphi XE2';
 
			try
				IdSMTP1.Connect;
				IdSMTP1.Send(IdMEssage1);
				Result := True;
			except
				on E:Exception do
			begin
				ShowMessage('Cannot send E-Mail: ' + E.Message);
				Result := False;
			end;
		finally
			IdSMTP1.Disconnect;
		end;
	finally
		FreeAndNil(idSMTP1);
		FreeAndNil(idMessage1);
	end;
end;

[e-ric]

Salut

2 choses:

- ta procédure Send_mail devrait manifestement être une méthode de la classe TForm1, ce n'est parce que Delphi permet de coder "bêtement" qu'il faut en abuser. En effet, tu lies ta procédure avec une référence en particulier Form1, sur le fond c'est pas top.

-je ne connais pas les composants Indy pour te renseigner mais examine le code de ces composants pour savoir où est levée l'exception. Cela te donnera sans doute des indication sur ce qui se passe.

@+

[sys1]

L'erreur apparaît à la ligne :

IdSMTP1.Send(IdMEssage1);

Si j'ai écrit Form1. c'est parce que la fonction se trouvait sur une autre unit.
J'ai cependant testé la fonction dans l'unit1 (La Form), donc sans les Form1.IdSMTP1.Host:= ... Form1.IdSMTP1.Password... ect : il y a toujours le même bug au même endroit

[tourlourou]

regarde ici : http://forums2.atozed.com/viewtopic.php?f=7&t=26261 si tu as une piste pour mieux cerner le problème.

[e-ric]

Si j'ai écrit Form1. c'est parce que la fonction se trouvait sur une autre unit.

A minima, passe cette référence d'objet en paramètre car tu lies ton code à une variable globale, cela pourra être une source de problème plus tard, autant t'en débarrasser tout de suite.

il y a toujours le même bug au même endroit

C'est pas surprenant...