作用:
可以在脚本回放过程中把错误信息发送到用户自定义的邮箱中,实现跟踪处理。
具体流程:
1.在脚本回放的服务器上安装outlook(因为我使用的outlook发送)
2.修改Tc自代的函数SendEmail(mFrom,mTo,mSubject,mBody,mAttachment)
3.直执在脚本中调用SendEmail方法(调用过程我把回放脚本和函数放在一起,也就是保存成一个Unit,因为我发现放到其他Unit中无法调,正在追踪)
具体操作代码:
Function SendEmail(mFrom, mTo, mSubject, mBody, mAttachment)
Dim i, schema, mConfig, mMessage
Err.Clear
On Error Resume Next
schema = "http://schemas.microsoft.com/cdo/configuration/"
Set mConfig = Sys.OleObject("CDO.Configuration")
mConfig.Fields.Item(schema + "sendusing") = 2 ' cdoSendUsingPort
mConfig.Fields.Item(schema + "smtpserver") = "邮件服务器" ' SMTP
server mConfig.Fields.Item(schema + "smtpserverport") = 25 ' Port number
mConfig.Fields.Item(schema + "smtpauthenticate") = 1 ' Authentication mechanism
mConfig.Fields.Item(schema + "sendusername") = "用户名 " ' User name (if needed)
mConfig.Fields.Item(schema + "sendpassword") = "密码 " ' User password (if needed)
mConfig.Fields.Update
Set mMessage = Sys.OleObject("CDO.Message")
mMessage.Configuration = mConfig
mMessage.From = mFrom
mMessage.To = mTo
mMessage.Subject = mSubject
mMessage.HTMLBody = mBody
aqString.ListSeparator = ","
For i = 0 To aqString.GetListLength(mAttachment) - 1
mMessage.AddAttachment aqString.GetListItem(mAttachment, i)
Next
mMessage.Send
If Err.Number > 0 Then
Log.Error "E-mail cannot be sent", Err.Description
SendEMail = False
Else
Log.Message "Message to <" + mTo + "> was successfully sent"
SendEMail = True
End If
End Function
为什么要使用这个函数呢,不使用tc自带的两个方法,原因是搞了好长时间都没有搞通,也是没办法,所以才使用这种方法