NMPOP3 接收附件，正文问题 在线等...(50分)

1.接受附件出现问题，接受到的附件是他们的名称，代码如下：
if NMPOP31.MailMessage.Attachments.Count <> 0 then
begin
for j := 0 to NMPOP31.MailMessage.Attachments.Count - 1 do
begin
if not DirectoryExists(EmailPath + '/' + IntToStr(EmployeeCoding) + '/' + NMPOP31.MailMessage.Subject) then
MkDir(EmailPath + '/' + IntToStr(EmployeeCoding) + '/' + NMPOP31.MailMessage.Subject);
NMPOP31.MailMessage.Attachments.SaveToFile(EmailPath + '/' + IntToStr(EmployeeCoding) + '/' + NMPOP31.MailMessage.Subject + '/' + NMPOP31.MailMessage.Attachments.Strings[j]);
end;
end;
2.内容是有一些其它的内容，乱七八糟的

有人知道吗 ？