[Données] Extraire les données des dossiers publics (SQL ?)

Version imprimable

21/02/2008, 16h25
Commodore

[Données] Extraire les données des dossiers publics (SQL ?)

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

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:

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 ;)

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:

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

26/02/2008, 16h22
Commodore

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