Discussion :

[Orgied]

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.

[Morvan Mikael]

Es tu sur que ta procédure d'envoi est synchrone?

[Orgied]

Comment puis-je m'assurer de ce genre de chose ? Peux-tu un peu m'éclaircir sur ce point ?

[Orgied]

Pour ceux que ça intéresse, je crois avoir trouvé le problème.
Je suis parti du principe que l'envoi n'était pas syncrhone dû au fait que je modifiais l'header du mail afin de faire un parsing txt/html et j'ai donc compensé l'erreur par un test sur l'événement Success.

Avec les codes que je place ici, vous devriez donc pouvoir réalisé l'envoi de plusieurs mails au format Texte/Html. Cela permet, selon le gestionnaire de mail employé par la personne, de visualiser un mail quoiqu'il arrive (si son gestionnaire ne prend pas le html délibirément ou non, le contenu s'affichera en html).

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
unit Unittest;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Psock, NMsmtp, Db, DBTables;
 
type
  TForm1 = class(TForm)
    SMTP: TNMSMTP;
    db: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure SMTPSendStart(Sender: TObject);
    procedure SMTPSuccess(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  SendSuccess : integer;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
   {$i-}
   try
   i := 0;
   SendSuccess := 1;
 
   while (i < 4) do begin
         If (SendSuccess = 1) then begin
            SendSuccess := 0;
            SMTP.ClearParams := true;
            SMTP.Host := '127.0.0.1';
            SMTP.Charset := 'iso-8859-1';
            SMTP.SubType := mtPlain;
            SMTP.Connect;
            with SMTP.PostMessage do begin
                 FromAddress := '*********';
                 ToAddress.Add('**********');
                 Subject := 'test';
                 Body.Clear;
                 Body.Add('test');
            end;
            SMTP.SendMail;
            SMTP.Disconnect;
            i := i + 1;
         end;
   end;
 
   except
   end;
 
   Application.Terminate;
   {$i+}
end;
 
procedure TForm1.SMTPSendStart(Sender: TObject);
begin
   //remplacer ici par les infos que j'avais mis dans la première source de mon code
   SMTP.FinalHeader.Add('TRILILI');
end;
 
procedure TForm1.SMTPSuccess(Sender: TObject);
begin
   SendSuccess := 1;
end;
 
end.

Si jamais je n'étais pas assez clair, n'hésitez pas à me demander plus d'infos.

Merci et à bientôt.