e-mail大问题(50分)

1、收发e-mail（不管是纯文本还是html格式的）时如何获取e－mail的正文，并将他打印出来呢？
我用的是：
TidText(TIdMessage.MessageParts.Items[index]).Body，
不知道能不能获取html格式的正文，另外body是Tstrings的，如何将它保存为一个txt文档呢？
2、对于不同的邮件（纯文本或者html格式的），应该如何获取它所带的附件呢？
我用的是：
if (TIdMessage.MessageParts.Items[index] is TIdAttachment) then begin
FileName := TIdAttachment(TIdMessage.MessageParts.Items[index]).Filename;
end;
对于html格式的邮件，好像它所附带的那些图片也是作为附件吗？

高手帮忙啊