Question

我正在写这个莲花scritp，我无法弄清楚错误错误是变体doen不包含对象... 如果有人能提供帮助，我们将不胜感激提前致谢

Sub Click(Source As Button)
Dim session As New NotesSession 

Dim ws As NotesUIWorkspace
Dim adminp As NotesAdministrationProcess
Dim userName As Variant

userName = workspace.Prompt(PROMPT_OKCANCELEDIT, _
"User", _
"Enter the user to delete")

noteID$ = adminp.DeleteUser( userName , False , DelMailFile , "Terminations" , False )


End Sub

Answer 1

您没有初始化UI工作区变量ws，因此请使用New：

进行初始化

Dim ws As New NotesUIWorkspace

此外，您正在对名为workspace的变量调用Prompt，该变量应更改为ws，因为这是您声明的变量的名称：

userName = ws.Prompt(...

此外，您没有初始化adminp变量，所以在调用adminp.DeleteUser（）之前执行类似的操作：

Set adminp = session.CreateAdministrationProcess("Server/Org")

最后，您指的是一个名为DelMailFile的变量，该变量未声明。因此，请确保声明它或使用help for DeleteUser中定义的正确整数值。

变体并不包含一个对象莲花脚本

1 个答案: