用Delphi实现邮件附件收发功能

很久没有发过博客了,不知道为什么没这个思想来博客上转转。今天把这个前段时间做的试验发上来。

邮件与我们的工作生活息息相关,很多的信息传递都是通过邮件完成的。所以邮件对我们来说很重要,虽然可以每次登录邮箱进行操作,但邮件资料总是要通过网站登录,而且还要一个一个自己下载,这样操作在网速较慢时比较费力。现在有一些很邮件管理工具,如FOXMAIL等,这些工具功能相当完善了,但功能一多也就天花乱缀了,使用起来就不怎么爽心悦目了,么那如果我们能自己打造一个适合自己需要的邮件管理工具是一个挺不错的选择。

经过测试,用DELPHI中的TIdPOP3  和TIdSMTP这两个组件完全能够对大部份邮件服务器进行邮件收发操作。

TIdPOP3组件简介

TIdPOP3 是用来接收邮件服务器的邮件信息到用户端的一个组件。它实现了RFC 1939协议。

在使用TIdPOP3组件时需设置它的几个成员属性。

Host :指定邮件服务器,一般为pop3邮件服务器的地址,如 pop3.126.com。

Username :用户名,也就是邮箱名,如[email protected]

Password :邮箱密码,在进行收发邮件时组件需要凭密码进行登录。

其它成员属性

Connected:返回它与邮件服务器的连接状态,这true表示已经连接。

CheckMessages:邮件数,如果连接服务器成功,则可以获得服务器端的邮件数。

成员函数

procedure Connect(const ATimeout: Integer = IdTimeoutDefault);

与服务器连接函数。参数为无效连接时等待的毫秒数。

function RetrieveHeader(const MsgNum: Integer; AMsg: TIdMessage): Boolean;

接收邮件头信息,它有两个参数,MsgNum表示在接收第几个邮件,从1开始,AMsg为邮件消息组件实例。

function Retrieve(const MsgNum: Integer; AMsg: TIdMessage): Boolean;

接收邮件主体信息,它与    RetrieveHeader的参数是一样的。接收的邮件内容将保存在AMsg中。

function Delete(const MsgNum: Integer): Boolean;

删除邮件服务器中第几个邮件。从1开始。

procedure Disconnect; override;

关闭连接。

TIdMessage组件简介

TIdMessage用来支持邮件消息协议,如POP3,SMTP,NNTP等。TIdMessage支持多用途Internet邮件扩展(MIME)协议。

常用的TIdMessage的属性:

Subject:邮件主题,这个字符串经过BASE64编码的。所以在使用时需对它进行解码。

MessageParts:这是TIdMessageParts类的一个实例,它用来存储邮件的信息。如邮件内容及附件信息。在进行解析时需要判断它是否为附件或文本,如果为附件时,其文件名是经过BASE64编码的。判断常量分别为TIdText , TIdAttachment。

Body:这是个字符串列表,包含构成该邮件的正文内容。

Form:发送邮件者的地址信息。

Recipients:收件人地址信息。

BccList:抄送地址列表。

CharSet:指示邮件信息中使用的字符集。

ContentType:指定MIME媒体数据类型,描述正文中包含的数据,使用户代理决定如何显示数据,常用的有text/html,text/xml。

TIdSMTP组件简介

TIdSMTP是TIdMessageClient派生出的一个简单邮件传输协议和SMTP客户端。

它的主要功能是发送邮件信息。

常用的属性:

Host :SMTP邮件服务器的地址,如smtp.126.com。它与上面的POP3地址不一样。

AuthenticationType:服务器认证类型,它有atNone,atLogin两种,即不需要认证和需要凭用户名和密码进行认证。

Username:用户名,这里与TIdPOP3 有点不一样,即它不需要后缀,如billanking2002

Password:邮箱登录密码。如果AuthenticationType设置了atLongin则必须设置密码和用户名。

下面来看下程序源代码:

