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

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

~ j*rs~w/P0QualityCenter自带的邮件发送配置功能实在是不好用：51Testing软件测试网S-z^i0\?)Sj
1）邮件发送标题不够直观，不能明确缺陷处理阶段
)c@I|3GYSf3AG lx02）邮件发送延时现象及其严重，甚至有时候会丢失51Testing软件测试网p(d{/A$q

N2RbD"w#u;cM6i0鉴于以上两个原因，特意在后台重写了邮件通知功能，新建了两个方法
`%[S!h%y~.f01)GetInfo
#\$g9G{(?0  负责查找需要发送责任人的邮件地址
/ea6N|;?#yYo02)SendMail51Testing软件测试网(D*C!AZovGm7UV
  调用GetInfo方法，并利用BugFactory对象获取Bug的具体信息，并发送邮件51Testing软件测试网i_$ERGyi
3)完成后在Defects_Bug_AfterPost过程中调用SendMail即可

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

代码：

-e9rg"U0Vx*a8W;O4P0Function GetInfo(User,Psw,DSource,DBase,SqlStr)
2`~ LBA4lF'A2Gy0C0         'Dim rs,conn,sqlstr,strcon51Testing软件测试网5mu!kTyYxx[
         StrCon = "Provider=sqloledb;User ID="&User &_51Testing软件测试网lr o9q*S |6e:TG
             ";Password="&Psw &_
!}x0oE$?}~X0             ";Data source="&DSource &_51Testing软件测试网*Zy.E9L3x7?;o
             ";DATABASE="&DBase

         Set Conn = createobject("adodb.connection")51Testing软件测试网:Gb1t_-j9H7Y,B8C4_
         Conn.open StrCon

u8N} K9h*pNV0         Set Rs=createobject("adodb.recordset")
|"?*TF{&X4Y0         Rs.open SqlStr,Conn,1,151Testing软件测试网n:JaPh-]"?\/Y:?3Z i;I6k

5h's5@s MR0         If NOT(Rs.BOF = True And Rs.EOF = True) Then51Testing软件测试网5N/k5opA%\7xbX*[
           'RsCount = Rs.Fields.Count51Testing软件测试网 T'{(o7c0kb#b
           'For i = 0 To RsCount - 151Testing软件测试网(\(F3C)G~oZ%Z)}H9PG
             Info = Rs.Fields(0).value51Testing软件测试网6J+L9f;oh%P
           'Next51Testing软件测试网2c#Z6Y^zK-ex
         End If51Testing软件测试网hf'v,O9h&Gc!U!@3@

         GetInfo = Info51Testing软件测试网-s)cf%XP

         set Rs = Nothing
)]:L;gW0`.W ^6O0         Set Conn = Nothing
dp*Y2CK0End Function

u{7xv6q3\0Sub SendMail()51Testing软件测试网-@ F"|/}v;V
         On Error Resume Next51Testing软件测试网JHv/rP M??"DB/b*L"n

%l5B)O]-?0f)[)a0         UserId = "xxx"51Testing软件测试网Q G)l5QShHn
         PWord = "xxx"
a`5aqx0         DataSource = "xxx"51Testing软件测试网-HFe6l sF/L]
         DataBase = "qcsiteadmin_db"

         Id = Bug_Fields("BG_BUG_ID").Value

}V%JN(DGm!}0         Set ōbjBugFactory = TDConnection.BugFactory51Testing软件测试网a+^(M;@N,s+E L
         'set BugFilter = ObjBugFactory.Filter51Testing软件测试网BF%R|(P
Xp;f

6\"\"I.ZZy4P0R's*p-u%N{0         'BugFilter.Filter("BG_BUG_ID") = Id
lN8} ~$UxLN7S3k0         set ōbjBug = ObjBugFactory.Item(Id)

Z!tJ/DUd0         'set BugList = BugFilter.NewList

         'For each ObjBug in BugList51Testing软件测试网ch9SIN T2B
x4I2d

|q)nh*V&|F,_0         '获取项目
4f"Az4rH&Of _ci sd0         PojName = TDConnection.ProjectName51Testing软件测试网(\ m-wj ngTj?

0Kos s Vj5}S\!w0         StrComment = ""

z.I8uA8K]5Xp }!S0         '已提交
9fi
B%Tf0         If ((Bug_Fields("BG_USER_01").Value = "已提交") And _
/zTQc"mh0            (Bug_Fields("BG_RESPONSIBLE").IsModified))Then

+D5h9pdO0U)R/` yp0            '设置邮件接收人和标题
*r"S"qu"JxW?0            UName = ObjBug.Field("BG_RESPONSIBLE")51Testing软件测试网3z!M+qN g9O

            'msgbox UName

            Sql = "select EMAIL from td.USERS where USER_NAME = "&"'"&UName&"'"51Testing软件测试网5C+J4U#_fs5sX

o2Y[bn/` E0            'msgbox Sql51Testing软件测试网rO3v@ R| Z

Dcf"f]y*wZ!Z0            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)51Testing软件测试网8`"wEXi!aR2~

            'Msgbox StrTo

