Pour un client j'ai fait un morceau de code qui permet de déchiffrer les mails.
Ca fonctionne pas mal, sauf qu'à un moment s'il y a trop de mails le client Notes plante.
J'ai esssayé de mettre un YIELD dans ma boucle, mais toujours idem.
Auriez-vous une idée comme faire pour que le client ne plante pas ???
- Code : Tout sélectionner
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim docCourant As NotesDocument
Dim i As Integer
Dim j As Integer
i=0
Set db=session.CurrentDatabase
Set view=db.GetView("($all)")
j=view.EntryCount
view.AutoUpdate=False
Set doc=view.GetFirstDocument
While Not (doc Is Nothing)
If doc.HasItem("Encrypt") Then
If doc.GetItemValue("Encrypt")(0)="1" Then
Set uidoc=ws.EditDocument(True,doc)
Set docCourant=uidoc.Document
Call docCourant.RemoveItem("Encrypt")
Call docCourant.Replaceitemvalue("ActionInProgress","4096")
Call uidoc.Save
Call docCourant.Save(True,False)
Call uidoc.Close(True)
YIELD
i=i+1
Print i
End If
End If
j=j-1
Print "Il reste " & j & " mails à traiter. " & i & " ont été déchiffrés"
Set doc=view.GetNextDocument(doc)
Wend
view.AutoUpdate=True