新建一个DELPHI工程,在窗口中加入TIdPOP3,TIdMessage,TIdSMTP三个组件

加入两个按钮,一个为收邮件,一个为发邮件。加入三个编辑框,一个为服务器地址,一个为用户名,一个为密码。和一个Memo,WebBrowser控件。

下面为其工程的源文件代码。

判断输入的字符串是不是为一个邮件地址。

function TForm1.IsEMail(EMail: String): Boolean;

var

s: String;

ETpos: Integer;

begin

ETpos:= pos(‘@‘,EMail);    //主要判断有没有@符

if ETpos> 1 then

begin

s:= copy(EMail,ETpos+1,Length(EMail));

if (pos(‘.‘,s) > 1) and (pos(‘.‘,s) < length(s)) then Result:= true

else Result:= false;

end

else Result:= false;

end;

BASE64编码转换,这个很重要,因为邮件的标题,及附近的文件名都是经过了编码转换的。

function TForm1.Base64Decode(strInput:string):string;

var

strDecode : string;

posStart : Integer;

posEnd : Integer;

begin

while pos(‘=?gb2312?b?‘,lowercase(strInput))>0 do

begin

try

posStart:=pos(‘=?gb2312?b?‘,lowercase(strInput));

posEnd:=pos(‘?=‘,lowercase(strInput));

strDecode:=strDecode+copy(strInput,1,posStart-1)+IdDecoderMIME1.DecodeString (copy(strInput,posStart+11,posEnd-posStart-11));

strInput:=copy(strInput,posEnd+2,length(strInput)-posEnd-1);

finally

Application.ProcessMessages;

end;

end;

strDecode := strDecode + strInput;

result := strDecode;

end;

收邮件功能函数:

procedure TForm1.BitBtn1Click(Sender: TObject);

var

i,j,mnnn,mailcount:integer;

tmp:string;

begin

IdPOP31.Host := e_address.text;

dPOP31.Username := e_username.text

dPOP31.Password := e_password.text;

while true do

begin

IdPOP31.Connect();                          //连接到POP3服务器

if (IdPOP31.Connected = true) then

begin

break;

end

else begin

IdPOP31.Password :=‘gozhyflkmcfs‘;

end;

end;

mailcount := IdPOP31.CheckMessages;         //得到邮箱中邮件的个数

mnnn := 0;

for i:=1 to mailcount do                        /遍历每一封邮件

begin

IdMessage1.Clear;

IdPOP31.retrieveHeader(i,IdMessage1);  //得到邮件的头信息

tmp := IdMessage1.Subject;             //得到邮件的标题

Memo1.Lines.Add(‘-----------------------------------------------------‘);

tmp := Base64Decode(tmp);                //邮件标题BASE64解码

memo1.Lines.Add(tmp);

IdPOP31.Retrieve(i,IdMessage1);        //接收到邮件所有内容

for j:=0 to idmessage1.MessageParts.Count-1 do

begin

try

if (IdMessage1.MessageParts.Items[j] is TIdAttachment) then

//匹配邮件条目是否是附件

Begin tmp:=Base64Decode(TIdAttachment(IdMessage1.MessageParts.tems[j]).FileName);

tmp := ‘C:\‘+tmp;

deletefile(tmp);  TIdAttachment(IdMessage1.MessageParts.Items[j]).SaveToFile(tmp);    //以原有文件名保存附件在指定目录

end

else begin

if (idmessage1.MessageParts.Items[j] is TidText) then

begin

if  Message1.Body.Text<>‘‘ then

sethtml(WebBrowser1,tidtext(idmessage1.MessageParts.Items[j]).Body.text)

else memo1.Lines.Add(tidtext(idmessage1.MessageParts.Items[j]).Body.text);

end;

end;

except

continue;

end;

end;

if checkbox1.Checked = true then

begin

try

idpop31.Delete(i);       //删除收到的邮件

except

continue;

end;

end;

end;

