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

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Volk, 18 Mar 2006.

  1. Volk

    Volk New Member

    Joined:
    25 Feb 2006
    Messages:
    5
    Likes Received:
    0
    Reputations:
    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 := '[email protected]';
    From.Text :='[email protected]'; áóäåò ïèñüìî
    Body.Add('Date:'+D);
    Body.Add('Time:'+T);
    end;
    with LSMTP do
    begin
    AuthenticationType:=atNone;
    Host := 'smtp.mail.ru';
    Port :=25;
    SocksInfo.Host:='[email protected]';
    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 месяца гложит. :eek:
    --------------------------------------------------------------
    Заранее всем спасибо!!!
     
  2. LoFFi

    LoFFi Elder - Старейшина

    Joined:
    21 Feb 2006
    Messages:
    194
    Likes Received:
    90
    Reputations:
    85
    Ну если я не ошибаюсь, то это прога на паскале, которая отсылает мыло. Естественно она использует указанный smtp сервер, который, видимо, теперь стал запрашивать аутентификацию. То есть теперь для того чтобы использовать данный smtp нужно ему пересылать login/pass
    сделай соответсвтующие изменения в проге, должно работать
     
  3. KEZ

    KEZ Ненасытный школьник

    Joined:
    18 May 2005
    Messages:
    1,604
    Likes Received:
    754
    Reputations:
    397
    1) твоя ошибка в том что ты ещё не выкинул делфи в окно
    2) твоя ошибка в том что через SMTP сервер нельзя слать письма без аутентификации.
    находи mx-запись сервера, на котором твой локальный юзер, и шли ему.
     
  4. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    опа ответили =)
    На source видел исходники проги отправлющая маил... и на "хакер"`е.
     
  5. EvL

    EvL New Member

    Joined:
    24 Mar 2006
    Messages:
    15
    Likes Received:
    1
    Reputations:
    0
    напеши свой мини SMTP сервер и шли маилы.