我用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的图象信息,请问怎么获取图片?
解决方案 »
- 求一個SQL(insert\update\delete)觸發器???
- FastReport报表子表如何分组
- SQL SERVER2000 ADO连接数据库 转 sqlite连接
- 如何在ActiveX的dll中调用外边exe程序???
- ???COM+内存问题???
- ADO+DBComboBox怎么能显示完整的一个字段的值(最好有源码,高分奉上)
- delphi7 向word插入图片 放置最后
- 什么工具做安装工具比较容易?
- 关于Stringgrid高亮显示的用法,谁能告诉我
- odac3.5(oracle data access components version 3.50 net for delphi 6)哪里有下?
- 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;