sendmail.pas

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· PAS 代码 · 共 61 行

unit sendmail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, shellapi;

type
  TmailForm = class(TForm)
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Edtsenduser: TEdit;
    Label6: TLabel;
    Edtusermail: TEdit;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Edtreceiver: TEdit;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    Edtsendsubject: TEdit;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mailForm: TmailForm;

implementation

uses hycxgl;

{$R *.dfm}

procedure TmailForm.BitBtn1Click(Sender: TObject);
var addr:string;
    paddr:Pchar;
begin
    addr:='Mailto:'+EDTRECEIVER.Text+'?SUBJECT='+edtsendsubject.Text+'&cc='+edit1.Text+'&bcc='+edit2.Text+'&body='+memo1.Lines.Text;
    getmem(paddr,length(addr)+1);
    zeromemory(paddr,length(addr)+1);
    strpcopy(paddr,addr);
    shellexecute(self.Handle,nil,paddr,nil,nil,sw_normal);
    freemem(paddr);
    if hyglform.CheckBox1.Checked then begin
     if not hyglform.ADOQuery1.Eof then hyglform.ADOQuery1.Next;
     Edtreceiver.Text:=hyglform.adoquery1dzyjdz.AsString;
    end;
end;

end.