VBA et les Public Folders d'Outloook
mcloutier
Messages postés
1
Statut
Membre
-
michelh Messages postés 16 Statut Membre -
michelh Messages postés 16 Statut Membre -
Bonjour!
J'essaie d'accéder aux Public Folders d'Outlook.
Voici comment je m'y prends:
Dim dosContacts As Outlook.MAPIFolder
Set dosContacts = Application.GetNamespac("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders)
Ça me dit qu'aucun objet n'est trouvé.... :(
En fait je veux accéder au répertoire Public Contacts, qui est situé dans : Public Folders\All Public Folders
Quelle est la manière???? Merci à l'avance!
J'essaie d'accéder aux Public Folders d'Outlook.
Voici comment je m'y prends:
Dim dosContacts As Outlook.MAPIFolder
Set dosContacts = Application.GetNamespac("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders)
Ça me dit qu'aucun objet n'est trouvé.... :(
En fait je veux accéder au répertoire Public Contacts, qui est situé dans : Public Folders\All Public Folders
Quelle est la manière???? Merci à l'avance!
1 réponse
-
Essaie ceci :
Dim olns As Outlook.NameSpace
Dim dosContacts As Outlook.MAPIFolder
Dim i As Integer
Dim NumItems As Integer
Dim MyDoc As Outlook.DocumentItem
Set olns = olApp.GetNamespace("MAPI")
Set dosContacts = olns.Folders("Public Folders")
NumItems = dosContacts.Items.Count
Set MyItems = dosContacts.Items
For i = 1 To NumItems
Set MyDoc = MyItems.Item(i)
‘ If MyDoc = p_sTitre Then
MyDoc.Display
‘ Exit For
‘ End If
Next i
Ce n’est pas garantie, car je n’ai pas essayé ce code.
A +
Michel
