估计很多人和我一样，在使用Indy的时候都会受不了众多的Bug，不得不边使用边修改。

近来一直使用Indy来收发邮件，从D7到D2007再到D2010，后来直接从SVN中检出一个最新版本来，让人惊喜的是新版本中修复了一些Bug，让人沮丧的是新版本中又重新引入了一些新的Bug，唉，锻炼人啊。

前几天简单看了一下Python，测试了一下发现Python对邮件的处理简直简练至极！并且接收和解码上也胜Indy很多，于是就想用Python来处理邮件。但因为工程是用Delphi的，所以就上网搜索了一下，发现了PythonForDelphi，使用了一下，很不错，于是就用Python做了个解码，然后在Delphi中调用。

先介绍一下相关资源：

Python4Delphi:

入门：

噢，它竟然在google上和yahoo上都安了家：

看一下Python端的代码：

1 importemail2 3 fp=open("Test.eml","r")#打开eml文件4 msg=email.message_from_file(fp)5 #msg = email.message_from_string(str) #也可以从字符串创建6 subject=msg.get("subject")#取信件头里的subject,　也就是主题7 #下面的三行代码只是为了解码象=?gbk?Q?=CF=E0=C6=AC?=这样的subject8 h=email.Header.Header(subject)9 dh=email.Header.decode_header(h)10 subject=dh[0][0]11 print"subject:", subject12 print"from:", email.utils.parseaddr(msg.get("from"))[1]#取from13 print"to:", email.utils.parseaddr(msg.get("to"))[1]#取to14 15 #循环信件中的每一个mime的数据块16 i=017 textplain=''18 texthtml=''19 20 forparinmsg.walk():21 ifnotpar.is_multipart():#这里要判断是否是multipart，是的话，里面的数据是无用的，至于为什么可以了解mime相关知识。22 name=par.get_param("name")#如果是附件，这里就会取出附件的文件名23 printname24 25 ifname:26 print'有附件'+name#此处略，不对附件做处理，只处理文本内容27 else:28 #不是附件，是文本内容29 #print par.get_payload(decode=True) # 解码出文本内容，直接输出来就可以了。30 content_type=par.get_content_type()31 ifcontent_typein['text/plain']:32 textplain=par.get_payload(decode=True)33 TextPlain.Value=textplain#这里TextPlain.Value和下面的TextHtml.Value在正常Python中是不能正确执行的，是Pytho4Delphi中的对象34 ifcontent_typein['text/html']:35 texthtml=par.get_payload(decode=True)36 TextHtml.Value=texthtml37 38 fp.close()39

好了，上面只是示例性地处理了文本内容

下面在Delphi中增加两个TPythonDelphiVar,分别为TextPlain和TextHtm，然后：

1 PE.ExecStrings(Memo1.Lines);//Memo1中为上面的Python代码，当然可以放到文件中2 ShowMessage(TextHtml.ValueAsString);//这时TextHtml.ValueAsString就是解码后的邮件超文本内容，如果有Text/plain内容，取TextPlain的值即可。

好了，不要再和Indy生气了!  :-)