qijunhaha 发表于 2008-8-14 16:49:52

关于QTP脚本

请教大家一个问题，我想写个VBScript脚本，作用让QTP在做完测试之后自动把测试完生成的XML报告以FTP的方式发到别的电脑上，

我是做开发的，测试不会，急用！请大家指教把脚本发上来，也可发到我的邮箱里qijunhaha@126.com,先谢谢了。

zte_boy 发表于 2008-8-14 18:43:10

原理不都是一样么。。。。
做开发的更有优势啊

陈能技 发表于 2008-8-14 23:12:09

不用FTP，用发邮件的方式不是更方便吗，可参考下面的VBS函数：

Function SendMail(SendTo, Subject, Body, Attachment)
    Set ol =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.Send
    ol.Quit
    Set Mail = Nothing
    Set ōl = Nothing
End Function
页: [1]
查看完整版本: 关于QTP脚本