c'est une mailbox

[Michael DELIQUE]

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 ?

[Michael DELIQUE]

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

[Dominux]

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

[Michael DELIQUE]

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

[Dominux]

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

[Michael DELIQUE]

par exemple : webadmin.ntf

[Michael DELIQUE]

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

[Sylvain-PEPIN]

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...

[Michael DELIQUE]

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