Discussion :

[Coussati]

bonjour

je voudrais récupérer les sujet de mes mail avec le compo IdPOP31 de indy

je fais donc :

IdPOP31.Host:='........t';
IdPOP31.Username:='.......';
IdPOP31.Password:='.......';
IdPOP31.Connect;

ect ....

IdPOP31.Disconnect;

c'est bon j'arrive à récupérer les sujets, mais il y a un prob :

afin d'être avertit en temps réel je suis obligé de mettre ce code dans un timer 1 seconde, et au bout de qq min, j'ai un msg d'erreure, comme quoi mon compte a été locké, or lorsque je vais sur mon compte mail je n'ai aucun problème, et il suffit de fermer / relancer le prog pour que ça fonctionne

avez vous une idée ?

[Rayek]

Est ce que tu coupes le timer le temps du traitement ?
Si non, il faudrait peut être le faire vu que ca peut prendre plus d'une seconde pour ouvrir la connexion avec le serveur.

[Coussati]

non je ne le coupe pas car si un mail arrive entre temps je ne serai pas avertit !

[Rayek]

Il faut que tu coupes, entre deux scans du compte, le timer car plusieurs accès en même temps d'un même post sur le même port ca gènère des problèmes.

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
 
procedure MaForm.Timer1Timer(Sender: TObject);
begin
  // On stop le timer le temps du traitement
  Timer1.Enabled := False;
 
// ton traitement
  IdPOP31.Host:='........t';
  IdPOP31.Username:='.......';
  IdPOP31.Password:='.......';
  IdPOP31.Connect;
 
  ect ....
 
  IdPOP31.Disconnect;
  // On réactive le timer après le traitement.
  Timer1.Enabled := True;
end;

[Coussati]

bah ça sert à rien car avant de me lancer sur le compte je fais un test :

si IdPOP31 est connecté alors il ne fait rien ...
donc automatiquement le timer rescan lorsque le taf est fait (cad deco)

[Coussati]

"mailbox locked by other service"

c'est le message d'erreur qu'il affiche :s