邮件实时接收
我可以跟outlook一样,只要客户端程序运行就可以实时的从服务器接收邮件,只要有邮件发送到你邮箱,你就可以通过你软件实时的接收,在网上只看到要通过点击接收按钮才能接收,有没有人知道要怎么实现,给个代码,做到只要登录连接服务器后,能实时的接收邮件
[解决办法]
使用IdPop3控件。
基本代码是:
if POP.Connected then
begin
POP.Disconnect;
end;
POP.Host := Pop3ServerName;
POP.Port := Pop3ServerPort;
POP.Username := Pop3ServerUser;
POP.Password := Pop3ServerPassword;
POP.Connect;
FMsgCount := POP.CheckMessages; //邮件数量。
当这个FMsgCount发生变变化,则说明有新邮件。
可以放到Timer中。循环贱则即可。