0

我正在尝试打开作为激活过程的一部分在电子邮件中发送的自动生成的 url。我无法让 qtp 打开该链接。事实上，我不知道该怎么做。

任何帮助将不胜感激。

谢谢！

4

3 回答 3

1

在您的录制设置中，您可以设置录制 Windows 应用程序的选项（位置录制 > 录制和运行设置 > Windows 应用程序）。以下是使用 UFT 12 从来自 stackoverflow 的电子邮件中单击登录链接的脚本示例：

'To open Outlook
SystemUtil.Run "OUTLOOK.EXE"
Window("Microsoft Outlook").Activate

'Double click the top message in the inbox
Window("Outlook Inbox Column").WinObject("Table View").DblClick 118,72

'Find the location of the link within the Message
Window("Message (HTML)").WinObject("Message").Click 212,324

'Verify the link brought me to the Stack Overflow Login page
Browser("Add a login - Stack Overflow").WinObject("AddressDisplay Control").Check CheckPoint("AddressDisplay Control")
于 2014-06-19T14:45:44.903 回答
1 
Function OpenMailAndVerify(ByVal strSubject,Byval Activity)
Set objApp = CreateObject("Outlook.Application")
Set objNameSpace = objApp.GetNamespace("MAPI")
Set objSyncs = objNameSpace.SyncObjects
Set objSync = objSyncs.Item("All Accounts")
objSync.Start
Set myFolder = objNameSpace.GetDefaultFolder(6)
Set ObjMails = myFolder.Items
Set objFilter = ObjMails
Flag_EmailFound = False

For Each objItem In objFilter
    If InStr(objItem.Subject, strSubject) = 1 Then
        dtMyDate = objItem.SentOn
        strSubject = objItem.Subject
        strBody = objItem.Body
        StartPos = InStr(strBody, "HYPERLINK")
        EndPos = InStr(strBody, "Direct Link to Activity")
        EndPos = EndPos - 1
        StartPos = StartPos + Len("HYPERLINK") + 2
        ActualLink = Mid(strBody, StartPos, EndPos - StartPos)

        Flag_EmailFound = True
        Exit For
    End If
Next


If (Flag_EmailFound) Then
systemutil.Run ActualLink,,,,3
wait 5
  If Browser("name:="&Activity&".*").Page("title:="&Activity&".*").Exist(10) Then
     Browser("name:="&Activity&".*").Page("title:="&Activity&".*").Highlight

  End If
End if

结束功能

于 2016-03-23T10:18:25.500 回答
0

使用 RegExp 按名称识别链接，并使用描述性编程，您可以单击链接

例子：

  1. http://www.cnn.com/2014/06/15/us/nyt-chelsea-manning/index.html?hpt=us_c2
  2. http://www.cnn.com/2014/06/16/us/bowe-bergdahl-case/index.html?hpt=us_c2

这将是代码

    urlString = "http://www.cnn.com/.*"
    Browser("name:=test - .* - Gmail").Page("title:=test - .* - Gmail").Link("name:=" &urlString).Click
于 2014-06-16T19:10:34.517 回答