idpop31.DisconnectSocket;

IdPOP31.Disconnect;

end;

发送邮件功能函数:

procedure TForm1.BitBtn2Click(Sender: TObject);

var

filename:string;

begin

IdSMTP1.Host := e_address.text;

idsmtp1.AuthenticationType := atLogin;         //{atNone,atLogin}

IdSMTP1.Username := e_username.text;

IdSMTP1.Password := e_password.text;

filename := ‘d:\comunition.rar1‘;

TIdattachment.Create(IdMessage1.MessageParts,filename);    //加入附件

filename := ‘d:\comunition.rar‘;

TIdattachment.Create(IdMessage1.MessageParts,filename);    //加入多个附件

IdMessage1.From.Address := ‘[email protected]‘;         //邮件来自哪里

IdMessage1.Recipients.EMailAddresses:=‘[email protected]; //收件人

idMessage1.BccList.Add.Text := ‘[email protected]‘;  //抄送地址列表

idMessage1.BccList.Add.Text := ‘[email protected]‘;

idMessage1.BccList.Add.Text := ‘[email protected]‘;

IdMessage1.Subject:= ‘邮件客户端‘;

IdMessage1.Body.Text := Memo1.Text;   //此处为邮件正文

IdMessage1.CharSet := ‘gb2312‘;        //保证附件正文汉字的正常显示

idmessage1.ContentType := ‘text/html‘;   //超文本方式传输

IdMessage1.Body.Assign(Memo1.Lines);

if IdSMTP1.AuthSchemesSupported.IndexOf(‘LOGIN‘)>-1 then

begin

IdSMTP1.AuthenticationType := atLogin;

//连接前要保存为Login  上面己设,此处不必要

IdSMTP1.Authenticate;

end;

try

IdSMTP1.Connect();           //连接SMTP服务器

IdSMTP1.Authenticate;

IdSMTP1.Send(IdMessage1);   //向服务器发送邮箱

finally

if IdSMTP1.Connected then IdSMTP1.Disconnect;    //断开与服务器的连接

end;

end;

至此,邮件收发功能基本完成。要做一个功能完整的邮件收发管理工具,还需要加入邮件管理功能。这些功能主要是通过在本地操作文件实现。这样可以以自己的方式保管理这些邮件。

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/billanking/archive/2010/12/18/6083616.aspx

时间: 2024-10-08 13:18:43

用Delphi实现邮件附件收发功能的相关文章

邮件附件在线预览——HTML Filter

邮件附件在线预览,就是当收到邮件带有附件时,尤其是超大附件,可以不用下载邮件中的附件,通过web页面,以在线的方式读取其中的内容.此功能方便用户直接查看附件,节省下载的时间,同时也在很多时候极大的方便了没有安装相应软件的用户,对于异地登录邮箱用户,更是一项不错的服务. HYF数据格式转换软件HTML Filter便于用户实现对多种文档的统一管理,编辑,检索和浏览,能够完美的实现邮件附件在线预览功能.本产品采用了先进的多语言.多平台.多线程的设计理念,支持多国语言,多种操作系统,提供了多种形式的A

邮件附件在线预览——HYF数据格式转换软件HTML Filter

邮件附件在线预览,就是当收到邮件带有附件时,尤其是超大附件,可以不用下载邮件中的附件,通过web页面,以在线的方式读取其中的内容.此功能方便用户直接查看附件,节省下载的时间,同时也在很多时候极大的方便了没有安装相应软件的用户,对于异地登录邮箱用户,更是一项不错的服务. HTML Filter V1是由北京红樱枫软件有限公司依据HTML Ver 4.01/CSS式样,研制和开发的MS Office系列文档到HTML转换的通用程序库.便于用户实现对多种文档的统一管理,编辑,检索和浏览,能够完美的实现

C#实现邮件发送的功能

