基于QC的缺陷状态分类自动统计邮件功能

上一篇 / 下一篇 2009-04-15 13:49:50 / 个人分类：QC

查看( 1954 ) / 评论( 2 ) / 评分( 0 / 0 )

a1DXv{8Q3~0目标：51Testing软件测试网A+DD'BOAE

z%`zli0实现每周末自动对这周所有项目缺陷状态分类统计，了解一周内缺陷的变化情况，统计完成后自动给相关人员发送邮件。51Testing软件测试网4s5X T%HpH

^B,r$l#jhf0只是简单的分类统计，有需要者可以根据自己部门的需求进一步进行扩展

SsC/z9z+v-[v%B?U0实现：51Testing软件测试网^e)]1Do

利用windows的任务管理计划调用vbs执行51Testing软件测试网xjdsj0^B
需要发送多人邮件的话，可用","分离多个邮件地址

4m6~ D%HEqjjEW0局限：

目前9.0版本的QC无法支持中文域名和项目名

Flag = IsFriday()

If Flag = True Then
X ])H7^$XR!k-a0 Call ProjectInfo("xxxxx","xxx","xxx","xxx")
End If

'获取QC上所有项目，循环统计
Function ProjectInfo(qcUrl,qcUsername,qcPassword,qcDomain)
Ysa+`)H4M*X$^j xk0 Set Tdc = CreateObject("TDApiOle80.TDConnection.1")51Testing软件测试网(tV7P*uC9Yg
If Not Tdc.Connected Then
0HH/P1?I@0  Tdc.InitConnectionEx qcUrl
;d4KcFnqU,}0  Tdc.Login qcUsername,qcPassword
Else
  Tdc.Disconnect51Testing软件测试网H*eu1CP [-K:K
  Tdc.Logout51Testing软件测试网]4Y#o cvl
  Tdc.ReleaseConnection
