delphi中发送邮件以附件的形式发送在代码中要怎么设置

Question

例如  SendContent:=EditLmsgMailContent(Content,PTXCInfo[i].UserName,PTXCInfo[i].FirstName,PTXCInfo[i].Tel,PTXCInfo[i].Company);
          ////////////建立邮件连接
          IdMessage1.ContentType:='text/html';
          IdMessage1.Body.Text:=SendContent ;
          IdMessage1.From.address :=Trim(Edit5.Text);    //发件人地址
          IdMessage1.From.Name:='卢俊';
          IdMessage1.Recipients.EMailAddresses:= PTXCInfo[i].Email;
          IdMessage1.Subject:='测试';
          IdMessage1.Priority := mphigh;    //优先级，mphigh为最高级。
          IdSMTP1.Send(IdMessage1);         //发送邮件         
我要把SendContent这个发送内容改成附件发送怎么改啊，我用了TIdAttachment.Create(IdMessage1.MessageParts,SendContent);这句不行发送收不到邮件那个指点一下，写出来看看啊。

Answer 1

就是把发送的内容一张网页作为附件发送啊但是网页是经过EditLmsgMailContent(Content,PTXCInfo[i].UserName,PTXCInfo[i].FirstName,PTXCInfo[i].Tel,PTXCInfo[i].Company);运行
来替换掉的所以发附件不可以发目录下那张原网页。