Discussion :

[donaldz]

Bonjour,
je me suis développé un petit programme me permettant d'envoyer des mails (via mon serveur dédié) aux abonnés de ma newsletter.

Tout fonctionne très bien, sauf que pendant l'envoi des mails, mon programme "freeze", en gros il continu de tourner mais je peux pas déplacer la fenêtre ni la minimiser.

Cela vient surement de la méthode que j'emploi pour envoyer les mails (1 par 1) mais je ne vois pas d'autres solution.

Voici mon bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.SendMail(i: integer); // i étant le numéro de la ligne (1 email par ligne)
begin
 
  if i < Destinataires.Lines.Count then
    begin
      Email.Recipients.EMailAddresses := Destinataires.Lines[i];
      SMTP.Send(Email);
      SendMail(i + 1);
    end;
 
end;
 
SendMail(0); // 0 pour commencer à la première ligne de mon TMemo

D'avance merci pour votre aide.

PS : je souhaite vraiment envoyer les mails 1 par 1, même si c'est plus long, pour ne pas surcharger mon serveur.

[Aka Guymelef]

Bonsoir,

Avant l'appel récursif à SendMail je suggère de mettre un Application.ProcessMessage afin de permettre à votre application de traiter les messages windows et ainsi ne plus freezer.

[donaldz]

Merci c'est exactement ça qu'il me fallait !!!