Not all messages are set

Giganews Newsgroups
Subject: Not all messages are set
Posted by:  MM (pmaurizio20…@yahoo.it)
Date: Sat, 2 Jul 2011

Hi , in my program (not a spammer program)
i have a list of email addresses , i scan it
and i send a message with a pdf document for each address .

My problem is that not all the messages are sent ,
i tried with 100 adresses and it seems that only 30 are sent ,
i made a test with 100 items with the same address and it is the same :
only first 32 addresses are sent  then an error message appears :

....EidProtocolReplyError with message 'resources temporarily unavailable ' - Please try
again later ....

this is code :

    MailMessage.From.Address := ini.ReadString('MAIL','From','');
    MailMessage.from.Name := 'aaaaaaa' ;
    MailMessage.Subject := Edit1.Text ;
    MailMessage.Body.Text := memo1.Text ;
    if FileExists(edit2.Text ) then
    TIdAttachment.Create(MailMessage.MessageParts, edit2.Text);

    SMTP.Connect(1000);

      while not cdsClienti.Eof do begin
        if cdsClientiCLINVEMA.AsString = 'S' then begin
          MailMessage.Recipients.EMailAddresses := trim(cdsClientiCL_EMAIL.AsString ) ;
          try
            SMTP.Send(MailMessage);
          except on E:Exception do
          begin
            err := true ;
            elencoerrori := elencoerrori + '  ' + trim(cdsClientiCLDESCR1.AsString ) ;
          end ;
          end ;
        end;
        cdsClienti.Next ;
      end ;

..... I am considering to update to Indy 10 ,
but i worry that it would not solve my problem and it would
meke me spend a lot of time updating code to Indy version 10 .

Thanks

MM

Replies