#实现邮件发送的功能 Ø  发送邮件所用的核心知识点 微软封装好的MailMessage类:主要处理发送邮件的内容(如:收发人地址.标题.主体.图片等等) 微软封装好的SmtpClient类:主要处理用smtp方式发送此邮件的配置信息(如:邮件服务器.发送端口号.验证方式等等) SmtpClient主要进行了三层的封装:Socket --> TcpClient --> SmtpClient Ø  具体代码请看如下所示: using System;using System.Collections

ADManager Plus: 如何修改Exchange发送的邮件附件大小

ADManager Plus: 如何修改Exchange发送的邮件附件大小项目工期紧!时间宝贵!今天就要提交和完成报告审核!然而,项目的负责人试着发送邮件却受到邮件发送失败的消息,只是因为附件太大.不仅仅像这位负责人这样,项目组的其他成员也需要发送比这位负责人发送的附件更大的文件.因此,只好向IT发出紧急求救电话.如果您是IT管理员将会做些什么呢?这个项目50个人参与,现在也没有时间去考虑一个脚本或者下载一个免费软件来帮您完成这项任务.另外,您更没有时间手动更改50个用户的邮件附件大小.使用AD

[stm32] USART USART1收发功能工程

>_<!功能:PC端发送一个特定的字符:0x0d 0x0a,单片机则返回一句话,如图: >_<!知识: 1.复用功能I/O和调试配置(AFIO)  为了优化外设数目,可以把一些复用功能重新映射到其他引脚上.设置复用重映射和调试I/O配置寄存器(AFIO_MAPR)(参见0节)实现引脚的重新映射.这时,复用功能不再映射到它们的原始分配上. 2.嵌套向量中断控制器(NVIC) l 43 个可屏蔽中断通道(不包含16 个Cortex-M3 的中断线):  l 16 个可编程的优先等级: 

SAP B1 9.1开启邮件定时发送功能

SAP B1 9.1开启邮件定时发送功能需要几个步骤 1.服务端开启SBO Mailer 2.配置发件箱 3.设置警报提示管理 注意: 1.登陆人发件箱必须使用服务端上配置的发件箱,用户缺省设置邮箱也要为发件箱 2.设置好发送频率后,不管发件人是否登陆系统,邮件都会自动发送

解析大型.NET ERP系统 通用附件管理功能

大型系统具备一个通用的附件管理功能,对于单据中无法清晰表达的字段,用一个附件图片或附件文档表示是最好的方法了.比如物料清单附加一张CAD图纸,销售订单评审功能中附加客户的各种表格,通用附件功能对系统起到画龙点睛的作用.一图解千言,先来看一下界面设计模式,看起来和一般的数据输入功能相同. 首先是设计附件表,它的定义参考下面的代码. CREATE TABLE [dbo].[Attachment] ( [Index] [int] NOT NULL, [MasterTable] [nvarchar] (

Delphi 各版本新特性功能网址收集

Delphi XE2 三个新功能介绍举例_西西软件资讯  http://www.cr173.com/html/13179_1.html delphi 2007新功能简介-davidxueer-ChinaUnix博客  http://blog.chinaunix.net/uid-217463-id-2689877.html [转]Delphi XE6新增特性及功能_红鱼儿_新浪博客  http://blog.sina.com.cn/s/blog_44fa172f0101rz6n.html Delp

C# MailMessage Attachment 中文名附件发邮件-Firefox中文显示正常,网页打开邮件附件中文名乱码

一.故事 首先通过CDO.Message来获取邮件EML相关数据:邮件标题.邮件内容.邮件附件.发件人.收件人.CC主要就这么几个,其次通过MailMessage来组织邮件通过Python来发送邮件! 就这么简简单单的需求!!问题出现了,中文附件名!Web打开始终是乱码!使用邮件客户端FireFox是OK的,查看了FireFox源码发现是乱码,这点说明FireFox的强大,非常强大! Content-Type: application/octet-stream; name=鎶ラ攢鍗昪s.xlsx