sendmail.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit SendMail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IdSocks, IdMessage, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, DB,
  ADODB, ADOQry, Mask, DBCtrls, ComCtrls;

type
  TfrmSendMail = class(TForm)
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Panel1: TPanel;
    Label7: TLabel;
    edSendTo: TEdit;
    Label11: TLabel;
    edSubject: TEdit;
    cmdSend: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    cmdQSend: TButton;
    ADOConnection1: TADOConnection;
    qrySet: TADOQry;
    qrySetMailSender: TStringField;
    qrySetMailServer: TStringField;
    qrySetMailSrvPort: TIntegerField;
    qrySetMailUser: TStringField;
    qrySetMailPassword: TStringField;
    qrySetMailEBookAdmin: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    ProgressBar1: TProgressBar;
    qryMails: TADOQry;
    qryMailsMailTo: TStringField;
    qryMailssSubject: TStringField;
    qryMailssMessage: TStringField;
    procedure cmdSendClick(Sender: TObject);
    procedure cmdQSendClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function SendMails(tsMails: string):Boolean;
  end;

var
  frmSendMail: TfrmSendMail;

implementation

{$R *.dfm}

procedure TfrmSendMail.cmdSendClick(Sender: TObject);
begin
  //硈钡狝叭竟
 if not IdSMTP1.Connected then
 begin
  IdSMTP1.Host := qrySetMailServer.Value;
  IdSMTP1.Port := qrySetMailSrvPort.Value;
  IdSMTP1.UserID := qrySetMailUser.Text;
  IdSMTP1.Password := qrySetMailPassword.Text;

  IdSMTP1.SocksInfo.Host := qrySetMailServer.Value;
  IdSMTP1.SocksInfo.Port := qrySetMailSrvPort.Value;
  IdSMTP1.SocksInfo.UserID := qrySetMailUser.Text;
  IdSMTP1.SocksInfo.Password := qrySetMailPassword.Text;
  IdSMTP1.SocksInfo.Authentication :=saUsernamePassword;
  IdSMTP1.Connect;
 end;

	//祇癳秎ン
	IdMessage1.Subject := edSubject.Text;
	IdMessage1.Recipients.EMailAddresses :=edSendTo.Text;
	IdMessage1.From.Text := qrySetMailSender.Value;
	IdMessage1.Body.Text := Memo1.Text;

    IdMessage1.GenerateHeader;
	IdSMTP1.Send(IdMessage1);


  //沧ゎ硈钡狝叭竟
  IdSMTP1.Disconnect;
  
	//玂