idmessage怎么接收多个附件的邮件?

Question

如题,小弟现在做的只能接收一个附件的邮件,当有多个附件是,就会出错.请大虾指点!

Answer 1

for intIndex := 0 to Pred(Msg.MessageParts.Count) do
  begin
    if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
    begin 
      //是附件，存起来
    end
    else
    begin //body text
      if Msg.MessageParts.Items[intIndex] is TIdText then
      begin
        //正文
        Memo1.Lines.Clear;
        Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[intIndex]).Body);
      end
    end;
  end;