例: DeleteUser method

次のコードは、ユーザーを削除するシステム管理要求を作成します。メールファイルの削除を承認してからでないと、ユーザーを完全に削除できません。

Sub Initialize
  Dim session As New NotesSession
  Dim ws As NotesUIWorkspace
  Dim adminp As NotesAdministrationProcess
  Dim userName as Variant
  Set adminp = _
  session.CreateAdministrationProcess("myServer/northeast")
  userName = ws.Prompt(PROMPT_OKCANCELEDIT, _
  "User", Enter the hierarchical name of the user to delete")
  Call adminp.DeleteUser(userName, False, MAILFILE_DELETE_ALL, _
  "", False)
End Sub