Ошибка при отправке почты

Здравствйте. Простенький клиент для отправки почты валится по непонятной причине.
ошибка exception class EidSMTPReplyError with message ''

Ошибка возникает в том случае, когда пытаюсь отправить почту на несколько адресов.

  for I := 1 to 30 do
  begin
    s:=Excel.Range['A'+IntToStr(I)];
    IF(s<>null) and (length(s)>0) then
    begin
       if(length(str) >0) then
         str := str + ', ' + s
       else
            str := s;
       end;
    end;
    IdMessage1.Recipients.EMailAddresses := str;
    SMTP.Send(IdMessage1);

при этом, если просто пишу IdMessage1.Recipients.EMailAddresses := 'email1@mail.ru, email2@mail.ru';
то почта отправляется, а если через присваиваемую переменную, то нет..Проверил, в переменной лежит точно такая же строка

А "точно такая же" - это с двумя адресами, или с 30-ю?

ДжекНепотрошитель,

с 2, 3 - 30..не важно..я вывожу showmessage(str); - там например строка с 2 адресами. И при отправке вылетает пустое сообщение об ошибке

EmilRegis,

адреса из экселевского файла достаются, может там какие-то пустые символы прилепляются?) трим не помог

EmilRegis

Здравствйте. Простенький клиент для отправки почты валится по непонятной причине. ошибка exception class EidSMTPReplyError with message '' Ошибка возникает в том случае, когда пытаюсь отправить почту на несколько адресов. for I := 1 to 30 do begin s:=Excel.Range['A'+IntToStr(I)]; IF(s<>null) and (length(s)>0) then begin if(length(str) >0) then str := str + ', ' + s else str := s; end; end; IdMessage1.Recipients.EMailAddresses := str; SMTP.Send(IdMessage1);

а где end от for ?

Дураг

EmilRegis Здравствйте. Простенький клиент для отправки почты валится по непонятной причине. ошибка exception class EidSMTPReplyError with message '' Ошибка возникает в том случае, когда пытаюсь отправить почту на несколько адресов. for I := 1 to 30 do begin s:=Excel.Range['A'+IntToStr(I)]; IF(s<>null) and (length(s)>0) then begin if(length(str) >0) then str := str + ', ' + s else str := s; end; end; IdMessage1.Recipients.EMailAddresses := str; SMTP.Send(IdMessage1); а где end от for ?

не влез в тестовый пример)) на самом деле он есть

EmilRegis
Дураг пропущено... а где end от for ? не влез в тестовый пример)) на самом деле он есть

приведите тогда нормальный пример который не работает.
а то с этого ничего не понятно что у вас там не так...

Дураг
а где end от for ?

Все end'ы у него присутствуют, просто отступы стоят неправильно. Я бы все-таки проверил строку посимвольно.

вообще мистика какая-то))
В экселевском файле меняю местами почту asd@yandex.ru и asd@mail.ru. Если сначал идёт mail, а потом yandex, то отсылается без проблем. Если наоборот, то валится. Если в файле только почта mail-а то валится, если только yandex-а то отсылается