Delphi - Indy 创建邮件自动发送服务

服务器自动邮件线程

功能：此程序主要实现对Oracle数据库表tableName（存放需要发送邮件的相关信息）里面相关信息的邮件发送。

优点：开发人员可以直接再数据库后台对tableName表进行插入操作，前台会自动发送相关邮件，高效开发。

界面布局：

代码实现如下：

 unit uSendMail;

 interface

 uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, ExtCtrls, DB, DBAccess, Ora, MemDS, RzButton, StdCtrls, RzPanel,
     RzLabel, RzCmboBx, IdComponent, IdTCPConnection, IdTCPClient,
     IdMessageClient, IdSMTP, IdBaseComponent, IdMessage, RzEdit, Mask, RzTabs;

 type
     TForm1 = class(TForm)
         RzPanel1: TRzPanel;
         Memo1: TMemo;
         Btn_Start: TRzBitBtn;
         Btn_Finish: TRzBitBtn;
         SEND_MAIL: TOraStoredProc;
         Qry_GetMail: TOraQuery;
         OraSession_sendmail: TOraSession;
         tmr1: TTimer;
         RzBitBtn1: TRzBitBtn;
         RzLabel1: TRzLabel;
         OraQuery1: TOraQuery;
         RzComboBox1: TRzComboBox;
         RzLabel2: TRzLabel;
         RzLabel3: TRzLabel;
         RzPageControl1: TRzPageControl;
         RzTabSheetTabSheet1: TRzTabSheet;
         rzgrpbxPl_to: TRzGroupBox;
         TRzLabelDis_to: TRzLabel;
         TRzLabelDis_attach: TRzLabel;
         TRzLabelDis_sub: TRzLabel;
         TRzLabelDis_cc: TRzLabel;
         TRzLabelDis_body: TRzLabel;
         rz_attach: TRzEdit;
         Rz_body: TRzMemo;
         TRzBitBtn_send: TRzBitBtn;
         TRzBitBtn_open: TRzBitBtn;
         Rz_to: TRzMemo;
         Rz_cc: TRzMemo;
         Rz_sub: TRzMemo;
         rzgrpbxPl_from: TRzGroupBox;
         TRzLabelDis_from: TRzLabel;
         TRzLabelDis_server: TRzLabel;
         TRzLabelDis_password: TRzLabel;
         rz_from: TRzEdit;
         rz_server: TRzEdit;
         rz_password: TRzEdit;
         IdMsgSend: TIdMessage;
         SMTP: TIdSMTP;
         RzTabSheetTabSheet3: TRzTabSheet;
         procedure Btn_StartClick(Sender: TObject);
         procedure Btn_FinishClick(Sender: TObject);
         procedure tmr1Timer(Sender: TObject);
         procedure FormCreate(Sender: TObject);
         procedure RzBitBtn1Click(Sender: TObject);
         procedure TRzBitBtn_sendClick(Sender: TObject);
     private
         { Private declarations }
     public
         { Public declarations }
     end;

 var
     Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Btn_StartClick(Sender: TObject);
 begin
     OraSession_sendmail.Connected := True;
     tmr1.Enabled := True;
     Btn_Start.Enabled := False;
     Btn_Start.Caption := '运行中';
 end;

 procedure TForm1.Btn_FinishClick(Sender: TObject);
 begin
     tmr1.Enabled := False;
     Btn_Start.Enabled := True;
     Btn_Start.Caption := '启动';
     OraSession_sendmail.Connected := False;
 end;

 procedure TForm1.tmr1Timer(Sender: TObject);
 begin
     Qry_GetMail.Close;
     Qry_GetMail.SQL.Text := 'select t.* from tableName t where sended =0 and rownum=1';
     Qry_GetMail.Open;
     if Qry_GetMail.RecordCount >  then
     begin
         Memo1.Text := Memo1.Text + chr() + chr() + '邮件发送中...' + DateTimeToStr(Now);
         //tmr1.Enabled := false;
         Rz_to.Text := Qry_GetMail.FieldByName('receiver').AsString;
         Rz_sub.Text := Qry_GetMail.FieldByName('sub').AsString;
         Rz_body.Text := Qry_GetMail.FieldByName('txt').AsString;
         TRzBitBtn_send.Click;
         OraQuery1.SQL.Text := ' update tableName t set t.sended = 1, t.sendtime = sysdate where t.sysid = :sysid';
         OraQuery1.ParamByName('sysid').AsString := Qry_GetMail.FieldByName('sysid').AsString;
         OraQuery1.ExecSQL;
         Memo1.Text := Memo1.Text + chr() + chr() + '成功发送邮件！' + DateTimeToStr(Now);
        // tmr1.Enabled := True;
     end;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
     Btn_Start.Click;
 end;

 procedure TForm1.RzBitBtn1Click(Sender: TObject);
 begin
     if RzComboBox1.Text = '' then
     begin
         ShowMessage('请选择重发时间段！');
         Exit;
     end;
     if RzComboBox1.Text = '' then
     begin
         OraQuery1.Close;
         OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*6';
         OraQuery1.ExecSQL;
     end;
     if RzComboBox1.Text = '' then
     begin
         OraQuery1.Close;
         OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*12';
         OraQuery1.ExecSQL;
     end;
     if RzComboBox1.Text = '' then
     begin
         OraQuery1.Close;
         OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*18';
         OraQuery1.ExecSQL;
     end;
     if RzComboBox1.Text = '' then
     begin
         OraQuery1.Close;
         OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*24';
         OraQuery1.ExecSQL;
     end;
     if RzComboBox1.Text = '' then
     begin
         OraQuery1.Close;
         OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*36';
         OraQuery1.ExecSQL;
     end;
     if RzComboBox1.Text = '' then
     begin
         OraQuery1.Close;
         OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*48';
         OraQuery1.ExecSQL;
     end;
     ShowMessage('重发成功，请勿多点！');
 end;

 procedure TForm1.TRzBitBtn_sendClick(Sender: TObject);
 begin
     IdMsgSend.Clear;
   //  TIdAttachment.Create(IdMsgSend.MessageParts, Rz_attach.Text);
     with IdMsgSend do
     begin
         if Rz_body.Text = '' then Rz_body.Text := Rz_sub.Text;
         Body.Assign(Rz_body.Lines);
         From.Text := Rz_from.Text;
         Recipients.EMailAddresses := Rz_to.Text; { 发送到： }
         Subject := Rz_sub.Text; { Subject: header }
         Priority := TIdMessagePriority(); { Message Priority }
         CCList.EMailAddresses := Rz_cc.Text; {CC}
         BccList.EMailAddresses := ''; {BBC}
         ReceiptRecipient.Text := ''; //需要回复
     end;
     SMTP.AuthenticationType := atLogin;
     SMTP.Username := Rz_from.Text; //发送人
     SMTP.Password := Rz_password.Text; //密码
     SMTP.Host := Rz_server.Text; //服务器
     SMTP.Port := ;
     SMTP.Connect;
     try
         SMTP.Send(IdMsgSend);
     finally
         SMTP.Disconnect;
     end;
 end;

 end.

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。