Работа с почтой в Delphi

[ExTeC]

Код

var DateTime: TDateTime;
 i: integer;
begin
if SMTP.Connected then SMTP.Disconnect;
SMTP.Host := Edit2.Text;
SMTP.Port := StrToInt(Edit4.Text);
SMTP.UserName := Edit6.Text;
SMTP.Password := Edit8.Text;
IdMsgSend.Body.Assign(Memo2.Lines);
IdMsgSend.From.Name := LabeledEdit5.Text;
IdMsgSend.From.Address := LabeledEdit6.Text;
IdMsgSend.Sender.Address := LabeledEdit7.Text;
IdMsgSend.Subject := LabeledEdit8.Text;
DateTime := GetTime;
IdMsgSend.Date := DateTime;
SMTP.Connect;
if StrToInt(Edit9.Text) >= 0 then
begin
 for i := 1 to StrToInt(Edit9.Text) do
 begin
  SMTP.Send(IdMsgSend);
 end;
end;
SMTP.Disconnect;
end;

Пишет ошибку
valid RCPT command must precede DATA
P. S. Дельфя 7...

 

[admin]

ExTeC
в каком месте кода ошибка?

 

[ExTeC]

Ошибка при выполнении...

 

[admin]

ExTeC
т.е. по коду компилятори ничего не выдает?
потому как если нет, то странно. обычно ошибка бывается в месте SMTP.Connect; из-за траблов с сетью. прочекай по F8

 

[ExTeC]

"Чекал"...
На когда отправляю - ошибка...
Похожая ошибка была, когда я время не указывал...
(
DateTime := GetTime;
IdMsgSend.Date := DateTime;
)
Но тогда было понятно, что им не хватает...
А щас...

 

[Guest]

ExTeC
а фаеры разные нормально работают? может они не пускают?

 

[ExTeC]

нормально...
Я чувствую, что что-то я не заполнил...

 

[admin]

ExTeC
не знаю
у меня не ругается под XP. Правда у меня indy немного модифицированные.

 

[ExTeC]

У меня 2k

 

[admin]

ExTeC
может инди глюкают
слушай. чего ты парисся. возьми-ка пример из indi называется который MailClient и заюзай его.

 

[Alone_Stranger]

попробуй добавить строчку
SMTP.AuthenticationType := atLogin;

 

[MORFEUS]

[ B]Да не Этот код не будет пахать ! Ты вырубил STOP ON DELPHI EXCEPTIONS ? Если да то не знаю