如何从email中下载邮件及其付件呢？

Question

主要是不知道如何下载其附件！

Answer 1

for I:=0 to Pred(IdMessage.MessageParts.Count) do
  begin
    if IdMessage.MessageParts.Items[i] is TIdAttachment then
    begin
      AttachList.AddObject(TIdAttachment(IdMessage.MessageParts.Items[i]).FileName,
                                     TIdAttachMent(IdMessage.MessageParts.Items[i]));    end
    else begin
      if IdMessage.MessageParts.Items[i] is TIdText then
      begin
        Body:=TIdText(idmessage.MessageParts.Items[i]).Body.Text;        //Body:=
      end;

Answer 2

请问一下楼上的大虾：你用的DELPHI7吗？什么控件啊？没找到IdMessage，在哪了干什么的呀？
本人一直用的DELPHI6，对于TIdMessage不了解，请指教！