Question

我发现了一个类似的问题，询问如何获取WebElement的值并将其放在excel文件中然后通过电子邮件发送excel文件，但是如何将WEbElement的值放在e的正文中邮件在句子的中间，而不是在excel文件中？

例如，我想捕获一个WebElement，它告诉我有多少可乐点，然后我想通过电子邮件发送给自己这个值。类似的事情：“你现在有500个可乐点。”

这就是我所拥有的，但我收到了语法错误：

Dim ResultsFile
Set objOutlook=CreateObject("Outlook.Application")
Set objOutlookMsg=objOutlook.CreateItem(olMailItem)
objOutlookMsg.To="email@email.com"
ResultsFile="C:\Documents and Settings\Administrator\My Documents\CkeZeroPoints.xlsx"
objOutlookMsg.Subject="Coke Zero points"
objOutlookMsg.Body="You now have" &Browser("Sweepstakes.*").Page("Sweepstakes.*").WebElement("htmlID:=glPointsText").GetRoProperty("innertext") "Coke Zero points."
objOutlookMsg.Attachments.Add(ResultsFile)
objOutlookMsg.Display
objOutlookMsg.Send
Set objOutlookMsg=Nothing
Set objOutlook=Nothing

语法错误从第7行开始。

提前谢谢。

Answer 1

你忘了＆符号（&）：

Dim ResultsFile, innerText
Set objOutlook=CreateObject("Outlook.Application")
Set objOutlookMsg=objOutlook.CreateItem(olMailItem)

' Better to separate tasks so you can trap errors earlier
innerText = Browser("Sweepstakes.*").Page("Sweepstakes.*").WebElement("htmlID:=glPointsText").GetRoProperty("innertext")
ResultsFile = "C:\Documents and Settings\Administrator\My Documents\CkeZeroPoints.xlsx"

' email handling here, you can refactor this in a separate method
objOutlookMsg.To  ="email@email.com"
objOutlookMsg.Subject = "Coke Zero points"
objOutlookMsg.Body = "You now have " & innerText & " Coke Zero points."  ' <-- ampersand added on this line.
objOutlookMsg.Attachments.Add ResultsFile  ' <-- parenthesis removed, only us parenthesis if
                                           ' you are calling a (returning) function
objOutlookMsg.Display
objOutlookMsg.Send
Set objOutlookMsg = Nothing
Set objOutlook = Nothing

如何使用QTP捕获WebElement值，并将该值放在句子中间的电子邮件正文中

1 个答案: