Création dossier contact qui interroge un LDAP

[tiamat59]

Bonjour,

Je cherche a créer un élément contact qui interrogerais et listerais une OU Active directory.
est ce possible? Si oui auriez peut être un script dèjà bien avancé sur le sujet ou des pites.

Si ce n'est pas possible faire éventuellement la création d'un éléement dossier de type contact avec la configuration de la page d'accueil vers une page web.

Dans les deux cas cela ne doit se faire qu'une seule fois, au premier lancement d'outlook.

Merci d'avance.

[tiamat59]

J'ai essayer dèja de créer un dossier avec des code trouver sur le forum mais j'ai dans tout les cas le même message d'erreur qui dit:

"Erreyr d'éxécution '-2147221233 (8004010f)'
Impossible d'exécuter l'opération.Impossible de trouver un objet."

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Application_Startup()
 
    Dim monOutlook As Object
   Set monOutlook = CreateObject("Outlook.Application")
   Dim ns  As Object
   Set ns = monOutlook.GetNamespace("MAPI")
   Dim dossier As Object
   Set dossier = ns.Folders("Contacts")
   Dim myNewFolder  As Object
   Set myNewFolder = dossier.Folders.Add("Test-truc")
 
End Sub

J'ai aussi testé ce code sans succès trouvé sur http://outlook.developpez.com/faq/in...A_CreateFolder

Code :

1
2
3
4
5
6
7
8
9
10
 
 
    Dim monOutlook As New Outlook.Application
    Dim ns As namespace
    Dim dossier As MAPIFolder
    Dim myNewFolder As MAPIFolder
 
    Set ns = monOutlook.GetNamespace("MAPI")
    Set dossier = ns.Folders("Dossiers personnels").Folders("Boîte de réception")
    Set myNewFolder = dossier.Folders.Add("Test")

Quelqu'un pourrait m'aider?

[tiamat59]

J'ai avancé, j'arrive a créer un dossier contact.
Par contre je ne sais pas tester si il existe et si on peut configurer une page d'accueil ou un lien vers LDAP

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Application_Startup()
 
 Dim myOlApp As New Outlook.Application
 Dim myNameSpace As Outlook.NameSpace
 Dim myFolder As Outlook.Folder
 Dim myContactFolder As Outlook.Folder
 
 
 Set myNameSpace = myOlApp.GetNamespace("MAPI")
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
 
    Set myContactFolder = myFolder.Folders.Add("Annuaire PDV",olFolderContacts)
 
End Sub

[tiamat59]

Pas beaucoup de mouvement dans ce coin du forum.

Finalement j'ai trouvé une solution après plusieurs jours de recherche.
Une solution pour la partie "ajouter un dossier de contact et mettre une page d'accueil".
Pour l'interrogation en LDAP je ne pense pas que cela soit possible.

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
35
36
37
38
39
40
Public Sub Application_Startup()
 
Create "Annuaire PDV", "http://www.domaine.net/annuaire/pdv/"
Create "Annuaire Public", "http://www.domaine.net/annuaire/public/"
 
End Sub
 
Public Sub Create(nom, lien)
 
' définition des variable
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myContactFolder As Outlook.Folder
Dim DossierDest As Outlook.Folder
  ' définition des variable
Dim myOlApp2 As New Outlook.Application
Dim myNameSpace2 As Outlook.NameSpace
Dim myFolder2 As Outlook.Folder
Dim myContactFolder2 As Outlook.Folder
Dim DossierDest2 As Outlook.Folder
 
 
 Set myNameSpace = myOlApp.GetNamespace("MAPI")
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
 
On Error GoTo 1 ' si erreur et dossier non trouvé aller directement à la création
Set DossierDest = myFolder.Folders(nom)
 
If DossierDest Is Nothing Then
1:
On Error GoTo 2 ' si dossier déjà créer erreur et donc aller à la fin
    Set myContactFolder = myFolder.Folders.Add(nom, olFolderContacts)
    myContactFolder.WebViewURL = lien
    myContactFolder.WebViewOn = True
End If
2:
 
End Sub

Par contre le code est vraiment pas propre et il faut activer complétement les macro pour qu'il les accepte sans message.
Je vais essayer de trouver une solution a cela et posterai une réponse.