我用delphi 6.0中的NMPOP31控件做了一个下载邮件的程序:程序如下。
NMPOP31.GetMailMessage(i+1);
Memo1.Lines.Add('邮件来源:'+NMPOP31.MailMessage.From);
Memo1.Lines.Add('邮件标题:'+NMPOP31.MailMessage.Subject);
Memo1.Lines.Add('邮件ID:'+NMPOP31.MailMessage.MessageID);
Memo2.Lines.Assign(NMPOP31.MailMessage.Head);
Memo1.Lines.Add('邮件简述:');
Memo1.Lines.Add(Memo2.text);
Memo2.Lines.Assign(NMPOP31.MailMessage.Body);
Memo1.Lines.Add('邮件内容:');
Memo1.Lines.Add(Memo2.text);
StatusBar1.SimpleText:='此邮件的附件有:'+NMPOP31.MailMessage.Attachments.Text;程序测试过程中有两个问题:
一、有时候邮件正文中出现乱码。请问有什么函数可以把它变成汉字吗?
二、NMPOP31.MailMessage.Attachments.Text 下载附件的时候,有时候不能完全下载,比如朋友给我发的MMS 彩信图片,我下载下来的是一个Temp1.mme 和一个temp.tmp文件,在temp.tmp中可以知道有一个*.jpg的图象信息,请问怎么获取图片?
NMPOP31.GetMailMessage(i+1);
Memo1.Lines.Add('邮件来源:'+NMPOP31.MailMessage.From);
Memo1.Lines.Add('邮件标题:'+NMPOP31.MailMessage.Subject);
Memo1.Lines.Add('邮件ID:'+NMPOP31.MailMessage.MessageID);
Memo2.Lines.Assign(NMPOP31.MailMessage.Head);
Memo1.Lines.Add('邮件简述:');
Memo1.Lines.Add(Memo2.text);
Memo2.Lines.Assign(NMPOP31.MailMessage.Body);
Memo1.Lines.Add('邮件内容:');
Memo1.Lines.Add(Memo2.text);
StatusBar1.SimpleText:='此邮件的附件有:'+NMPOP31.MailMessage.Attachments.Text;程序测试过程中有两个问题:
一、有时候邮件正文中出现乱码。请问有什么函数可以把它变成汉字吗?
二、NMPOP31.MailMessage.Attachments.Text 下载附件的时候,有时候不能完全下载,比如朋友给我发的MMS 彩信图片,我下载下来的是一个Temp1.mme 和一个temp.tmp文件,在temp.tmp中可以知道有一个*.jpg的图象信息,请问怎么获取图片?
解决方案 »
- 关于clientdataset的问题
- delphi内的dbgrid导出到 EXCEL,为何老有现在打开的excel文档的数据,不仅仅是现在dbgrid内的数据!
- delphi调用Vc Dll问题?
- 100分求助:关于BatchMove的奇怪问题!!!分不够再给。
- 怎么样在QREPORT中显示出二个细表的全部内容,在线急待,高分相送
- 请问dxExEdtr, dxBar是属于哪个控件包.说出名称即可得分.
- 难道CSDN上就没有高手 了吗??我问的这个问题竟然没有人回答?
- question!!!
- 各位兄弟评理!小弟在一家公司实习差不多三月,实习前规定小弟只要做出一软件就可以把小弟转为正式员工!在此之前没工资!可小弟已经作好
- 关于模糊查询!!!请高手指点!!
- FastReport自带脚本语言问题
- 谁能提供一个钩子示例程序?
2、存储附件的代码如下:
for i := 0 to Msg.MessageParts.Count - 1 do begin
if Msg.MessageParts.Items[i] is TIdAttachment then begin
if SaveDialog1.Execute then
TIdAttachment(Msg.MessageParts.Items[i]).SaveToFile(
SaveDialog1.FileName);
break;
end;