Bonjour,

Depuis 1 mois, sur les PC en Windows 7 et server 2008 lorsque j'appelle la fonction smtp.disconnect (apres l'envoi d'un mail) j'ai le message d'erreur en titre.
Sur windows XP ca passe correctement. J'étais en version 10.1 et je suis passé sur la derniere en 10.6 et pas de changement.

Quelqu'un aurait une idée pour résoudre le probleme?

Merci

Voici le code qui bug :
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
procedure TForm4.Button1Click(Sender: TObject);
var
  IdMessage: TIdMessage;
  IdSMTP: TIdSMTP;
  Message: TStrings;
  i: Integer;
  Fichiers: Array Of String;
begin
  IdMessage := TIdMessage.Create(nil); //création dynamique du composant
 
  IdMessage.From.Address := 'xxx@free.fr';
 
  IdMessage.ReplyTo.Add.Address := 'xx@free.fr';
  IdMessage.Recipients.Add.Address := 'xx@free.fr' ;
 
  IdMessage.Subject := 'Sujet du message';
 
 
 
  Message := Memo1.Lines; //par exemple... il faut juste que ce soit un TStrings !
 
 
  //On passe ensuite à l'envoi du message:
  IdSMTP := TIdSMTP.Create(nil) ; //Création dynamique du composant
 
  IdSMTP.Port := 25; //Le port SMTP standard...
  IdSMTP.Host := 'smtp-out.adista.fr';  //Le serveur auquel se connecter
 
  //Ensuite on se connecte et on envoit le message, en gérant les erreurs, tant qu'à faire !
  Try
    Try
      IdSMTP.Connect;
      IdSMTP.Send(IdMessage);///////PLANTAGE
    except
      on e: exception do MessageDlg(e.Message, mtError, [mbOK], 0);
    end;
  finally
   IdSMTP.Disconnect;
    IdSMTP.Free;
    IdMessage.Free;
  end;
 
end ;