w1100n
This site is best viewed in Google Chrome
10/29/2012 11:21

‘/////////////////////////////////////////////////////////////////////////////////////////////////////////// ‘ ‘ Compare two plain file in row-to-row ‘ Return Code: 1 = same; 0=difference ‘ ‘////////////////////////////////////////////////////////////////////////////////////////////////////////// public Function ComparePlainFile(cFile1, cFile2) On Error Resume Next ComparePlainFile = 1 Const ForReading = 1 Dim fso, txtFile1, strLine1, txtFile2, strLine2 Set … Continue reading

10/29/2012 11:18

Public sub sendEmail(resultMsg) Const SMTP =”mail.google.com” Const userName=”username” Const password = “password” Const fromAddress = “QTP.Admin” Const toAddress =”abc@163.com, def@163.com” ‘ Format receiver001@abc.com, receiver002@abc.come, receiver003@abc.com On Error Resume Next Dim Email ‘ E-mail object Dim subject, attachments subject=”Auto Test Result” … Continue reading

辽ICP备14012896