用idsmtp发邮件问题~！高手请进~！急急急急急急急急急急急急~！

Question

我想用idsmtp来发送网页的模板，可以收到的确是网页的源码，请问我该怎么作~！
急急急急~！

Answer 1

var T:Tstrings;
begin
  T:=Tstringlist.Create;
  T.LoadFromFile('.\xxx.txt');
  if T.Count=0 then exit;
  idmessage1.Body.Assign(T);
  idmessage1.From.Address:='[email protected]';
  idmessage1.Recipients.EMailAddresses:='[email protected]';
  idmessage1.Subject:='title';
  try
    idsmtp1.Connect();
    idsmtp1.Send(idmessage1);
  finally
    idsmtp1.Disconnect;
  end;
end;

Answer 2

=》回复人： jinjazz(我是jin)这是我写的代码：
begin
  with IdMessage1 do
    begin
      Body.Assign(Memo1.Lines);
      From.Address := Trim(Edit1.Text);
      Recipients.EMailAddresses := Trim(Edit2.Text);
      Subject := Edit3.Text;
    end;
  with IdSMTP1 do
    begin
      Host := ******;
      Port := 25;
      AuthenticationType:=atLogin;
      Username:=*****;
      Password:=*****;
      try
      Connect(1000);
      Send(IdMessage1);
      ShowMessage('发送完毕');
      finally
      Disconnect;
      end;    end;
end;
发是能发出去，可是全是网页的源码~！我该在那改~！

Answer 3

我是在form上做了个Memo，然后把网页模板提交到Memo里面去，把这个Memo做为邮件的内容发出去的~！