Discussion :

[Commodore]

Bonjour,

Dans Outlook, il existe la possibilité de créer des dossiers publics, ce qui est le cas dans mon entreprise.

Je dispose donc d'une base de données importante de contacts, mais il est assez ardu de retrouver une liste de contacts bien précise. Je dois pour cela parcourir à la main les adresses enregistrées et vérifier si le contact correspond aux critères de ma liste d'envoi.

Existe-t-il un moyen de sortir un requête (sql ?) sur les données des dossiers publics à partir d'un client, ou ce privilège est-il réservé au serveur ?

Merci

[Dolphy35]

Salut,

Un dossier publique réagit comme un dossier normal, tu peux par VBA parcourir tes contacts et extraire ceux en fonction d'une catégorie précise passée en paramètre :

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
Function ParcourirContact(categorie As String) As String
 
'---------------------------------------------------------------------------------------
' Procedure : ParcourirContact
' DateTime  : 08/01/2008 11:00
' Author    : Dolphy35 (http://dolphy35.developpez.com/)
' Purpose   : Permet de retourner toutes les @ d'une catégorie passé en paramètre
'---------------------------------------------------------------------------------------
'
    'Déclarations des variables
    Dim oContact As ContactItem
    Dim oDossier As Folder
    Dim NSpace As NameSpace
    Dim olApp As Outlook.Application
 
    'Instance
    Set olApp = Outlook.Application
    Set NSpace = olApp.GetNamespace("MAPI")
    Set oDossier = NSpace.GetDefaultFolder(olFolderContacts)
 
    'Parcour le dossier contacts, avec test catégorie passée en paramètre et renvoi adresse mail 1
    For Each oContact In oDossier.Items
        If ParcourirContact <> "" Then ParcourirContact = ParcourirContact & ";"
        If oContact.Categories = categorie Then
            ParcourirContact = ParcourirContact & oContact.Email1Address
        End If
    Next oContact
 
    'Vides des instances
    Set olApp = Nothing
    Set NSpace = Nothing
    Set oDossier = Nothing
 
End Function

Dolphy

[Oliv-]

Bonjour le dossier public "Tous les dossiers public" est désigné par olPublicFoldersAllPublicFolders dans la fonction GetDefaultFolder

donc si tu as un dossier "agenda groupe"
set mondossier=myNamespace.GetDefaultFolder(olPublicFoldersAllPublicFolders).folders("agenda groupe")



tu peux aussi utiliser "restrict" pour limiter la recherche voir l'aide de vbe

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
Sub MoveItems()
	Dim myOlApp As Outlook.Application
	Dim myNamespace As Outlook.NameSpace
	Dim myFolder As Outlook.MAPIFolder
	Dim myItems As Outlook.Items
	Dim myRestrictItems As Outlook.Items
	Dim myItem As Outlook.MailItem
	Set myOlApp = CreateObject("Outlook.Application")
	Set myNamespace = myOlApp.GetNamespace("MAPI")
	Set myFolder = _
	myNamespace.GetDefaultFolder(olPublicFoldersAllPublicFolders)
	Set myItems = myFolder.Items
	Set myRestrictItems = myItems.Restrict("[Categories] = 'Business'")
	For i =  myRestrictItems.Count To 1 Step -1
		myRestrictItems(i).Move myFolder.Folders("Business")
	Next
End Sub

[Commodore]

ok, merci beaucoup, je vais mettre ces conseils en application