0wn2Y6N} r:m'K(L n0  Tdc.Login qcUsername,qcPassword51Testing软件测试网%t4x!I#q7y4hX
End If51Testing软件测试网0Y._{#J?,vQ

,F K lVxTo?0 Message = ""
&A#v4p.GSu%?0 Msg = ""51Testing软件测试网h|fS}$g3Oi

$U4Dy+v/C1d B0 For Each project In tdc.VisibleProjects(qcDomain)51Testing软件测试网*BkRS]6[@5?
  Tdc.Disconnect
  Tdc.Connect qcDomain,project
  Set BugFac = tdc.BugFactory51Testing软件测试网Xcm%oH
  Set BugList = BugFac.NewList("")51Testing软件测试网 \%Ul^dW p k
'  MsgBox BugList.count
k*I$u6w!Hr5l'V,Y0  BugCount = 0
c6Q(ve hr-Z,{Y0  ReferCount = 0 '提交
.ru$@4~x)|4Jy#FJ0  RejectCount = 0 '拒绝
*[h+K%C*kX2k0  DeployCount = 0 ' 部署
MbKG;D D8TM0  ValidateCount = 0 '验证
  ClosedCount = 0 '关闭
  ReopenCount = 0 '未修复
^,gLwj0  For Each Bug In BugList
   BugDate = CDate(Bug.Field("BG_DETECTION_DATE"))
p*SsP?1C0   CurrentDate = Date
z\ @%U5^3T._0 LastDate = GetLastWeekDate()
w(q,X.t9t?F0   If (BugDate <= CDate(CurrentDate) And BugDate >= CDate(LastDate)) Then
&Z4p3{ayT4gU7E3W#Q0    '缺陷总数
+vg0uD\Zl0    BugCount = BugCount + 151Testing软件测试网V9Xq$R:P
    '已提交总数51Testing软件测试网$eZk8^8~#T.s
    If Bug.Field("BG_USER_01") = "已提交" Then
     ReferCount = ReferCount + 1
    End If
"FC3f%D/o\p0    '已驳回总数
Z fDx}0    If Bug.Field("BG_USER_01") = "已驳回" Then
Hq ^ G5NtLpP0     RejectCount = RejectCount + 151Testing软件测试网FDpO{;N1ac
    End If51Testing软件测试网 eBy3@ |;P
    '待部署总数
    If Bug.Field("BG_USER_01") = "待部署" Then51Testing软件测试网h&f1L O2B
     DeployCount = DeployCount + 1
7T|,K Ai0    End If51Testing软件测试网 FMW(W:c9|!\x
    '待验证总数
6}._cg3kN)`0    If Bug.Field("BG_USER_01") = "待验证" Then
7o&t3w(^'p9n0     ValidateCount = ValidateCount + 1
    End If
&D[1[6Y(u6m q0    '未修复总数
8Z7@C7z(l:y;k)f0    If Bug.Field("BG_USER_01") = "未修复" Then
/n+I1|hM:T#Lc0     ReopenCount = ReopenCount + 1
Z`ro9er0    End If
8Ua(d5??+yAfB(A0    '已关闭总数51Testing软件测试网ha%w R/st3g
    If Bug.Field("BG_USER_01") = "已关闭" Then
%d V$@.V7bTF0     ClosedCount = ClosedCount + 1
XvD;@\}0    End If51Testing软件测试网9qd@ Za8R;q|
   End If51Testing软件测试网b i9qmK]
  Next
LM"A(| z2Ai0  Message = Message + "<p><table width=100 border=""1"" align=""left"">"& VbCrLf &_51Testing软件测试网5sK&zN"d1wys
       "<th colspan=2>"&project&"</th>"& VbCrLf &_51Testing软件测试网t/D:t:g7x
       "<tr><td width=60%>"&"已提交"&"</td><td width=40%>"&ReferCount&"</td></tr>"& VbCrLf &_51Testing软件测试网H'N}{eR$}v
       "<tr><td>"&"已驳回"&"</td><td>"&RejectCount&"</td></tr>"& VbCrLf &_
       "<tr><td>"&"待部署"&"</td><td>"&DeployCount&"</td></tr>"& VbCrLf &_
       "<tr><td>"&"待验证"&"</td><td>"&ValidateCount&"</td></tr>"& VbCrLf &_
2K5CKg2yZnB0       "<tr><td>"&"未修复"&"</td><td>"&ReopenCount&"</td></tr>"& VbCrLf &_
#Tnr&d)uS0       "<tr><td>"&"已关闭"&"</td><td>"&ClosedCount&"</td></tr>"& VbCrLf &_
8Q Zk:qd_0cf]0       "</Table></p>"& VbCrLf
'   MsgBox Message
  Set BugList = Nothing
4T:hz\ wg0  Set BugFac = Nothing
S&^ v.x.TH'sxO0 Next
-yHbr%a\0k0 Msg = "<html><head><title></title>" &VbCrLf &_
   "<style. type='text/css'>"&VbCrLf &_
}ei!y1k0   "td,form,select,input,p,table,.font {font-size: 12px;line-height: 20px}"&VbCrLf &_
   "table"&VbCrLf &_
%l"i/K,Zyb'dV0   "{border-collapse: collapse}"&VbCrLf &_
jsDmL;y0   "</style>"&VBCRLF &_
;xBn8tR4DRjV.Nm0   "</head><body>"&Message&"</body></html>"
/j8W0U:Ne0 Call SendMailMessage("xxx","xxx","xxx","xx",msg,"xxx")
jb pU;u+FxM0 Tdc.Disconnect
Tdc.Logout51Testing软件测试网Vl7A-B^$O$t
Tdc.ReleaseConnection
2g4IN:H?B0g0 Set Tdc = Nothing
End Function

'邮件发送方法
L9L#a~I`7Pwe0Sub SendMailMessage(FromMail,MailPassword,ToMail,MailName,MailMessage,SmtpServer)
FromMailName=Split(FromMail , "@", -1, vbTextCompare)
+K\^yIB0 MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
8l'ME[1n0 Set Email = CreateObject("CDO.Message")
do.Pqo o[SXeS0 oEmail.From = FromMail '发送邮件地址
v,\;b B?@c.Uq0 oEmail.To = ToMail '送达邮件地址
'处理中文乱码
hNM`;QL` ~|0 Set BodyPart = oEmail.BodyPart51Testing软件测试网2aMuR)LC?
oBodyPart.Charset = "UTF-8"
KK8z+Bi"q&j0 oEmail.Subject = MailName '邮件标题
@;j6I6HRzZ0 oEmail.HTMLBody = MailMessage '邮件正文
TbN,VWfq0 '配置邮件发送51Testing软件测试网dE!UI1q
With oEmail.Configuration.Fields51Testing软件测试网J!o WGg y+b
  .Item(MS_Space&"sendusing") = 2 '发信端口
  .Item(MS_Space&"smtpserver") = SmtpServer 'SMTP服务器地址51Testing软件测试网D#WVc u2{
  .Item(MS_Space&"smtpserverport") = 25 'SMTP服务器端口51Testing软件测试网Xdw^x3tl V
  .Item(MS_Space&"smtpauthenticate") = 1
  .Item(MS_Space&"sendusername") = FromMailName(0) '邮件帐号51Testing软件测试网8Hll;Tu!@
  .Item(MS_Space&"sendpassword") = MailPassword
tA7mG-kH0'   .Item(MS_Space&"cdoSendlanguagecode")="UTF-8"
  .Update
0BJi;ri0 End With
|BO[-p6rw0 '发送邮件
oEmail.Send
'释放对象
K7qO}d9j0 Set BodyPart = Nothing
$FL!_}M0 Set Email = Nothing
End Sub

etf l(o\0'判断当前日期是否星期五51Testing软件测试网/Dh`%Ge4}
Function IsFriday()
-|/y D-cSd6b0 CurrentDate = Date51Testing软件测试网-D:mq,G5y&]oW
Num = Weekday(CurrentDate,2)
If Num = 5 Then51Testing软件测试网m q%x(Z%a Y
Flag = True51Testing软件测试网,UM`9HO*q
Else51Testing软件测试网qG'qM1M NL
Flag = False51Testing软件测试网+F,d+}kv}}
End If
B mBP7p@e$j8A0 IsFriday = Flag
:fJ-K3YK0End Function

&Eiq$dZ.\0'获取当前日期前一周日期
D[p9oRl0Function GetLastWeekDate()
sA H X%\9Y{0 CurrentDate = Date
LastWeekDate = DateAdd("d",-7,CurrentDate)
d q+q:ZDv0 GetLastWeekDate = LastWeekDate
rYr3}S9cRx0End Function

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

收藏举报

TAG: