当前位置:软件学习 > 其它软件 >>

请教如何在lotusscript里面使用@urlopen()公式

请教如何在lotusscript里面使用@urlopen()公式 

我是新手,写了段代码,w.UrlOpen(urlstr)可以运行,可Evaluate("@urlopen(urlstr)")不行,请各位高手多多指教!
代码如下:
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim urlstr As String
Dim docs As notesDocumentCollection
Dim doc As NotesDocument
Set docs = Source.Documents
Set doc = docs.GetFirstDocument
Set w = New NotesUIWorkspace
' w.UrlOpen("http://docmaster/webvd4/ViewDoc.aspx...="+doc.docid(0))
urlstr="http://docmaster/webvd4/ViewDoc.aspx...="+doc.docid(0)
' w.UrlOpen(urlstr)
Evaluate("@urlopen(urlstr)")

' window.location.href=urlstr
Continue = False
End Sub  --------------------编程问答-------------------- 试下Evaluate(|@urlopen(urlstr)|) 行不行?
--------------------编程问答-------------------- Evaluate(|@urlopen(urlstr)|) 也不行,我调试确认urlstr是有正确内容的!问题就是Evaluate("@urlopen(urlstr)") 执行后没有打开指定的URL地址网页!试着改到代理里面执行也不行!请高手指点一下!

Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim docs  As notesDocumentCollection
Dim doc As NotesDocument
Set docs = Source.Documents
Set doc = docs.GetFirstDocument
Set db = s.CurrentDatabase
Set agent = db.GetAgent("(opendoc)")
If agent.Run(doc.NoteID) = 0 Then
Messagebox "Agent ran"+doc.NoteID,, "Success"
Else
Messagebox "Agent did not run",, "Failure"
End If
' Call agent.Run(doc.NoteID) 
End Sub

代理:
Sub Initialize
Dim urlstr As String
Dim s As New NotesSession
Dim agent As NotesAgent
Dim db As NotesDatabase
Dim doc As NotesDocument
Set agent = s.CurrentAgent
Set db = s.CurrentDatabase
Set doc = db.GetDocumentByID(agent.ParameterDocID)
urlstr="http://docmaster/webvd4/ViewDoc.aspx?DocID="+doc.docid(0)
Evaluate(|@urlopen(urlstr)|)

Continue = False
End Sub --------------------编程问答-------------------- 没这么用过,但是写法就不对,至少应该是Evaluate(|@urlopen("|+urlstr+|")|)  --------------------编程问答-------------------- 我们把最上面的lotuscript代码改为公式:
IDNumber := @GetField("DocID");
urltext := "http://docmaster/webvd4/ViewDoc.aspx?DocID="+IDNumber;
@Prompt([OK];'QWWE';urltext);
@URLOpen (urltext)
在C/S下面能够正常运行,不过通过IE去做B/S运行还是不执行@URLOpen (urltext)
公式!不知道为什么?
补充:企业软件 ,  Lotus
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,