邮件接收idmessage的问题

Question

var List: TStringList;
    S: String;
....
else
    begin //body text
      if Msg.MessageParts.Items[intIndex] is TIdText then
      begin
        try
          List := TStringList.Create;
          List.AddStrings(TIdText(Msg.MessageParts.Items  
                          [intIndex]).Body);
          S := List.Text;
        finally
          List.Free;
        end;
      end;
    end;S 就是邮件正文

Answer 1

错了var List: TStringList;
    S: String;
....
else
    begin //body text
      if Msg.MessageParts.Items[intIndex] is TIdText then
      begin
        List := TStringList.Create;
        try
          List.AddStrings(TIdText(Msg.MessageParts.Items  
                          [intIndex]).Body);
          S := List.Text;
        finally
          List.Free;
        end;
      end;
    end;这样才对