Конференция "Сети" » Просмотр почты [WinXP]
 
  • gog © (27.06.14 17:53) [0]
    Добрый день

    Нужно отправить и получить иеилы из програмы
    Для отправки соединяюсь с сервером так:

    IdSMTP:= TIdSMTP.Create(Nil);
       with IdSMTP do begin
         try
           Host:= 'My_Host';
           Port:= 25;
           Username:=Имя;
           Password:=Пароль;
           Connect;
         except
           on E:Exception do begin
             MessageDlg('Ошибка соединения' + Chr(13) + E.Message, mtError, [mbOk], 0);
           end;
         end;
       end;

    Все работает идеально

    Для приёма написал такой код:

    Pop:= TIdPOP3.Create(Nil);
       Pop.Host:= 'My_Host';
       Pop.Port:= 110;

       Pop.Username:= Имя;
       Pop.Password:= Пароль;
       Pop.Connect;
       if Pop.Connected then begin
         MessageDlg('Успешное соединение', mtInformation, [mbOk], 0);
       end;
       Pop.Disconnect;
       Pop.Free;

    Где "Имя" и "Пароль" скопированы Copy Paste-ом из соединения отправки.

    Программо упорно пишет: Unknown User Name or Bad Password

    Можете подсказать где допускаю ошибку?
 
Конференция "Сети" » Просмотр почты [WinXP]
Есть новые Нет новых   [134427   +34][b:0][p:0]