IdPOP3做的 QQ邮箱附件接收器
批量下载QQ邮箱中的所有附件 procedure TFrm_QQMailRev.bt_revClick(Sender: TObject); var i,j,fNum,fCount : integer; tmp, fName : string; begin bt_rev.Enabled := false; IdMessage1.CharSet := 'gb2312'; //保证附件正文汉字的正常显示 ProgressBar1.Max := mailcount; ProgressBar1.Min := 1; fCount := 0;
下载地址
用户评论
感谢共享，
非常感谢，这想找这个代码来学习。
还以为是源代码，结果是软件，下错了
新独霸检测，有“win32.malware.heur”木马病毒，能否重发一个？
由于邮件服务器供应商限制诸多，稳定性和兼容性还待测试
不错，可以看到邮件，不过好多都是乱码！