Ouvrir une base Lotus Script
Choisir une base en Lotus Script
Ce code permet, en Lotus Script, de choisir une base de document locale ou sur serveur, puis de l'ouvrir afin d'effectuer, par exemple, un comptage de documents...
...
dans mon exemple, le code parcourt tous les documents de la base puis, pour chaque document, vérifie s'il s'agit d'une suppression, d'un document valide ou non valide (document utilisant une base courrier partagé par vexemple).
A utiliser, à titre d'exemple, dans un agent. Le résultat du comptage est affiché dans la barre d'état Notes.
Sub Initialize
Dim uiws As New notesuiworkspace
Dim S As New NotesSession
Dim coll As notesdocumentcollection
Dim doc As notesdocument
Dim curdb As New NotesDatabase( "", "" )
On Error Goto erreur
var=uiws.Prompt(13,"SUITE","Sélection de la boite aux lettres devant être traitée.")
Call curdb.open(var(0),var(1))
Set coll=curdb.AllDocuments
Dim counterC As Integer
Dim counterR As Integer
Dim countError As Integer
Dim countSuppr As Integer
countSuppr=0
countErr=0
counterC=0
counterR=0
Set doc=coll.getfirstdocument
While Not doc Is Nothing
If doc.IsProfile Then
Goto suite
End If
counterC=counterC+1
If doc.IsValid=True Then
counterR=counterR+1
If doc.IsDeleted Then
countSuppr=countSuppr+1
End If
End If
suite:
Print Cstr(counterR) & " sur " & Cstr(counterC) & " -- Suppression = " & Cstr(countsuppr)
Set doc=coll.GetNextDocument(doc)
Wend
Goto fin
erreur:
countError=counterror+1
Resume Next
fin :
Print Cstr(counterror) & " erreurs"
End Sub
| Permalink | 
- 
