[M-UNIT]

______delete

[Ultras]

предварительно на форму нужно будет бросить TIdMessage с вкладки Indy Misc

по-моему самый простой способ:

Код:

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 29 30

<b>var</b>   e: exception; <b>begin</b>   <b>with </b>IdMessage1 <b>do</b>   <b>begin</b>     Body.Text := <font color="Navy">'текст'</font>;     From.Text := <font color="Navy">'от кого'</font>;     Recipients.EMailAddresses := <font color="Navy">'кому'</font>;     Subject := <font color="Navy">'тема'</font>;     Priority := mpNormal;   <b>end</b>;     <b>with </b>IdSMTP1 <b>do</b>   <b>begin</b>     AuthenticationType := atLogin;     Username := <font color="Navy">'юзер'</font>;     Password := <font color="Navy">'пароль'</font>;     Host := <font color="Navy">'smtp.mail.ru'</font>;     Port := <font color="DarkRed">25</font>;     Connect;     <b>try</b>       Send(IdMessage1);     <b>except </b>on e:exception <b>do</b>       <b>begin</b>         <b>if </b>e.<b>Message </b>= <font color="Navy">'Incorrect authentication data'#13#10</font> <b>then </b>ShowMessage(<font color="Navy">'Ошибка авторизации</font>');       <b>end</b>;     <b>end</b>;     Disconnect;   <b>end</b>; <b>end</b>;

[M-UNIT]

_____delete

[Ultras]

я это вообще-то в Delphi 7 делал, а оно исчо старее )))))

[M-UNIT]

_____delete

[Ultras]

ну проверь, там тоже самое должно быть

[M-UNIT]

______delete

[Ultras]

незашто, обращайтесь

[M-UNIT]

_____delete

[Gman]

В D2006 так
IDSMTP1.AuthType:=atNone;
В D2009 IDSMTP1.AuthType:=satNone;
Вместо atNone, подставишь необходимое, которое можешь найти в панели настроек(properties) IDSMTP1, пункт AuthType.
atNone - используетсяв обычных почтовиках, которые принимают письма с сервера.