Программирование и не только |
!!
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Программирование и не только » Delphi, Kylix, Pascal » как мне узнать количество принятых сообщений на мыле
как мне узнать количество принятых сообщений на мыле
но надо так чтобы при ошибке подключения небыло ошибки
вот моя функция
function Tuserform.getmes(server,login,pass:string;port:int eger):integer;
begin
idpop31.Host:=server;
idpop31.Username:=login;
idpop31.Password:=pass;
idpop31.Port:=port;
try
idpop31.Connect;
result:=idpop31.CheckMessages;
finally
idpop31.Free;
end;
end;
H@cker, все работает совершенно замечательно. Какую ошибку хоть пишет?
Мой код:
procedure TForm1.FormCreate(Sender: TObject);
var
server, login, pass: string;
//port: integer;
begin
server:='pop3.yandex.ru';
login:='*******';
pass:='**********';
idpop31.Host:=server;
idpop31.Username:=login;
idpop31.Password:=pass;
try
idpop31.Connect;
showmessage(inttostr(idpop31.CheckMessages));
finally
idpop31.Free;
end;
halt;
end;
что писать где server для mail.ru
pop.mail.ru
Спасибо
стати а кто нибудь знает можно ли отправить папку по почте?
Заархивируй ее
Отредактировано Delpher (2008-01-21 19:55:33)
Или просто собрать список файлов и передавать их как аттачменты.
P.S. А ошибку можно поймать так:
Код:
Uses IdException;
function Tuserform.getmes(server,login,pass:string;port:int eger):integer;
begin
idpop31.Host:=server;
idpop31.Username:=login;
idpop31.Password:=pass;
idpop31.Port:=port;
try
idpop31.Connect;
except
on EIdReadTimeout do ;
else
ShowMessage ('Не удалось подключится к серверу!');
end;
result:=idpop31.CheckMessages;
idpop31.Free;
end;
Таким же образом можно поймать ошибку ввода пароля.
Отредактировано NoName_emaNoN (2008-03-21 22:24:43)
Вы здесь » Программирование и не только » Delphi, Kylix, Pascal » как мне узнать количество принятых сообщений на мыле