如何在程序中将收到的附件保存?(30分)

  • 主题发起人 主题发起人 thdelphi
  • 开始时间 开始时间
T

thdelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
D6,IDPOP3
如何将收到的邮件的附件保存下来?
下面的代码中fname写为什么?应该是附件的名称,但如何得知附件的名称?
for j := 0 to idmessage1.MessageParts.Count - 1 do
begin
if idmessage1.MessageParts.Items[j] is TIdAttachment then
begin
TIdAttachment(idmessage1.MessageParts.Items[j]).SaveToFile(fname);
end;
end;
 
本问题在于如何获得附件的文件名?
 
你要研究一下邮件的格式。
 
我也想知道。
 
没人知道吗?
 
Delphi6 Demo中有例子,看看就知道了。
 
TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename
 
多人接受答案了。
 

Similar threads

后退
顶部