addemail.pas

来自「邮件群发源码」· PAS 代码 · 共 60 行

{邮件群发系统 v1.2
 作者: 于志强
 Email: [e-mail]
 msn: [e-mail]
 QQ: 15693996 (验证：delphi)
 需要指定SMTP服务器.
 目前还没找到不需要SMTP服务器的方法，望哪位大侠可以告知;
 您可以任意修改此软件，如果您对此软件有修改，希望能给我发一份。
}
unit AddEmail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, StdCtrls, Mask, RzEdit;

type
  TfrmAddEmail = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TRzEdit;
    Edit2: TRzEdit;
    Bevel1: TBevel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAddEmail: TfrmAddEmail;

implementation

uses PubUnit;

{$R *.dfm}

procedure TfrmAddEmail.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := CaFree;
end;

procedure TfrmAddEmail.RzBitBtn1Click(Sender: TObject);
begin
  if (Trim(Edit2.Text) <> '') and (Pos('@', Edit2.Text) > 0) then
  begin
    PubUnit.NewUser := Edit1.Text;
    PubUnit.NewMail := Edit2.Text;
    ModalResult := mrOK;
  end;
end;

end.