Форум: "Сети";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];
Вниз
Виновата ли ADSL или в чём ошибка??? Найти похожие ветки
← →
Новочеркасский Волк © (2006-03-16 15:29) [0]Здравствуйте. Я непонимаю в чём дело где пошибка? Вот у меня есть код:
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 :="ххх";
if SendE=false then
begin
Connect;
Send(LMsg);
SendE:=True;
FreeAndNil(LMsg);
FreeAndNil(LSMTP);
end;
end;
end
else
sendE:=false;
end;
И по идее он должен если есть конэкт, отправлять мне письмо с датой и временем. У меня, когда я подключён через обычный модем всё идеально работает. Но когда я попытался проделать тоже но только на другом компе, где стоит ADSL, то вылетела ошибка 503 Administrativie prohibition - - autorization requiered/ Users in your domian are not allowed to send email without authorization/See "хэлп майл.ру". В чём дело от чего это может зависить??? Подскажите пожалуйсто!
----------------------------------
Заранее спасибо!
← →
Virgo_Style © (2006-03-16 20:14) [1]тебе ж все написали
← →
serko © (2006-03-16 23:54) [2]А у меня похожее было токо с точностью да наоборот! На ADSL паше а на модеме не хочет! Что за хрень?
← →
Новочеркасский Волк © (2006-03-17 14:18) [3]А помоем ADSL тут не причём раз он выводит: "ошибка 503 Administrativie prohibition - - autorization requiered/ Users in your domian are not allowed to send email without authorization/See "хэлп майл.ру". Как считаете??? И что значит "тебе ж все написали"???
← →
Новочеркасский Волк © (2006-03-17 16:33) [4]А помоем ADSL тут не причём раз он выводит: "ошибка 503 Administrativie prohibition - - autorization requiered/ Users in your domian are not allowed to send email without authorization/See "хэлп майл.ру". Как считаете??? И что значит "тебе ж все написали"???
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c
