相关推荐
-
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;
-
用Delphi实现邮件附件收发功能
很久没有发过博客了,不知道为什么没这个思想来博客上转转。今天把这个前段时间做的试验发上来。 邮件与我们的工作生活息息相关,很多的信息传递都是通过邮件完成的。所以邮件对我们来说很重要,虽然可以每次登录邮箱进行操作,但邮件资料总是要通过网站登录,而且还要一个一个自己下载,这样操作在网速较慢时比较费力。现在有一些很邮件管理工具,如FOXMAIL等,这些工具功能相当完善了,但功能一多也就...
-
弥补 idPop3 缺少的 Subject 只是这部分的处理.
在收到163.com等一些邮件的时候 subject 通常是下面的形式, =?gb2312?B?Z290b21vYmlsZQ==?= 这个翻译过来就是 pic test 只需要一个函数就可以处理好了!indy也就不再残缺了.. //idPop3缺少的只是这部分的处理. Subject// this function by Chris G黱ther and Sergio Kes
-
第六章 从POP3服务器提取电子邮件
文章目录 第六章 从POP3服务器提取电子邮件从POP3服务器提取电子邮件与POP3服务器通信获取有关邮箱的信息GetMailBoxStatus()GetMessageUIDArray()GetSizeOfMessages()从邮箱提取邮件Fetch()FetchMessage() 第六章 从POP3服务器提取电子邮件 从POP3服务器提取电子邮件 与POP3服务器通信 如果拥有所需的权限,并且邮件服务器正在运行,则可以使用POP3协议从该服务器下载和处理电子邮件。通常,要与POP3服务器通信,请登录,执
-
用Indy创建收发电子邮件的例子
1、创建工程,在窗体中加入IdSMTP1、IdMessage1和IdPOP31(Indy控件标签组)控件各一个。 2、设置 IdSMTP1.Host := SMTP.163.com;(我用的是163检试,具体也可选择其它服务器) IdSMTP1.Username := caoyan528;(此处即表示邮箱的帐号名,例如邮箱为:aaaaaa@163.com,则
-
使用Delphi收发GMail的邮件
GMAIL的端口和连接方式比较特殊: SMTP端口为:456 POP3端口为:995 都采用安全连接(SSL) 这些通过Indy组件就可以实现 参考代码如下: object IdConnectionInterceptOpenSSL1: TIdConnectionInterceptOpenSSL SSLOptions.Method = sslvSSLv2 SSLOptio
-
【Delphi入门】网络服务2(POP3协议 & NMPOP3组件)
POP3 协议应用 POP3 协议简单介绍 POP3是一种高级网络协议,全称为Post Office Protocol Version 3。使用该协议,用户使用客户端软件能够动态地,有效地访问服务器上的邮件。简而言之,POP3是一种能够让客户端软件提取在服务器中存放的邮件的协议 NMPOP3 组件 在Delphi6中位于Fastnet组件面板上的NMPOP3组件封装了POP3电子邮件协议,可以用来检索网络POP3服务器上的电子邮件信息。例如有几封邮件,删除邮件,邮件的文本信息等 NMPOP3 组件的主要属性
-
Delphi邮件接收实例TIdPop3
用DELPHI开发的邮件接收程序 邮件接收程序,欢迎学习的朋友下载。
6 楼 y8c8w8 2015-01-14 11:25
5 楼 chenxun101 2015-01-14 10:25
4 楼 yixiandave 2015-01-14 10:02
3 楼 Joey王 2015-01-14 09:50
2 楼 devilyard 2015-01-14 09:46
1 楼 lizhengd1 2015-01-13 17:06