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 :
D'avance merci pour votre aide.
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
PS : je souhaite vraiment envoyer les mails 1 par 1, même si c'est plus long, pour ne pas surcharger mon serveur.
Partager