VBA et les Public Folders d'Outloook

mcloutier Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
michelh Messages postés 16 Date d'inscription Statut Membre Dernière intervention - 16 sept. 2003 à 16:37

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!

A voir également:

VBA et les Public Folders d'Outloook
Rainbow folders - Télécharger - Divers Utilitaires
Ip public - Guide
Remove empty files and folders - Télécharger - Nettoyage
My public wifi - Télécharger - Connexion à distance
Excel compter cellule couleur sans vba - Guide

1 réponse

Réponse 1 / 1

michelh Messages postés 16 Date d'inscription Statut Membre Dernière intervention 25

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

Discussions similaires

Faut il rester en réseau public à la maison ?

"L'indice n'appartient à la sélection" + VBA

Code wifi proximus public

Erreur d'exécution 13 Incompatibilité de type

Réseau public ou réseau privé?

Votre réponse

Discussions similaires