DominoArea.org [Archive]

Bonjour

je cherches un moyen fiable de déterminer qu'une base est une mailbox juste en analysant sont design via un script ?

une idée ?

j'ai pris comme "flag" la présence du document "CalendarProfile"...

Salut Michael, tu ne devrais pas trop te tromper avec ce "flag"

ben tu va rire, j'ai du affiner !

parce que le document existe sur certaine bases. mais quand tu essais de l'ouvrir le code plante...

je regarde si le document contient bien le "CalendarProfile" dans le champ form et encore comme ça j'ai des faux positif... mais très peu

Et qu'as tu comme type de base en faux positif ? des apps interne ?

par exemple : webadmin.ntf

j'ai un bout de code qui me renvois tous les document profils d'une base , et je retrouve dedans "CalendarProfile" alors qu'il ne devrait pas y etre

Code : Tout sélectionner

set Item = New NotesItem(wDocReport,"DocProfile","")
   Set NCollection = wDBScan.CreateNoteCollection(False)
   If Not NCollection Is Nothing Then
      Call NCollection.SelectAllFormatElements(False)
      NCollection.SelectProfiles = True
      On Error Resume Next
      Call NCollection.BuildCollection
      On Error Goto CatchError
      If NCollection.Count > 0 Then
         NotesID = NCollection.Getfirstnoteid()
         While Trim(NotesID) <> ""
            Set Doc = wDBScan.Getdocumentbyid(NotesID)            
            If Not Doc Is Nothing Then               
               Select Case Lcase(Trim(Cstr(Doc.Nameofprofile)))
                  
               Case "designerdefaults","breakpoints_"
                  REM on fait rien
               Case Else
                  i=i+1
                  Texte =  Trim(Cstr(Doc.Nameofprofile))
                  If Trim(Cstr(Doc.Key)) <> "" Then
                     Texte = Texte +" ( "+Cstr(Doc.Key)+" )"
                  End If
                  Call Item.Appendtotextlist(Texte)                           
                  texte = ""
               End Select
               Set Doc = Nothing
            End If
            NotesID = NCollection.Getnextnoteid(NotesID)
         Wend
         Call NCollection.Clearcollection()
      End If
      Set NCollection = Nothing
   End If
   Set Item = Nothing

salut Michael,

Je viens de tomber sur cet article : http://dpastov.blogspot.nl/2012/06/pred ... +Dmytro%29
il y a un ReplicaId pour les bases courrier...à tester...

j'ai pas de client sous la main, je regarde ça demain. merci.