邮件程序,发送的内容包含很多邮件体信息，怎么去掉？？

Question

写了邮件发送程序,可以发送邮件，但是发送的内容包含很多邮件体信息，具体如下：
Received: from 163.com (unknown [202.108.44.206]) by bjmx2 (Coremail) with SMTP id 38ICsfgdgdfg.1 for ; Sat, 27 Aug 2005 21:49:57 +0800 (CST) X-Originating-IP: [202.108.44.206] Received: from zfgfd (unknown [221.4.182.60]) by smtp3 (Coremail) with SMTP id dgdsgdsfgdsfg2 for ; Sat, 27 Aug 2005 21:49:55 +0800 (CST) X-Originating-IP: [221.4.182.60] From: =?GB2312?B?ztI=?= Subject: dfsadf To: [email protected] Content-Type: multipart/*; charset="GB2312_CHARSET" Reply-To: [email protected] Date: Sat, 27 Aug 2005 21:52:34 +0800 X-Priority: 3 X-Library: Indy 9.00.10 Message-Id: <43106F85.23CDC8.23296> MemoNewMail sdafasdfsafssdafsdaf 但是邮件正文只有最后一行是，而且没有格式了怎么改正才好啊？？高手指正一下！！
我用的是IdSMTP和IdMessage，发送程序如下:
begin
  if not IdSMTP1.Connected then
  begin
    if FormConfig.AuthType.Checked then
      IdSMTP1.AuthenticationType := atLogin
    else
      IdSMTP1.AuthenticationType := atNone;
    IdSMTP1.Host := FormConfig.EditSMTP.Text;
    IdSMTP1.Port := StrToInt(FormConfig.EditSMTPPort.Text);
    IdSMTP1.Username := FormConfig.EditUser.Text;
    IdSMTP1.Password := FormConfig.MaskEditPw.Text;
    IdSMTP1.Connect();
  end;
  //显示用户信息
  StatusBar1.SimpleText := '和服务器已建立连接';
  with IdMessage1 do
  begin
    From.Address := FormConfig.EditReplyTo.Text; //发件人地址
    From.Name := FormConfig.EditName.Text;
    Recipients.EMailAddresses := EditToAddress.Text; //收件人地址
    CCList.EMailAddresses := EditCarbonCopy.Text;
    ReplyTo.EMailAddresses := FormConfig.EditReplyTo.Text;
    Subject := EditSubject.Text; //邮件主题
    CharSet := 'GB2312_CHARSET';
    ContentType := 'multipart/*';
    Body.Assign(MemoNewMail.Lines);  //正文为纯文本的邮件
  end;  try
    IdSMTP1.Send(IdMessage1);
  finally
    IdSMTP1.Disconnect;
  end;
end;
先谢谢了！！！

Answer 1

没有做过邮件, 可以直取最的在接收完成后直取后面的内容--copy(),前面的那些内容是邮件属性详细资料用的. Body.Assign(MemoNewMail.Lines);  这样发送的当然不会有什么的样式了,如HTML的方式发送,直接把HTML的的原码发送过去就可以了~

Answer 2

没有用过IdSMTP， 我是用TNMSMTP的，你可以试试，差不多的 

Answer 3

上面的问题 好象是IdMessage1.ContentType的问题，但了解还不太清楚，他的方式到底有几种，各种的区别？？？高手的指点一下！
又遇到新问题了：
我在循环发送的时候，怎么只能发送两封，然后开始出现连接错误，我的方式是在循环时改变邮件接受地址就是---循环改变IdMessage1.Recipients.EMailAddresses的值
出问题的地方是：IdSMTP1.Send(IdMessage1);
怎么弄的啊？？？

Answer 4

提示的错误是Connection Closed Gracefully？？
怎么搞的呢？

Answer 5

邮件体信息由IdSMTP和IdMessage自动添加，好象去不了的

Answer 6

IdMessage1.ContentType的值设为text/html时还是不行啊,怎么搞的呢