DominoArea.org [Archive]

Option Public
Option Declare
Dim session As Notessession
Dim db As notesdatabase
Dim vueSupp As NotesView
Dim docSupp As notesdocument
Dim docTemp As notesdocument
Dim admproc As NotesAdministrationProcess

Dim idprocess As String
Type ADMINReqParams
AdminpFlags As Long
dwDeleteInNABType As Long
chGroupName As String
chAltName As String
chFirstName As String
chMiddleInitial As String
chLastName As String
chAltCommonName As String
chAltOrgUnitName As String
chAltLanguage As String
fDontUseV1ChangeRequest As Integer
End Type

Declare Function W32_NSFDbOpen Lib "nnotes.dll" Alias "NSFDbOpen" ( Byval dbName As String, hDb As Long) As Integer
Declare Function W32_NSFDbClose Lib "nnotes.dll" Alias "NSFDbClose" ( Byval hDb As Long) As Integer
Declare Function W32_ADMINReqDeleteInACL Lib "nnotes.dll" Alias "ADMINReqDeleteInACL" ( Byval hDb As Long, Byval chAuthor As String, Byval chUserName As String, Byval chMailServerName As String, Byval chMailFileName As String, Byval chDeleteMailFile As String, arpAdminReqParamsPtr As ADMINReqParams, Byval wAdminReqParamsSize As Long ) As Integer
Declare Function W32_ADMINReqDeleteInNAB Lib "nnotes.dll" Alias "ADMINReqDeleteInACL" ( Byval hDb As Long, Byval chAuthor As String, Byval chUserName As String, Byval chMailServerName As String, Byval chMailFileName As String, Byval chDeleteMailFile As String,arpAdminReqParamsPtr As ADMINReqParams, Byval wAdminReqParamsSize As Long ) As Integer
Set session = New NotesSession
Set db = session.currentdatabase
Set vueSupp = db.getview("CFlagSupp")
Set docSupp = vueSupp.GetFirstDocument

Do Until docSupp Is Nothing

Dim hdb As Long
Dim rc As Integer
Dim Adminp As ADMINReqParams

rc = W32_NSFDbOpen("bryg010!!admin4.nsf", hdb)
rc = W32_ADMINReqDeleteInNAB(hdb," id du demandeur","id user a supp","serveur","lien mail","0",Adminp,Len(Adminp))
rc = W32_NSFDbClose(hdb)
Loop