Bonjour,
j'ai des difficultés à envoyer des mails par paquet de 4 à des adresses différentes lors d'un événement OnTimer.
Le principe est que je reprend dans une base de données les mails en file d'attente selon une table de ce principe : From, To, Title, Message.

voici mon 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TfrmMailer.SM(var sendid : integer;var sendfrom, sendto, sendtitle : string;var sendmessage : variant);
begin
     with SMTP do begin
        try
                Host := '127.0.0.1';
                Charset := 'iso-8859-1';
                SubType := mtPlain;
                Port := 25;
                Connect;
 
                with PostMessage do begin
                        FromAddress := sendfrom;
                        ToAddress.Add(sendto);
                        Subject := sendtitle;
                        Body.Clear;
                        Body.Add(sendmessage);
                end;
                SendMail;
                Disconnect;
        except;
        end;
     end;
end;
 
procedure TfrmMailer.SMTPSendStart(Sender: TObject);
var SMTP : TNMSMTP;
begin
   with SMTP.FinalHeader do begin
        Delete(SMTP.FinalHeader.Count-1);
        Append('Content-Type: multipart/Alternative;boundary="--NextMimePartHTML"');
   end;
end;
La première procédure est une procédure que j'ai ajouté moi-même. La seconde sert à un envoi à la fois au format texte et html.

D'avance, merci pour votre aide.