unigui如何发邮件

UniGUI 本身并不提供发邮件的功能，但可以通过调用第三方邮件组件来实现邮件发送。常见的第三方邮件组件有 Indy 和 Synapse 等。以下是使用 Indy 组件发送邮件的示例代码：

uses
  IdMessage, IdSMTP, IdText;

procedure SendMail(const AHost, APort, AUserName, APassword, AFrom, ATo, ASubject, AContent: string);
var
  LMsg: TIdMessage;
  LSMTP: TIdSMTP;
  LTxt: TIdText;
begin
  LSMTP := TIdSMTP.Create(nil);
  LMsg := TIdMessage.Create(nil);
  LTxt := TIdText.Create(nil);
  try
    // 邮件服务器设置
    LSMTP.Host := AHost;
    LSMTP.Port := StrToIntDef(APort, 25);
    LSMTP.Username := AUserName;
    LSMTP.Password := APassword;

    // 邮件设置
    LMsg.From.Text := AFrom;
    LMsg.Recipients.Add.Address := ATo;
    LMsg.Subject := ASubject;

    // 邮件正文
    LTxt.Body.Text := AContent;
    LMsg.ContentType := 'text/plain; charset=UTF-8';
    LMsg.ContentTransferEncoding := '8bit';
    LMsg.Body := LTxt;

    // 发送邮件
    LSMTP.Authenticate;
    LSMTP.Connect;
    try
      LSMTP.Send(LMsg);
    finally
      LSMTP.Disconnect;
    end;
  finally
    LTxt.Free;
    LMsg.Free;
    LSMTP.Free;
  end;
end;

以上代码需要传入以下参数：

- AHost: 邮件服务器地址；
- APort: 邮件服务器端口号，默认为 25；
- AUserName: 邮箱用户名；
- APassword: 邮箱密码；
- AFrom: 发件人邮箱地址；
- ATo: 收件人邮箱地址；
- ASubject: 邮件主题；
- AContent: 邮件正文。

调用方法如下：

SendMail('smtp.example.com', '25', 'user@example.com', 'password', 'user@example.com', 'recipient@example.com', '邮件主题', '邮件正文');

注意：以上示例代码只是提供了邮件发送的基础功能，具体实现需根据具体需求进行调整和完善。