Delphi

服务器自动邮件线程

功能：此程序主要实现对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 > 0 then
    begin
        Memo1.Text := Memo1.Text + chr(13) + chr(10) + '邮件发送中...' + 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(13) + chr(10) + '成功发送邮件！' + 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 = '6' 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 = '12' 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 = '18' 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 = '24' 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 = '36' 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 = '48' 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(4); { 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 := 25;
    SMTP.Connect;
    try
        SMTP.Send(IdMsgSend);
    finally
        SMTP.Disconnect;
    end;
end;

end.

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