Discussion :

[vitch8]

Bonjour,

je souhaite envoyer un mail à l'aide des composants TIdMessage et TIdSMTP.

Malheureusement lorsque j'exécute le code, l'erreur suivante apparait :

"Erreur socket #10060 : Délai de connexion dépassé.

Voici le source de mon programme.

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
  idMessage1.From.Address :='xxxxxxxxxx@hotmail.com'; //Adresse email de l'expediteur
  IdMessage1.Recipients.EMailAddresses:='xxxxxxxxxx@hotmail.com'; //Adresse email du destinataire
  IdMessage1.Subject:='essai'; //Sujet du message
  IdMessage1.Body.text:=Memo1.Lines.Text; //Corps du message
 
  IdSMTP1 := IdSMTP1.Create(nil);
  IdSMTP1.Username:='xxxxxxxxxx@hotmail.com';
  IdSMTP1.Password:='xxxxxxxxxx';
  IdSMTP1.Host :='smtp.live.com';
  IdSMTP1.Port := 587;
  IdSMTP1.Connect;
  try
    IdSMTP1.Send(IdMessage1); //Envoi du message
    showmessage('message envoyé');
    application.Terminate;
  finally
    IdSMTP1.Disconnect; //Déconnexion
  end;

Merci de votre aide pour m'indiquer comment corriger cette erreur.

[tourlourou]

Je ne sais pas si Hotmail utilise aussi SSL comme dans cet exemple et nécessite

TIdSMTP.UseTLS must be set to utUseImplicitTLS (which requires an SSL IOHandler assigned to TIdSMTP.IOHandler).

ou si tu dois simplement jouer sur le paramètre TimeOut de l'appel Connect (l'augmenter, voire -1 = pas de TimeOut).