Bonjour, à tous
j'ai un soucis j'ai le bal d'un user qui et passer en archive sur le serveur quand j'ouvre la boite mail sa en haut a gauche sa me marque courrier archivé
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = s.currentdatabase
Set doc=db.GetProfileDocument(”archive database profile”)
doc.ArchiveDatabase = “0″
Call Doc.Save(True,True)