Hi All,i wrote this following script to remove user mail file. i get the error message “cannot open database” I loged on using the administrator id to run this script but still unable to run this…i think this is authority problem. Please help me…
Regards
shana
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set uidoc=workspace.currentdocument
Set doc= uidoc.Document
ServerNm=db.server
’ Rdb=doc.M_DB(0)+“.nsf”
Rdb="mail/groupit/tuser1"+".nsf"
Dim boxType As Long, answer As Integer
boxType& = MB_YESNO + MB_ICONQUESTION
answer% = Messagebox("Do you want to Remove "+key+" Mail Details from server ?", boxType&, _
"Continue?")
If answer% ="7" Then
Exit Sub
Elseif answer% ="6" Then
Set dbRem = Session.GetDatabase(ServerNm, Rdb)
If dbRem.IsOpen Then
Call dbRem.Remove
Rs.Remove(True)
Else
Print( "Cannot Delete Database" )
End If
End If