QC10自动发送邮件
配置Mail Direct Pro
1、在装有QC的服务器上安装Mail Direct Pro，并破解该程序
2、配置Mail Direct Pro的DNS，这个只需要配置内网的DNS即可
3、配置Mail Direct Pro的外送，如下图：
对于主机名的配置一定要和QC配置的服务名保持一致
4、配置Mail Direct Pro的SMTP中继项：
5、配置QC中的邮件服务：
6、在QC自定义流程中设置自动邮件的条件：
Sub Template_Bug_AfterPost
On Error Resume Next
tmpStr = Bug_Fields("BG_SEVERITY").Value
Set bjBugFactory = TDConnection.BugFactory
num = Bug_Fields("BG_BUG_ID").Value
Set myBug = objBugFactory.Item(num)
If Bug_Fields("BG_RESPONSIBLE").IsModified And (strComp(tmpStr,"3 - 高") = 0 or StrComp(tmpStr,"4 - 非常高") = 0 or StrComp(tmpStr,"5 - 紧急") = 0) then
1、在装有QC的服务器上安装Mail Direct Pro，并破解该程序
2、配置Mail Direct Pro的DNS，这个只需要配置内网的DNS即可
3、配置Mail Direct Pro的外送，如下图：
对于主机名的配置一定要和QC配置的服务名保持一致
4、配置Mail Direct Pro的SMTP中继项：
5、配置QC中的邮件服务：
6、在QC自定义流程中设置自动邮件的条件：
Sub Template_Bug_AfterPost
On Error Resume Next
tmpStr = Bug_Fields("BG_SEVERITY").Value
Set bjBugFactory = TDConnection.BugFactory
num = Bug_Fields("BG_BUG_ID").Value
Set myBug = objBugFactory.Item(num)
If Bug_Fields("BG_RESPONSIBLE").IsModified And (strComp(tmpStr,"3 - 高") = 0 or StrComp(tmpStr,"4 - 非常高") = 0 or StrComp(tmpStr,"5 - 紧急") = 0) then
myBug.Mail Bug_Fields("BG_RESPONSIBLE").Value,"",2,TDConnection.DomainName&"-"&TDConnection.ProjectName&":严重问题",""
'TDConnection.SendMail Bug_Fields("BG_RESPONSIBLE").Value,"admin","严重", num,"", "HTML"
'TDConnection.SendMail Bug_Fields("BG_RESPONSIBLE").Value,"admin","严重", num,"", "HTML"
End If
'call Bug_AfterPost
On Error GoTo 0
End Sub
'call Bug_AfterPost
On Error GoTo 0
End Sub
TAG:
