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.