请问delphi7如何实现发送邮件

请问如何实现用户加载我的程序窗体之后自动发送邮件到别人邮箱?例如别人的邮箱是123456@qq.com

答案：function TForm1.SendEmail: Boolean;
  var
  idattachment: TIdAttachment;
  begin
  Result:= false;
  try
  Msg.Clear;
  Msg.Body.Add(RzMemo1.Text); //邮件内容
  Msg.From.Text:= RzEdit7.Text; //副标题
  Msg.From.Name:= RzEdit3.Text; //发件人
  Msg.Subject:= RzEdit4.Text; //标题
  Msg.Recipients.EMailAddresses := '123456@qq.com';// 发送者地址
  if RzEdit5.Text <> '' then
  idattachment:= tidattachment.Create(Msg.MessageParts, RzEdit5.Text);
  SMTP.AuthenticationType:=atLogin;
  SMTP.Host:= RzEdit6.Text;
  SMTP.Username:= RzEdit7.Text;
  SMTP.Password:= RzEdit8.Text;
  SMTP.Port := 25;
  SMTP.Connect;
  SMTP.Send(Msg);
  SMTP.Disconnect;
  except
  on E: Exception do
  begin
  Application.MessageBox(Pchar('发送邮件失败:' + E.message), 'szy', MB_OK or MB_ICONINFORMATION);
  SMTP.Disconnect;
  exit;
  end;
  end;
  
 Application.MessageBox(Pchar('发送邮件成功!'), 'szy', MB_OK or MB_ICONINFORMATION);
  Result:= true;
  end;

上一个：delphi与C++优缺点说一下
下一个：delphi如何读取串口（com)