Comment détecter -par agent- les bases cryptées ?

[Jerome Capodano]

Bonjour, Nous sommes en train de procéder à des procédures d'archivage de base courrier sur un serveur Non Notes. Bien que nous ayons recommandé de crypter les bases, certains ne l'ont pas fait. J'aimerais donc trouver un moyen de détecter si une base est cryptée. Je suis étonné de ne pas trouver cette propriété dans la classe NotesDatabase?? ( Version 5.08)Merci par avance !

[Droad]

Trouvé ça dans la LDD (valide à partir de la 5.07):Const wAPIModule = "NNOTES" ' Windows/32Declare Private Function NSFDbOpen Lib wAPIModule Alias "NSFDbOpen" _( Byval P As String, hDB As Long) As IntegerDeclare Private Function NSFDbClose Lib wAPIModule Alias "NSFDbClose" _( Byval hDB As Long) As IntegerDeclare Private Function NSFDbIsLocallyEncrypted Lib wAPIModule Alias "NSFDbIsLocallyEncrypted" _( Byval hDB As Long, V As Integer) As IntegerDeclare Private Function OSPathNetConstruct Lib wAPIModule Alias "OSPathNetConstruct" _( Byval NullPort As Long, Byval Server As String, Byval FIle As String, Byval PathNet As String) As IntegerFunction IsLocallyEncrypted(db As NotesDatabase) As Variant np$ = Space(1024) OSPathNetConstruct 0, db.Server, db.FilePath, np$ Dim hDB As Long NSFDbOpen np$, hDB If hDB = 0 Then Exit Function NSFDbIsLocallyEncrypted hDB, v% NSFDbClose hDB IsLocallyEncrypted = Not (v% = 0)End Function[%sig%]

[Jerome Capodano]

Je sens que ca être fun !

[Jerome Capodano]

Merci Droad !A+