[M-UNIT]

Раньше вроде все норм был а сейчас непонимаю неработает ваще отправка почты через IDSMTP & IDMESSAGE

вот код:

Код:

var smtp: tidsmtp; 
msg:tidmessage;
begin
Smtp:=TIdSMTP.Create; 
Smtp.Host:='smtp.mail.ru'; 
Smtp.Password:='***'; 
Smtp.Username:='***@mail.ru'; 
smtp.Port:=2525; 
Msg:=TIdMessage.Create;
msg.body:=memo1.lines; 
Msg.Subject:='***'; 
Msg.From.Text:='***@mail.ru'; 
Msg.Recipients.Add;; 
msg.Recipients.Items[0].Text:='***@mail.ru'; 
Smtp.Connect; 
if smtp.Connected then 
begin 
Smtp.Send(Msg); //вот здесь ошибка выдается(((
end; 
Smtp.Disconnect;
end;

что делать?в чем проблема???раньше вот так делал вроде работал

[lmikle]

Подробнее лог ошибки. Что конкретно говорит?

[M-UNIT]

Знаешь даже в ошибке ничего непишет=)
только через дельфи пишется
Project Project3.exe raised exception class EIdSMTPReplyError with message ".

что делать???подскажите пожалуйста...странно както=)

[Misterhomer]

вот тебе

Код:

idSMTp1.Host:='smtp.yandex.ru';
idSmtp1.Port:=25;
idSmtp1.Username:='логин';
idSmtp1.Password:='пароль';
idMessage1.Body.Text:=Memo3.Lines.Text;
idMessage1.From.Text:='с какой почти отправка';
idMessage1.Recipients.EMailAddresses:='на какую почту приходит';
idMessage1.Subject:='tema';
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect;

lmikle: Предупреждение. Используем теги!

[M-UNIT]

Нет Всеравно неполучается((опять так пишется....
Project Project3.exe raised exception class EIdSMTPReplyError with message ".
Помогите...срочно надо

[lmikle]

Сообщение от M-UNIT

Знаешь даже в ошибке ничего непишет=)
только через дельфи пишется
Project Project3.exe raised exception class EIdSMTPReplyError with message ".

что делать???подскажите пожалуйста...странно както=)

Это похоже, что компонент ожидает ответа от сервера, а ему ничего не отвечают, хотя соединение и устанавливается. Странно. Попробуй послать письмо туда руками через telnet и посмотри что отвечает сервер.

[iwant]

Вставь

IdSMTP1.AuthType:=atDefault;

либо, если delphi 5 - 7

IdSMTP1.AuthenticationType := atLogin;