Taille des documents sélectionnés

Forum sur l'administration Domino
Répondre
andromeda
Messages : 706
Enregistré le : 30 mars 2004 0:07
Contact :

Taille des documents sélectionnés

Message par andromeda » 08 mars 2007 13:24

Code : Tout sélectionner

Cet agent va vous permettre de voir la taille des documents sélectionnés, par exemple, si vous voulez faire suivre ces documents par mails.

Dim s As New notessession
Dim db As notesdatabase
Set db = s.currentdatabase
Dim col As notesdocumentcollection
Set col = db.UnprocessedDocuments
Dim doc As notesdocument
If col.Count < 1 Then
' If db properties language (not looked into all rnext features yet ;o))
Print "No Document Selected"
Exit Sub
End If
Set doc = col.GetFirstDocument
Dim Size As Variant
Dim kb As Double
Do While (Not doc Is Nothing)
Size = Size + doc.Size
Set doc = col.GetNextDocument(doc)
Loop
'1kb = 1024 b
kb = Round((Size/1024),3)
Print Cstr(col.Count) & | Doc Selected, Total Size : | & Cstr(kb) & | Mb
Moderator - Forum

Répondre