バリアントは、誰もが を助けることができるならばそれは理解されるであろう...私はこの蓮のscritpを書いていますし、私は エラーはバリアントは、オブジェクトが含まれているdoen'tでエラーを把握することはできません、 を蓮スクリプト

Question

をオブジェクトをcontanていません事前のおかげで

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

あなたはwsので、新しいとそれを初期化し、あなたのUIのワークスペース変数を初期化していない：、あなたはと呼ばれる変数にプロンプ​​トを呼びかけている。また

Dim ws As New NotesUIWorkspace 

そのようwsに変更する必要がありますはあなた宣言された変数の名前です。また

userName = ws.Prompt(... 

、あなたはAdminPの変数がそうadminp.DeleteUser（）を呼び出す前に、このような何かを行う初期化されていません。

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

最後に、宣言されていないDelMailFileという変数を参照しています。したがって、それを宣言するか、help for DeleteUserで定義されている適切な整数値を使用してください。