[dtestd]

При отправке возникает ошибка : "Syntactically invalid EHLO argument(s)", но на windows XP все работает.

Код:

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

var smtp : TIdSMTP;     msg  : TIdMessage;    begin   smtp := TIdSMTP.Create(nil);      smtp.AuthenticationType := atLogin;   smtp.Username := 'xxx@mail.ru';   smtp.Password := 'password';   smtp.Host     := 'smtp.mail.ru';   smtp.Port     := 25;      smtp.Connect;      if smtp.Authenticate then   begin     msg := TIdMessage.Create(nil);        msg.Subject := 'Subject';     msg.Body.Add('Mail body.');     msg.From.Text := 'xxx@mail.ru';     msg.Recipients.EMailAddresses := 'xxx@mail.ru';     smtp.Send(msg);     smtp.Disconnect;        msg.Free;   end;   smtp.Free;

Отправляю так. Подскажите, как отправлять на windows 7 ?