DominoArea.org [Archive]

Bonjour,j'ai supprimé par erreur le filtre "Courrier en arrivée" Résultat, je suis obligé de passé par "Tous documents" pour consulter les messages reçus, ce qui n'est pas très pratique.Quelqu'un a-t'il une solution ?Merci d'avance

Salut,Il faut que tu fasse une mise à jour de la structure de ta boite mail.Inconvénient : Inbox étant un dossier, la mise à jour de structure va te le récréer en revanche, lorsque tu va allé dedans, le dossier sera vide (les mails reçu avant le mise à jour n'y apparaitrons pas).

Bonjour,Voici un script qui tourne en 5.0.8 Fr.Bonne chance.When a user is missing mails in his Inbox but can see them in the All Documents view, just copy/paste this button into a mail and send it to the user.LotusScript code:Sub Click(Source As Button) Dim s As New notessession Dim db As notesdatabase Dim fDoc As NotesDocument ' Document in folder Dim ad As notesview ' All Documents view Dim aDoc As notesdocument ' document in All Docs view Dim fUNID() As String ' array of UNID's of docs in folders Dim i As Integer ' UNID array index Dim deldate As notesitem Dim Chair1 As notesitem i =0 Set db = s.CurrentDatabase ' Build UNID array by looping through folders, then their documents Forall view In db.views If view.IsFolder And Not view.Name=("($All)") Then Set fDoc = view.GetFirstDocument While Not fDoc Is Nothing Redim Preserve fUNID(i) fUNID(i) = fDoc.UniversalID i=i+1 Set fDoc = view.GetNextDocument(fDoc) Wend End If End Forall ' Loop through docs in the All Documents view and compare UNIDs to each doc in the array Set ad = db.GetView("($All)") Set aDoc = ad.GetFirstDocument While Not aDoc Is Nothing i = 0 Do While i <= Ubound(fUNID) If fUNID(i) = aDoc.UniversalID Then Exit Do End If i = i + 1 Loop Set deldate = adoc.getfirstitem("delivereddate") Set Chair1 = adoc.getfirstitem("CHAIR") If i > Ubound(fUNID) And Not deldate Is Nothing And Chair1 Is Nothing Then Call adoc.PutInFolder( "($Inbox)") End If Set aDoc = ad.GetNextDocument(adoc) Wend End Sub

Ou alors, tu peux faire un truc du genreDim session as new notessessiondim db as notesdatabasedim colDoc as notesdocumentcollectiondim filtre as stringset db= session.currentdatabase' recherche tous les documents contenant le champ DeliveredDatefiltre = "@isavailable(DeliveredDate)"set colDoc = session.search(filtre, nothing, 0)if colDoc.count>0 thenCall colDoc.PutAllInFolder("($Inbox)")end if