QC实例－后台邮件通知功能代码

转载请保留：本文出自zte_boy的51Testing软件测试博客：http://www.51testing.com/?161787

EQJ/s&L0QualityCenter自带的邮件发送配置功能实在是不好用：
Cq0dI1aK+_z01）邮件发送标题不够直观，不能明确缺陷处理阶段
MnT)e2K*c+[(N$d02）邮件发送延时现象及其严重，甚至有时候会丢失

+[$imp+]a8J8M0鉴于以上两个原因，特意在后台重写了邮件通知功能，新建了两个方法
2r*m7V:p%R01)GetInfo
-K4d M
m fV}Z7T'd0  负责查找需要发送责任人的邮件地址
._.Ayp0ou}y:LZ02)SendMail
"Ayyr,Mo_M0  调用GetInfo方法，并利用BugFactory对象获取Bug的具体信息，并发送邮件51Testing软件测试网u&c)s0g6M'g?S2k
3)完成后在Defects_Bug_AfterPost过程中调用SendMail即可

q0Fe E}c~0在后台实现的邮件通知功能效率明显高于配置，10S内就能接收到通知邮件，且标题一目了然

]5}1n7}:M.hb J0代码：

Function GetInfo(User,Psw,DSource,DBase,SqlStr)51Testing软件测试网innn!yk(gca5s
         'Dim rs,conn,sqlstr,strcon
|"\i&w#e8]"t4Z+jP0         StrCon = "Provider=sqloledb;User ID="&User &_51Testing软件测试网GEg*k#Vm2]1o4M
             ";Password="&Psw &_
9`?W;w6R|-Pt
d{syL0             ";Data source="&DSource &_
vZG\i6Q5g0             ";DATABASE="&DBase51Testing软件测试网s8K2rEm A
Z@:tD

         Set Conn = createobject("adodb.connection")51Testing软件测试网!eK(pY'XK0eWXV
         Conn.open StrCon51Testing软件测试网2D,fy/WB$K&Dw&wV \I&s

5LC)t`*tO6a0         Set Rs=createobject("adodb.recordset")51Testing软件测试网S
Y6MD!a2Vw1x
         Rs.open SqlStr,Conn,1,151Testing软件测试网@
i ?OG&q8e

:m[4A_C)AYx(W0         If NOT(Rs.BOF = True And Rs.EOF = True) Then51Testing软件测试网/RO[rn&REo
           'RsCount = Rs.Fields.Count51Testing软件测试网!vk!k
c4W\
           'For i = 0 To RsCount - 1
:u5qoiF"{0             Info = Rs.Fields(0).value
D0n$KkO6hX'Z0           'Next51Testing软件测试网,V"i"q)| BEB
         End If

3JEhZ5bk0         GetInfo = Info

R%E9A BVq0         set Rs = Nothing51Testing软件测试网m9euQo C'}z(@
         Set Conn = Nothing
~R[!L(`^;Y Br(r4]0End Function51Testing软件测试网7kpO7S6gd

Sub SendMail()
vp$aV~z0         On Error Resume Next51Testing软件测试网F7N g1Hi2b"Z,g!@

         UserId = "xxx"51Testing软件测试网&hs?&n]i+j
         PWord = "xxx"
(_:z|,nIr4I0         DataSource = "xxx"
8U*Sxa)x:t0         DataBase = "qcsiteadmin_db"51Testing软件测试网;g7S1x4y,{2~-W0z1`K

         Id = Bug_Fields("BG_BUG_ID").Value

         Set ōbjBugFactory = TDConnection.BugFactory51Testing软件测试网!e2n(TZg(iu
         'set BugFilter = ObjBugFactory.Filter51Testing软件测试网Z;g$~@,iP

odKx
a5r*|5O0         'BugFilter.Filter("BG_BUG_ID") = Id
3i
A0N2?VW0w(s0         set ōbjBug = ObjBugFactory.Item(Id)

         'set BugList = BugFilter.NewList

U
w+R1Q#|:x0         'For each ObjBug in BugList

         '获取项目
Up1]U7u0         PojName = TDConnection.ProjectName51Testing软件测试网+W:n$m)N#vZ`%IW

         StrComment = ""

         '已提交
gU6z {
{%?D0V
Q0         If ((Bug_Fields("BG_USER_01").Value = "已提交") And _
xc0Dm5z#s!q0            (Bug_Fields("BG_RESPONSIBLE").IsModified))Then

            '设置邮件接收人和标题
'ZmrPq%@0            UName = ObjBug.Field("BG_RESPONSIBLE")51Testing软件测试网NA1D4lz,Z

            'msgbox UName

            Sql = "select EMAIL from td.USERS where USER_NAME = "&"'"&UName&"'"

            'msgbox Sql51Testing软件测试网v_ ?ApAM3N;z_

            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)51Testing软件测试网Qe+}ku;X(k

            'Msgbox StrTo

"XS's$Uj)n0            StrCc = ""51Testing软件测试网'}!h/X?D)R
            StrSubject = PojName&":您有新分配的缺陷"&"(ID:"&Id&")"& _
2K!X1X/t-p%e6E A&]_0                         "，请及时修改！"51Testing软件测试网t\wQ&au`m f

!G)t&wVd([9RO0            '发送邮件51Testing软件测试网,Js7G7Q%ZG
            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment

         End If

         '未修复－修改状态未更改责任人51Testing软件测试网6Q#P#L+U)z.lHq
         If ((Bug_Fields("BG_USER_01").IsModified) And _
+hRg],hLx6b M[e-B0             (Bug_Fields("BG_USER_01").Value = "未修复"))Then51Testing软件测试网+Sj:[u$k9ZQ

/b6CH3ZY0            '设置邮件接收人和标题
~Siw
a:d1c6Ls"y0            UName = ObjBug.Field("BG_RESPONSIBLE")

N'W
uU,P3E)r0            Sql = "select EMAIL from td.USERS where USER_NAME = "&"'"&UName&"'"51Testing软件测试网F([:F3gVA

            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)

            StrCc = ""
N)Y\:f:@+P u~0            StrSubject = PojName&":您修改的缺陷"&"(ID:"&Id&")"& _
0|~Pk*jS0                         "验证未通过！"51Testing软件测试网$f3?3wN}

Ox#F:L9a0            '发送邮件51Testing软件测试网J@P$@6]9I
            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment

z)K^J1\7v0         End If51Testing软件测试网p W3|}8mP\

         '未修复－未改状态但更改责任人51Testing软件测试网m
Q6r:S#K6]y![
         If ((Bug_Fields("BG_RESPONSIBLE").IsModified) And _
7i!z e7`){N)k0             (Bug_Fields("BG_USER_01").Value = "未修复"))Then

$U*AH:~;^.R+NDk0            '设置邮件接收人和标题51Testing软件测试网4H"}W^9xy
            UName = ObjBug.Field("BG_RESPONSIBLE")

wlpK4S }l6_x0            Sql = "select EMAIL from td.USERS where USER_NAME = "&"'"&UName&"'"51Testing软件测试网0O:d
r%L(fV

            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)

*dfW2M8R;xJ0            StrCc = ""
9tfKH7h0            StrSubject = PojName&":您有新分配的缺陷"&"(ID:"&Id&")"& _
|/RYys \Q:hn0                         "，请及时修改！"

            '发送邮件
6Q)kSBnu0            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment51Testing软件测试网 F4xK J2a?

         End If51Testing软件测试网!{2[Q*o/KNz#wU

&P9iGUsM0         '待验证
!mC
e)G({4q!H
I0         If ((Bug_Fields("BG_USER_01").IsModified) And _51Testing软件测试网[J[%n]'n Q/T
             (Bug_Fields("BG_USER_01").Value = "待验证"))Then51Testing软件测试网@5M0n7|6~un

.~E9^i7a#lf0            '设置邮件接收人和标题51Testing软件测试网-v!yk6|r:Bx
            UName = ObjBug.Field("BG_DETECTED_BY")51Testing软件测试网+o Z$o"C-k

!b O
S!P#]:Uv-v0            Sql = "select EMAIL from td.USERS where USER_NAME = "&"'"&UName&"'"

0ye1f Rh
j{R7kz0            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)51Testing软件测试网D$qBu.~ ]l;_;Zgt

            StrCc = ""51Testing软件测试网$aqYe r1|3JX8sp;O
            StrSubject = PojName&":您提交的缺陷"&"(ID:"&Id&")"& _51Testing软件测试网2@!l2dVzX-eC-c O
                         "已修改完成，请及时验证！"51Testing软件测试网$iO%z;b!s4V

            '发送邮件51Testing软件测试网~^ GJf(I3`
            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment51Testing软件测试网 u#H WH L*["L8k'lq'C6w

3^&Mt~$MQ'v$By qq0         End If

L;@8|K0ZsZ1W0         '已驳回51Testing软件测试网:cY+H#h"hhj_3G
         If ((Bug_Fields("BG_USER_01").IsModified) And _
VU9W$[2J U!i0G0             (Bug_Fields("BG_USER_01").Value = "已驳回"))Then51Testing软件测试网DlFj |:G5F%M

            '设置邮件接收人和标题
3jI4s b5Radj0            UName = ObjBug.Field("BG_DETECTED_BY")

1[
g;Y
hD'~d0            Sql = "select EMAIL from td.USERS where USER_NAME = "&"'"&UName&"'"51Testing软件测试网,l{d'N4X4T~ O

XRy-IW p0            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)51Testing软件测试网-pmR&U*\K0C

U$v;X\F,Hj!]8x0            StrCc = ""
"b/TG;o&uag7h&`0            StrSubject = PojName&":您提交的缺陷"&"(ID:"&Id&")"& _
tK7l q$dGo0                         "被驳回，请关注！"51Testing软件测试网"?6mX2[2fc.QQ.r8R8z

            '发送邮件
!Z~`-FU$~o6a0            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment51Testing软件测试网#|*TA,u9\0I

5\a!gDs6gb0         End If51Testing软件测试网I
K5at;Zg(Hx&s

w(Q,a ?Vp0         'Next51Testing软件测试网_5M5V5ep(V%V'i

         Set ōbjBug = Nothing
:fa-[ N0Q,d.QdE0         Set ōbjBugFactory = Nothing

         On Error GoTo 051Testing软件测试网%p;y;o2[ VT
End Sub51Testing软件测试网'rFzq0A5YU.DH;Z

转载请保留：本文出自zte_boy的51Testing软件测试博客：http://www.51testing.com/?161787