文件名称：IdPOP3做的-QQ邮箱附件接收器
文件大小：1.43MB
文件格式：EXE
更新时间：2012-05-01 05:51:07
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; for i:=1 to mailcount do //遍历每一封邮件 mailcount begin IdMessage1.Clear; IdPOP31.retrieveHeader(i,IdMessage1); //得到邮件的头信息 IdPOP31.Retrieve(i,IdMessage1); //接收到邮件所有内容 tmp := IdMessage1.Body.Text; //邮件正文 Label2.Caption := {'接收邮件:'+tmp+}' 已接收：['+intToStr(i)+'] '; fNum := Pred(IdMessage1.MessageParts.Count); if not fNum<0 then for j:=0 to fNum do begin if IdMessage1.MessageParts.Items[j] is TIdAttachment then begin fCount := fCount+1; fName := filePath+intToStr(i)+intToStr(j)+TIdAttachment(IdMessage1.MessageParts.Items[fNum]).Filename; if fileExists(fName) then deletefile(fName); TIdAttachment(IdMessage1.MessageParts.Items[j]).SaveToFile(fName); //filePath+intToStr(i)+GetFileTitle(tmp)+'.rar' end; end; ProgressBar1.StepBy(1); GetRevFile; application.ProcessMessages; end; Label3.Caption := '共接收附件:['+intToStr(fCount)+'] '; IdPOP31.Disconnect; //断开连接 end;