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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager