怎样把一个由PARADOX建立的表的内容变成TEXT文件,由EMAIL传送

Question

select * 后，自己写文件啊。
然后使用 NMSMTP控间发送。我得一个项目重的一个函数或许你可以看看：
function SendMail(s:WideString;UserName:string;which:string):Boolean;
var
  email:string;
begin
{ DONE : 发给用户的email }
  try    try
    if (MailSmtpServerConnect()) then
    begin
      email:=GetUserEmail(UserName);
      Form_main.NMSMTP1.PostMessage.FromAddress :='[email protected]';
      Form_main.NMSMTP1.PostMessage.FromName :='定单管理员';
      Form_main.NMSMTP1.PostMessage.ToAddress.Text :=email;
      Form_main.NMSMTP1.PostMessage.ToCarbonCopy.Text :='';
      Form_main.NMSMTP1.PostMessage.ToBlindCarbonCopy.Text :='';
      Form_main.NMSMTP1.PostMessage.Body.Text :=s;
      Form_main.NMSMTP1.PostMessage.Attachments.Text := '';
      if (which='cuikuan') then
        Form_main.NMSMTP1.PostMessage.Subject :='新华在线提醒您!'
      else
        Form_main.NMSMTP1.PostMessage.Subject :='新华在线订货单';
      Form_main.NMSMTP1.PostMessage.LocalProgram := '';
      Form_main.NMSMTP1.PostMessage.Date :=DateTimeToStr(Now);
      Form_main.NMSMTP1.PostMessage.ReplyTo :='[email protected]';
      Form_main.NMSMTP1.SendMail;
      result:=true;
      Form_main.NMSMTP1.Disconnect;
    end;
    except
      result:=false;
    end;
  finally
  end;end;

Answer 1

少了个调用的函数哈哈：
{-----------------------------
desc: connect to smtp server
------------------------------}
function MailSmtpServerConnect():Boolean;
begin
  try
  begin
    Form_main.NMSMTP1.Host :=SmtpServer;
    Form_main.NMSMTP1.Port :=Port;
    Form_main.NMSMTP1.UserID :=UserID;
    Form_main.NMSMTP1.Connect;
    result:=true;
  end;
  except
    result:=false;
  end;
end;