[OL-2010] Utiliation de Items.Find infructueux avec le Folders("COMPTES")

[JeanB_Can]

Bonjour,

Je suis nouveau sur ce Forum et espère y trouver une solution à un problème de VBA dans Microsoft Outlook et le "Gestionnaire de contacts professionnels".

-Outlook 2010
-BCM 2010
-VBA

Je désire trouver un enregistrement dans les "Comptes". Cela fonctionne très bien avec les "Contacts professionnels".

Tous les exemples sont en anglais. J'ai dû adapter le code pour tenir compte des répertoires en français. Je pensais que mon erreur venait de là mais en consultant les variables locales, je suis en mesure de voir que les répertoires sont rejoint. Dans existAcct "Nothing". Dans bcmAccountsFldr, les Items sont listés et le FileAs "Nom" existe.

Merci de votre aide.

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Sub SelectAccount()
 
   Dim olApp As Outlook.Application
   Dim objNS As Outlook.NameSpace
   Dim olFolders As Outlook.Folders
   Dim bcmRootFolder As Outlook.Folder
   Dim bcmAccountsFldr As Outlook.Folder
   Dim existAcct As Outlook.ContactItem
 
   Set olApp = CreateObject("Outlook.Application")
   Set objNS = olApp.GetNamespace("MAPI")
   Set olFolders = objNS.Session.Folders
   Set bcmRootFolder = olFolders("Gestionnaire de contacts professionnels")
   Set bcmAccountsFldr = bcmRootFolder.Folders("Enregistrements professionnels").Folders("Comptes")
   'Set bcmAccountsFldr = bcmRootFolder.Folders("Enregistrements professionnels").Folders("Contacts professionnels")
   Set existAcct = bcmAccountsFldr.Items.Find("[FileAs] = 'NOM'")
 
   If Not TypeName(existAcct) = "Nothing" Then
 
      MsgBox ("Account selected successfully")
 
   Else
 
      MsgBox ("No Account found ")
 
   End If
 
   Set existAcct = Nothing
   Set bcmAccountsFldr = Nothing
   Set bcmRootFolder = Nothing
   Set olFolders = Nothing
   Set objNS = Nothing
   Set olApp = Nothing
 
End Sub