используйте vbscript для отправки результатов тестирования ALM с помощью TDconnection.SendMail EmailTo - PullRequest
Новая
       37

используйте vbscript для отправки результатов тестирования ALM с помощью TDconnection.SendMail EmailTo

0 голосов
/ 05 августа 2020

У меня есть требование отправить электронное письмо с результатами тестирования ALM / Q C из тестовой папки.

У меня есть функция в скрипте .vbs. Но мне нужно изменить результаты таким образом, чтобы переданный статус, хранящийся в varstatus, идентифицировался зеленым, а статус сбоя - красным, а статус незавершенного - оранжевым.

в настоящее время код ниже извлекает результаты в тексте в черном цвете. Я бы предпочел результаты в цвете и HTML. Если бы кто-нибудь мог мне помочь, было бы здорово. большое спасибо. Надеюсь, у всех все хорошо в covid19 раз.

TDconnection.SendMail EmailTo, «», «Smoke Results», FinalTest, NULL, «Text»

Я вставляю код ниже. * 

Public Function SendResults()

Dim TDconnection
Set TDconnection = CreateObject("TDApiOle80.tdconnection")
TDconnection.InitConnectionEx "https://alm.ad.xx.xxxx.xx.xx:xxxx/qcbin"
TDconnection.login "xxxxx", "xxxxxxxxx"
TDconnection.Connect "xxxxxx", "xxxxxxxxxxx"

Dim TestSetFact
Dim TSTestFact
Dim theTestSet
Dim theTSTest
Dim TestSetTestsList, TestSetsList
Dim tsTreeMgr, tSetFolder

Set TestSetFact = TDconnection.testSetFactory
Set tsTreeMgr = TDconnection.TestSetTreeManager
Set TSTestFlt = TDconnection.TSTestFactory.Filter
Set TestSetFlt = TestSetFact.Filter

Set TestSetFact = TDConnection.TestSetFactory
Set TestSetFlt = TestSetFact.Filter

Dim z
z = 2 'Output row it displays too
For x = 1 To 1
TestSetFlt.Filter("CY_FOLDER_ID") = "^Root\Tests\xxxxx -Phase_1^"
For Each TestSet In TestSetFlt.NewList
For Each TestCase In TestSet.TSTestFactory.NewList("")
With TestCase
varAutoSmokeLocation = .TestSet.TestSetFolder.Path & "\" & .TestSet.Name 'TestSet Folder Path:
If .TestSet.Name = "xxx" Then
varTestName = .TestName
tempTestName = 60-Len(varTestName)

For m = 1 to tempTestName
     varTestName = varTestName & " "
Next

varStatus = .Status
Msgbox .Status

FinalTest = FinalTest & varTestName & "--------------------------"& varStatus & vbCr


End If
Msgbox .TestName
z = z + 1
' Sheets("TestSet").Cells(z, 1).Select
End With
Next 'TestCase
Next 'TestSet
Next 'x


EMailTo = "**PERSONAL INFORMATION REMOVED**;**PERSONAL INFORMATION REMOVED**;"

TDconnection.SendMail EmailTo, "", "Smoke Results", FinalTest, NULL , "Text"
...