[Paskal]

Все прет.
Такая запара делаю прогу для массовой отправки писем столкнулся с проблемой передачи адреса в IdMessage1.Recipients.EMailAddresses
Когда пишу так:

Код:

IdMessage1.Recipients.EMailAddresses:='mymail@mail.ru';

то письмо отправляет правда тема письма не в той кодировке но это в другой теме.
А когда пишу так то кидает эту ошибку:
http://www.imagepost.ru/?v=mqwtgytju...mdgsldpmrr.PNG
IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[1];
ps.Memo2.Lines[1] это список адресов получателей.
ну а вот сам цикл.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var  i:integer;
begin
//Panel1.Visible:=true;
for i := 1 to Memo2.Lines.Count do
     IdSMTP1.Host:=Edit4.Text;            //Хост
     IdSMTP1.Port:=StrToInt(Edit3.Text); //Порт
     IdSMTP1.Username:=Edit1.Text;     //Логин
     IdSMTP1.Password:=Edit2.Text;    //Пароль

     IdMessage1.Body.Text:=Memo1.Text; //Текст письма
     IdMessage1.From.Text:=Edit5.Text;  //От кого
     IdMessage1.Subject:=Edit7.Text;    //AnsiToutf8(subject);
     IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[1];//Кому
     i:=i+1;
     IdSMTP1.Connect();
     if IdSMTP1.Connected = True then
     IdSMTP1.Send(IdMessage1);
     IdSMTP1.Disconnect;


 // Panel1.Visible:=false;
end;

[lmikle]

а там разаве не Add надо???

и еще:

Код:

IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[1];//Кому

У тебя там похоже "1" стоит, а не "i".

[Paskal]

Да это я мудрил на самом деле i стоит это не то какие исчо есть идеи???

[Pilot_Red]

а где begin и end в цикле, и зачем нужно это i=i+1???