-
Добрый день
Нужно отправить и получить иеилы из програмы Для отправки соединяюсь с сервером так:
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
Можете подсказать где допускаю ошибку?
|