[XIO]

Народ, кто нить подскажет? Сделал вроде все как указано в данном мануале: http://svdpro.info/page.php?id=32
Но у меня выскакивает такая ошибка:

recipient was not acceptednly local users can send mail

перевод ошибки мне вполне понятен. Но я не понимаю смысл.. ))) То есть вроде все поля я заполнил и вроде правильно. В общем кто нить ткните носом в ошибку! Пожалуйста

[Oleg]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

begin   SMTP.Host := 'smtp.mail.ru'; // испытанно на: yandex'e, mail'e   SMTP.Port:=25;     SMTP.Username:='________';  // логин   SMTP.Password:='____';     // пароль   SMTP.AuthenticationType:=atLogin;   with IdMessage do      begin       Body.Assign(Memo1.Lines); // Текст из Memo       From.Text := '_______'; // от кого       Recipients.EMailAddresses := '_____'; //кому       Subject := '';       end;    SMTP.Connect;    try   showmessage('подключение произведено успешно');   SMTP.Send(IdMessage);    finally       SMTP.Disconnect;    end; end;

Кстати, а где твой код ?

[XIO]

Затем тупо перекатал с вышеуказаной странички:

Код:

1 2 3 4 5 6 7 8 9 10 11

IdSMTP1.Connect(10000); Msg.Subject:='тема сообщения'; Msg.Recipients.EMailAddresses:='XXX'; Msg.From.Address:='XXX'; Msg.Body.Text:='текст сообщения'; Msg.Date:=StrToDate('01.12.2004'); Msg.From.Address:='XXX'; Msg.From.Name:='XXX'; If IdSMTP1.Connected = true then IdSMTP1.Send(Msg); IdSMTP1.Disconnect; end;

Спасибо за отзыв, сейчас попробую сделать как Вы.
B действительно все получилось! Спасибо ещё раз за помощь! =)