:Hv;qn oe5V0            StrCc = ""
^#hW? Z#j'YV)B6q6y0            StrSubject = PojName&":您有新分配的缺陷"&"(ID:"&Id&")"& _51Testing软件测试网gh)Jn.VRZ
                         "，请及时修改！"

            '发送邮件
4w];V5S/rY"B0            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment

+j$O9]fDHg2@){0         End If

)Mp/f*oJ)V0         '未修复－修改状态未更改责任人
4CZ|[5U0         If ((Bug_Fields("BG_USER_01").IsModified) And _
S)[jK0O3^(~vH1iC0             (Bug_Fields("BG_USER_01").Value = "未修复"))Then

            '设置邮件接收人和标题51Testing软件测试网bb}4U yw7sO
            UName = ObjBug.Field("BG_RESPONSIBLE")

            Sql = "select EMAIL from td.USERS where USER_NAME = "&"'"&UName&"'"51Testing软件测试网PY;LC kH1}c

            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)51Testing软件测试网7`"}]]0qX*t8C_

            StrCc = ""51Testing软件测试网?'w o l3v~
M5b3k
            StrSubject = PojName&":您修改的缺陷"&"(ID:"&Id&")"& _51Testing软件测试网` S}$v,z/p9@
                         "验证未通过！"51Testing软件测试网|t$l,qP'}Z

            '发送邮件51Testing软件测试网)`u#~UKFl%M4p+_
            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment51Testing软件测试网WVGyr3e

         End If51Testing软件测试网"N8bW2u']9V*m]H

{'vqqZY8F0         '未修复－未改状态但更改责任人51Testing软件测试网,Z'A v;\#o9o&{X o
         If ((Bug_Fields("BG_RESPONSIBLE").IsModified) And _
~ J&_T3^i1x'r`0             (Bug_Fields("BG_USER_01").Value = "未修复"))Then51Testing软件测试网`j _0W/ZOXn`

xo7|eu)aB9`0            '设置邮件接收人和标题
Ap:~V3P`8zg0            UName = ObjBug.Field("BG_RESPONSIBLE")51Testing软件测试网` BvW;H[y

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

t8?~$KC0            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)

/P&`B0{)|z-yO.\6P0            StrCc = ""51Testing软件测试网Y.r&LT9V%H4~
            StrSubject = PojName&":您有新分配的缺陷"&"(ID:"&Id&")"& _51Testing软件测试网 us6po7tu&d:W JjO
                         "，请及时修改！"

            '发送邮件51Testing软件测试网nMLya%gQDp
            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment

C$^4I*~F"J KS0         End If51Testing软件测试网#`.p5b(y}.u9d`

         '待验证
X0e9`vh`+w}0         If ((Bug_Fields("BG_USER_01").IsModified) And _
E.X}vC$B0             (Bug_Fields("BG_USER_01").Value = "待验证"))Then

:Vr){*Ir#C0            '设置邮件接收人和标题51Testing软件测试网!cv)Snrx
            UName = ObjBug.Field("BG_DETECTED_BY")

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

            StrTo = GetInfo(UserId,PWord,DataSource,DataBase,Sql)51Testing软件测试网Eb5oSlXt)SG

6oo7UFG9e_/Ef0            StrCc = ""51Testing软件测试网M*go?K0f
            StrSubject = PojName&":您提交的缺陷"&"(ID:"&Id&")"& _51Testing软件测试网N]3IUCG d
                         "已修改完成，请及时验证！"51Testing软件测试网Jk8N(L1ISKt8mU/L

            '发送邮件51Testing软件测试网6Bw0I*O/Ats [y
            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment

         End If

         '已驳回51Testing软件测试网,W.vJ0iaC)@8h^
         If ((Bug_Fields("BG_USER_01").IsModified) And _51Testing软件测试网Z)bJGd(]s:~0c-]
             (Bug_Fields("BG_USER_01").Value = "已驳回"))Then51Testing软件测试网
cZ'u#X_!Z

            '设置邮件接收人和标题51Testing软件测试网P,Lp0U[
S'R
            UName = ObjBug.Field("BG_DETECTED_BY")51Testing软件测试网~y4I(]P'l~

`2R&`L!u0            Sql = "select EMAIL from td.USERS where USER_NAME = "&"'"&UName&"'"51Testing软件测试网
CA\
p0M1A;P

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

*K0l [8i\,eu[0            StrCc = ""
S.wT4m!m]0            StrSubject = PojName&":您提交的缺陷"&"(ID:"&Id&")"& _51Testing软件测试网SY[-t]*n
                         "被驳回，请关注！"

#LQt7K+N C%n+M(U0            '发送邮件51Testing软件测试网 Y'ppfv
D]%G
            ObjBug.Mail StrTo, StrCc, TDMAIL_TEXT, StrSubject, StrComment

6T&C5A/e-kr`Q$\4TK0         End If

k7~JKF4\s/V0         'Next

         Set ōbjBug = Nothing
N#J8YO-v0         Set ōbjBugFactory = Nothing

         On Error GoTo 051Testing软件测试网R"B5I0hN#A \U#zE
End Sub51Testing软件测试网Y/dai+t,VY&L/[H

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