服务器自动邮件线程
功能：此程序主要实现对Oracle数据库表tableName（存放需要发送邮件的相关信息）里面相关信息的邮件发送。
优点：开发人员可以直接再数据库后台对tableName表进行插入操作，前台会自动发送相关邮件，高效开发。
界面布局：
1 unit uSendMail;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, ExtCtrls, DB, DBAccess, Ora, MemDS, RzButton, StdCtrls, RzPanel,
8 RzLabel, RzCmboBx, IdComponent, IdTCPConnection, IdTCPClient,
9 IdMessageClient, IdSMTP, IdBaseComponent, IdMessage, RzEdit, Mask, RzTabs;
10
11 type
12 TForm1 = class(TForm)
13 RzPanel1: TRzPanel;
14 Memo1: TMemo;
15 Btn_Start: TRzBitBtn;
16 Btn_Finish: TRzBitBtn;
17 SEND_MAIL: TOraStoredProc;
18 Qry_GetMail: TOraQuery;
19 OraSession_sendmail: TOraSession;
20 tmr1: TTimer;
21 RzBitBtn1: TRzBitBtn;
22 RzLabel1: TRzLabel;
23 OraQuery1: TOraQuery;
24 RzComboBox1: TRzComboBox;
25 RzLabel2: TRzLabel;
26 RzLabel3: TRzLabel;
27 RzPageControl1: TRzPageControl;
28 RzTabSheetTabSheet1: TRzTabSheet;
29 rzgrpbxPl_to: TRzGroupBox;
30 TRzLabelDis_to: TRzLabel;
31 TRzLabelDis_attach: TRzLabel;
32 TRzLabelDis_sub: TRzLabel;
33 TRzLabelDis_cc: TRzLabel;
34 TRzLabelDis_body: TRzLabel;
35 rz_attach: TRzEdit;
36 Rz_body: TRzMemo;
37 TRzBitBtn_send: TRzBitBtn;
38 TRzBitBtn_open: TRzBitBtn;
39 Rz_to: TRzMemo;
40 Rz_cc: TRzMemo;
41 Rz_sub: TRzMemo;
42 rzgrpbxPl_from: TRzGroupBox;
43 TRzLabelDis_from: TRzLabel;
44 TRzLabelDis_server: TRzLabel;
45 TRzLabelDis_password: TRzLabel;
46 rz_from: TRzEdit;
47 rz_server: TRzEdit;
48 rz_password: TRzEdit;
49 IdMsgSend: TIdMessage;
50 SMTP: TIdSMTP;
51 RzTabSheetTabSheet3: TRzTabSheet;
52 procedure Btn_StartClick(Sender: TObject);
53 procedure Btn_FinishClick(Sender: TObject);
54 procedure tmr1Timer(Sender: TObject);
55 procedure FormCreate(Sender: TObject);
56 procedure RzBitBtn1Click(Sender: TObject);
57 procedure TRzBitBtn_sendClick(Sender: TObject);
58 private
59 { Private declarations }
60 public
61 { Public declarations }
62 end;
63
64 var
65 Form1: TForm1;
66
67 implementation
68
69 {$R *.dfm}
70
71 procedure TForm1.Btn_StartClick(Sender: TObject);
72 begin
73 OraSession_sendmail.Connected := True;
74 tmr1.Enabled := True;
75 Btn_Start.Enabled := False;
76 Btn_Start.Caption := '运行中';
77 end;
78
79 procedure TForm1.Btn_FinishClick(Sender: TObject);
80 begin
81 tmr1.Enabled := False;
82 Btn_Start.Enabled := True;
83 Btn_Start.Caption := '启动';
84 OraSession_sendmail.Connected := False;
85 end;
86
87 procedure TForm1.tmr1Timer(Sender: TObject);
88 begin
89 Qry_GetMail.Close;
90 Qry_GetMail.SQL.Text := 'select t.* from tableName t where sended =0 and rownum=1';
91 Qry_GetMail.Open;
92 if Qry_GetMail.RecordCount > 0 then
93 begin
94 Memo1.Text := Memo1.Text + chr(13) + chr(10) + '邮件发送中...' + DateTimeToStr(Now);
95 //tmr1.Enabled := false;
96 Rz_to.Text := Qry_GetMail.FieldByName('receiver').AsString;
97 Rz_sub.Text := Qry_GetMail.FieldByName('sub').AsString;
98 Rz_body.Text := Qry_GetMail.FieldByName('txt').AsString;
99 TRzBitBtn_send.Click;
100 OraQuery1.SQL.Text := ' update tableName t set t.sended = 1, t.sendtime = sysdate where t.sysid = :sysid';
101 OraQuery1.ParamByName('sysid').AsString := Qry_GetMail.FieldByName('sysid').AsString;
102 OraQuery1.ExecSQL;
103 Memo1.Text := Memo1.Text + chr(13) + chr(10) + '成功发送邮件！' + DateTimeToStr(Now);
104 // tmr1.Enabled := True;
105 end;
106 end;
107
108 procedure TForm1.FormCreate(Sender: TObject);
109 begin
110 Btn_Start.Click;
111 end;
112
113 procedure TForm1.RzBitBtn1Click(Sender: TObject);
114 begin
115 if RzComboBox1.Text = '' then
116 begin
117 ShowMessage('请选择重发时间段！');
118 Exit;
119 end;
120 if RzComboBox1.Text = '6' then
121 begin
122 OraQuery1.Close;
123 OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*6';
124 OraQuery1.ExecSQL;
125 end;
126 if RzComboBox1.Text = '12' then
127 begin
128 OraQuery1.Close;
129 OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*12';
130 OraQuery1.ExecSQL;
131 end;
132 if RzComboBox1.Text = '18' then
133 begin
134 OraQuery1.Close;
135 OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*18';
136 OraQuery1.ExecSQL;
137 end;
138 if RzComboBox1.Text = '24' then
139 begin
140 OraQuery1.Close;
141 OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*24';
142 OraQuery1.ExecSQL;
143 end;
144 if RzComboBox1.Text = '36' then
145 begin
146 OraQuery1.Close;
147 OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*36';
148 OraQuery1.ExecSQL;
149 end;
150 if RzComboBox1.Text = '48' then
151 begin
152 OraQuery1.Close;
153 OraQuery1.SQL.Text := 'update tableName t set t.sended=0 where t.inserttime>sysdate-1/24*48';
154 OraQuery1.ExecSQL;
155 end;
156 ShowMessage('重发成功，请勿多点！');
157 end;
158
159 procedure TForm1.TRzBitBtn_sendClick(Sender: TObject);
160 begin
161 IdMsgSend.Clear;
162 // TIdAttachment.Create(IdMsgSend.MessageParts, Rz_attach.Text);
163 with IdMsgSend do
164 begin
165 if Rz_body.Text = '' then Rz_body.Text := Rz_sub.Text;
166 Body.Assign(Rz_body.Lines);
167 From.Text := Rz_from.Text;
168 Recipients.EMailAddresses := Rz_to.Text; { 发送到： }
169 Subject := Rz_sub.Text; { Subject: header }
170 Priority := TIdMessagePriority(4); { Message Priority }
171 CCList.EMailAddresses := Rz_cc.Text; {CC}
172 BccList.EMailAddresses := ''; {BBC}
173 ReceiptRecipient.Text := ''; //需要回复
174 end;
175 SMTP.AuthenticationType := atLogin;
176 SMTP.Username := Rz_from.Text; //发送人
177 SMTP.Password := Rz_password.Text; //密码
178 SMTP.Host := Rz_server.Text; //服务器
179 SMTP.Port := 25;
180 SMTP.Connect;
181 try
182 SMTP.Send(IdMsgSend);
183 finally
184 SMTP.Disconnect;
185 end;
186 end;
187
188 end. 作者：Jeremy.Wu
出处：https://www.cnblogs.com/jeremywucnblog/
本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。