相关推荐
-
用delphi开发的邮件接收程序 邮件接收程序,欢迎学习的朋友下载。
-
批量下载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;
-
var filename:string; begin if idsmtp1.connected then idsmtp1.disconnect else begin idsmtp1.host := 'smtp.usish.com'; idsmtp1.username := 'huang_xiao';
-
修改idglobal.pas function bytestostring(const avalue: tidbytes; const astartindex: integer; const alength: integer = -1; abyteencoding: tidtextencoding = nil {$ifdef string_is_ansi}; adestenc
-
用delphi实现邮件附件收发功能 收藏 很久没有发过博客了,不知道为什么没这个思想来博客上转转。今天把这个前段时间做的试验发上来。 邮件与我们的工作生活息息相关,很多的信息传递都是通过邮件完成的。所以邮件对我们来说很重要,虽然可以每次登录邮箱进行操作,但邮件资料总是要通过网站登录,而且还要一个一个自己下载,这样操作在网速较慢时比较费力。现在有一些很邮件管理工具,如foxmai
6 楼 2015-01-14 11:25
5 楼 2015-01-14 10:25
4 楼 2015-01-14 10:02
3 楼 2015-01-14 09:50
2 楼 2015-01-14 09:46
1 楼 2015-01-13 17:06