正文格式为HTML，带一个附件发送的EMAIL该如何指定ContentType，顶者有分啊~

小弟写了个发送EMAIL的程序，邮件的正文为HTML格式的，带一个附件发送。message的contenttype指定为text/html。发现收到的邮件，正文是text格式的，而不是HTML
。而如果不带附件发送则可以收到正常的HTML正文。请问各位该怎么办啊，网上或资料上的一般都比较简单~百觅不得所以上来求救啊~~~程序部分代码如下：
with IdMsgSend do         //发EMEAIL
    begin
      From.Text := UserEmail;
      Recipients.EMailAddresses :=Rece_defemail
      Subject := '您好';
    tbmemo.lines.LoadFromFile('jb.txt');
    tbmemo.lines.Text:=stringreplace(tbmemo.lines.Text,'填写号码',Rece_faxno,[rfReplaceAll] );
    tbmemo.lines.Text:=stringreplace(tbmemo.lines.Text,'填写文件名',Rece_filename,[rfReplaceAll] );
    tbmemo.lines.Text:=stringreplace(tbmemo.lines.Text,'填写大小',Rece_filesize,[rfReplaceAll] );
    tbmemo.lines.Text:=stringreplace(tbmemo.lines.Text,'填写日期',Rece_recvdate,[rfReplaceAll] );
    tbmemo.lines.Text:=stringreplace(tbmemo.lines.Text,'填写时间',Rece_recvtime,[rfReplaceAll] );
    Body.Add(tbmemo.lines.Text);
    tbmemo.Lines.Clear;
     ContentType:='text/html';
      Priority := TIdMessagePriority(2);
    end;   TIdAttachment.Create(IdMsgSend.MessageParts,Rece_filerealname);    smtp.AuthenticationType:= atLogin;
    SMTP.Username := SmtpServerUser;
    SMTP.Password := SmtpServerPassword;
    SMTP.Host := SmtpServerName;
    SMTP.Port := SmtpServerPort;    SMTP.Connect;
    try
     SMTP.Send(IdMsgSend);
    finally
     SMTP.Disconnect;
    end;
    IdmsgSend.MessageParts.Delete(0);