| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Виновата ли ADSL или в чём ошибка??? [D6, WinXP]
Новочеркасский Волк © (2006-03-16 15:29:00)Здравствуйте. Я непонимаю в чём дело где пошибка? Вот у меня есть код:
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 "хэлп майл.ру". В чём дело от чего это может зависить??? Подскажите пожалуйсто!
----------------------------------
Заранее спасибо!
Новочеркасский Волк (2006-03-17 16:33:00) [1]А помоем ADSL тут не причём раз он выводит: "ошибка 503 Administrativie prohibition - - autorization requiered/ Users in your domian are not allowed to send email without authorization/See "хэлп майл.ру". Как считаете??? И что значит "тебе ж все написали"???
Новочеркасский Волк (2006-03-17 14:18:00) [2]А помоем ADSL тут не причём раз он выводит: "ошибка 503 Administrativie prohibition - - autorization requiered/ Users in your domian are not allowed to send email without authorization/See "хэлп майл.ру". Как считаете??? И что значит "тебе ж все написали"???
serko (2006-03-16 23:54:00) [3]А у меня похожее было токо с точностью да наоборот! На ADSL паше а на модеме не хочет! Что за хрень?
Virgo_Style (2006-03-16 20:14:00) [4]тебе ж все написали
| |
