DominoArea.org [Archive]

Bonjour,

En commentaire les types que je n'ai pas encore définis.

Code : Tout sélectionner

Option Public
' KFM_DEFS => kfm.h

' Valeurs pour dwDeleteInNABType
Const DELETE_PERSON_IN_NAB = 1
Const DELETE_SERVER_IN_NAB = 2
Const DELETE_GROUP_IN_NAB = 3

Type ADMINReqParams
   Flags 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 Boolean
   dbhDirectory As Long
End Type

Type AdminpAddInMessage
   RequestNoteId As Long ' NOTEID
   ResponseNoteID As Long ' NOTEID
End Type

Declare Function ADMINReqDeleteInNAB Lib "nnotes.dll" (dbhAdmin4 As Long, chAuthor As String, chUserName As String, chMailServerName As String, chMailFileName As String, chDeleteMailFile As String, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long

Declare Function ADMINReqDeleteInACL Lib "nnotes.dll" (dbhAdmin4 As Long, chAuthor As String, chUserName As String, chMailServerName As String, chMailFileName As String, chDeleteMailFile As String, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long

Declare Function ADMINReqChkAccessNewReplica Lib "nnotes.dll" (dbhAdmin4 As Long, chAuthor As String, chSrcServer As String, chSrcPathName As String, chTitle As String, ReplicaInfo As Long, chDesServer As String, chDesPathName As String, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long ' ReplicaInfo as DBREPLICAINFO

Declare Function ADMINReqChkAccessMoveReplica Lib "nnotes.dll" (dbhAdmin4 As Long, chAuthor As String, chSrcServer As String, chSrcPathName As String, chTitle As String, ReplicaInfo As Long, chDesServer As String, chDesPathName As String, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long ' ReplicaInfo as DBREPLICAINFO

Declare Function ADMINReqRename Lib "nnotes.dll" (hCertCtx As Long, dbhNab As Long, nhNote As Long, pFirstName As String, pMiddleInitial As String, pLastName As String, pOU As String, retfWeLoggedThisEntry As Boolean, retfFatalError As Boolean, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long ' hCertCtx As HCERTIFIER

Declare Function ADMINReqRecertify Lib "nnotes.dll" (hCertCtx As Long, dbhNab As Long, nhNote As Long, retfWeLoggedThisEntry As Boolean, retfFatalError As Boolean, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long ' hCertCtx As HCERTIFIER

Declare Function ADMINReqMoveUserInHier Lib "nnotes.dll" (hCertCtx As Long, dbhNab As Long, nhNote As Long, pTargetCert As String, retfWeLoggedThisEntry As Boolean, retfFatalError As Boolean, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long ' hCertCtx As HCERTIFIER

Declare Function ADMINReqMoveComplete Lib "nnotes.dll" (hCertCtx As Long, dbhAdmin4 As Long, nhAdminReq As Long, pTargetCert As String, retfWeLoggedThisEntry As Boolean, retfFatalError As Boolean, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long ' hCertCtx As HCERTIFIER

Declare Function ADMINReqUpgradeToHier Lib "nnotes.dll" (hCertCtx As Long, dbhNab As Long, nhNote As Long, pOU As String, retfWeLoggedThisEntry As Boolean, retfFatalError As Boolean, arpAdminReqParamsPtr As ADMINReqParams, wAdminReqParamsSize As Integer) As Long ' hCertCtx As HCERTIFIER

Si vous trouvez des erreurs n'hésitez pas.

juste une petite remarque sur la lisibilité...
pourrais-tu stp mettre un interligne entre chaque declare...

pour le reste je te fais confiance... you are the api's master

Salut,

Oui, je n'avez pas remarqué que c'était illisible.