代码如下:
  Self.Status.Clear;
  Self.NextMail.Enabled := False;
  Self.SMTP.Host := trim( Self.smtpHost.Text );
  Self.SMTP.Username := '[email protected]';
  Self.SMTP.AuthenticationType := atLogin;
  Self.SMTP.Password := '58990';
  Self.SMTP.Port := 25;
  Self.MailMessage.From.Address := trim( Self.MailFrom.Text );
  Self.MailMessage.Recipients.EMailAddresses := trim( Self.MailTo.Text );
  Self.MailMessage.Subject := trim( Self.Subject.Text );
  Self.MailMessage.Body.Text := Self.Body.Lines.Text;
  if FileExists( Self.Attach.Text ) then
    TIdAttachment.Create(Self.MailMessage.MessageParts,Attach.Text);
  try
      try
        Self.
        SMTP.Connect(1000);
        SMTP.Send(MailMessage);
      except on E:Exception do
        Status.Lines.Insert(0, '错误: ' + E.Message);
      end;
  finally
      if SMTP.Connected then SMTP.Disconnect;
  end;