none
[outlook2010] methode Items.Restrict = probleme RRS feed

  • Question

  • Bonjour

    avec ce code je parcours les enregistrements pour vérifier si il
    y a un doublon...

     
    '******************************************************************************
    ' Boucle pour parcourir les enregistrements de la table
    '******************************************************************************
    On Error GoTo 0
    If rs Is Nothing Then GoTo fin
    While Not rs.EOF
     
    'Filtre pour recherche des données déjà existantes dans les contacts locaux
    If rs.Fields("EntryID") <> "" Then
    stFilt = "[EntryID] = """ & rs.Fields("EntryID") & """"
    Else
    stFilt = "@SQL=" & Chr(34) _
    & "urn:schemas:contacts:EntryID" & _
            Chr(34) & " is null"
    End If
     
    Dim toto
    Set toto = oFold.Items.Restrict(stFilt)
    Set oCo = oFold.Items.Find(stFilt)
     
     
    Set oCo = toto.Find(stFilt)
    Set toto = toto.Restrict(stFilt)
    If toto.Count > 1 Then MsgBox "Doublon sur : " & rs.Fields("EntryID") & " "

    Bien entendu cela ne fonctionne pas mais je sais pourquoi

    J'utilise EntryID et ce champ est incomptible

    Selon l'aide :
    
    Si vous utilisez des champs définis par l'utilisateur à l'intérieur d'une clause Find ou Restrict, ces champs doivent exister dans le dossier. Si ce n'est pas le cas, le code générera un message d'erreur indiquant que ces champs sont inconnus. Pour ajouter un champ à un dossier, il suffit d'afficher le sélecteur de champs et de cliquer sur Nouveau. 
    
    Cette méthode ne peut pas être utilisée et génère une erreur avec les propriétés suivantes :
    
    Body
    Categories
    
    Children
    
    Class
    
    Companies
    
    CompanyLastFirstNoSpace
    
    CompanyLastFirstSpaceOnly
    
    ContactNames
    
    Contacts
    
    ConversationIndex
    
    DLName
    
    Email1EntryID
    
    Email2EntryID
    
    Email3EntryID
    
    EntryID
    
    HTMLBody
    
    IsOnlineMeeting
    
    LastFirstAndSuffix
    
    LastFirstNoSpace
    
    AutoResolvedWinner
    
    BodyFormat
    
    InternetCodePage
    
    Permission
    LastFirstNoSpaceCompany
    LastFirstSpaceOnly
    
    LastFirstSpaceOnlyCompany
    
    LastFirstNoSpaceAndSuffix
    
    MemberCount
    
    NetMeetingAlias
    
    NetMeetingAutoStart
    
    NetMeetingOrganizerAlias
    
    NetMeetingServer
    
    NetMeetingType
    
    RecurrenceState
    
    ReplyRecipients
    
    ReceivedByEntryID
    
    RecevedOnBehalfOfEntryID
    
    ResponseState
    
    Saved
    
    Sent
    
    Submitted
    
    VotingOptions
    
    DownloadState
    
    IsConflict
    
    MeetingWorkspaceURL
    
    Alors ma question : Comment je peux vérifier la présence de doublons sur le
    champs EntryID sans utiliser le methode Items.Restrict ?

    merci d'avance


    mercredi 30 janvier 2013 14:27

Réponses

Toutes les réponses