VBA et les Public Folders d'Outloook
Fermé
mcloutier
Messages postés
1
Date d'inscription
mercredi 21 novembre 2001
Statut
Membre
Dernière intervention
16 septembre 2003
-
16 sept. 2003 à 15:29
michelh Messages postés 16 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 12 mars 2005 - 16 sept. 2003 à 16:37
michelh Messages postés 16 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 12 mars 2005 - 16 sept. 2003 à 16:37
A voir également:
- VBA et les Public Folders d'Outloook
- Remove empty files and folders - Télécharger - Nettoyage
- Google public dns - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba range avec variable ✓ - Forum VB / VBA
- Julia s'est fait pirater son compte sur un réseau social. son mot de passe de 8 caractères était facile à deviner à partir des informations que tout le monde peut consulter en ligne sur son profil public. vous devez trouver son mot de passe pour découvrir qui veut devenir l'ami de julia. voici sa page de profil public et le lien pour accéder au réseau social. - Forum Windows
1 réponse
michelh
Messages postés
16
Date d'inscription
mardi 9 septembre 2003
Statut
Membre
Dernière intervention
12 mars 2005
25
16 sept. 2003 à 16:37
16 sept. 2003 à 16:37
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
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