QTP??????胁??????
???????????? ???????[ 2014/4/9 11:51:40 ] ????????QTP ???????????? ??????????
'*****************************************************************
'?????????????薪?????????
'*****************************************************************
Dim SendTo?? Subject?? Body?? Attachment
'SendTo ="test@163.com;test1@163.com" '????????????????
SendTo ="test@163.com"
Subject ="???????????"
Body ="???????????"
Attachment =ReportLocation&"??????1.html"
'SendMail SendTo?? Subject?? Body?? Attachment
Function SendMail(SendTo?? Subject?? Body?? Attachment)
Dim ol??Mail
Set l=CreateObject("Outlook.Application")
Set Mail=ol.CreateItem(0)
Mail.to=SendTo
Mail.Subject=Subject
Mail.Body=Body
If (Attachment <> "") Then
Mail.Attachments.Add(Attachment)
End If
' Mail.display '??????
Mail.Send
ol.Quit
Set Mail = Nothing
Set l = Nothing
End Function
|
???????????????????????婕�???????????????????SPASVO小??(021-61079698-8054)?????????????????????????
??????
QTP??AR???????????????????QTP??????????????????????QTP??????????????????????QTP?????????Win7 64位??????QTP 10QTP???????VBScript???????QTP????????WebElementQTP?械????????QTP?????写??????????TD??QTP???????????????邪??LoadRunner??QTPQTP??Report???????QTP??写?????????QTP??????Flight小???QTP???????小??QTP-MySql+????????
???路???
??????????????????
2023/3/23 14:23:39???写?貌??????????
2023/3/22 16:17:39????????????????????些??
2022/6/14 16:14:27??????????????????????????
2021/10/18 15:37:44???????????????
2021/9/17 15:19:29???路???????路
2021/9/14 15:42:25?????????????
2021/5/28 17:25:47??????APP??????????
2021/5/8 17:01:11????????
?????????App Bug???????????????????????Jmeter?????????QC??????APP????????????????app?????械????????jenkins+testng+ant+webdriver??????????????JMeter????HTTP???????Selenium 2.0 WebDriver ??????