Créer un répertoire dans Outlook 2000

Signaler
Messages postés
28
Date d'inscription
mardi 26 novembre 2002
Statut
Membre
Dernière intervention
13 juillet 2006
-
Messages postés
16
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
28 juin 2004
-
Bonjour,

Je cherche comment ajouter des contacts dans Outlook 2000 dans un autre dossier que le dossier contact et tout ca, en passant par Access.

Je suis capable d'ajouter les contact dans le dossier contact par défaut de Outlook, mais je ne suis pas capable de sélectionner le répertoire XYZ qui est un répertoire de type contact dans lequel il faut que j'ajoute mes contact.

Un petit exemple serais le bienvenue...

Merci!

2 réponses

Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
11
Voici quelques pistes :

1. Créer le répertoire "XYZ" de type contact :

Sub Cre_Folder()

Dim oOlApp As Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder

Set oOlApp = CreateObject("Outlook.Application")
Set oNameSpace = oOlApp.GetNamespace("MAPI")
Set oFolder = oNameSpace.Folders(1).Folders.Add("XYZ", olFolderContacts)

oOlApp.Quit
Set oOlApp = Nothing

End Sub

2. Ajouter le contact "Rodrigue" dans le répertoire "XYZ" :

Sub Cre_Contact()

Dim oOlApp As Outlook.Application
Dim oNameSpace As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oItem As Outlook.ContactItem

Set oOlApp = CreateObject("Outlook.Application")
Set oNameSpace = oOlApp.GetNamespace("MAPI")
Set oFolder = oNameSpace.Folders(1).Folders("XYZ")
Set oItem = oFolder.Items.Add

With oItem
.FirstName = "Rodrigue"
.Save
End With

oOlApp.Quit
Set oOlApp = Nothing

End Sub

Good luck !

wape
0
Messages postés
16
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
28 juin 2004

Salut !
J'ai eu le même pb.
En fait je créais des listes de diffusion. Mais pour ajouter un contact, on doit créer un objet Recipient. Il va alors chercher les contacts, d'abords dans le répertoire "Contacts" par défaut, et ensuite dans ceux que j'ai créé.
Je voudrais savoir si je pouvais faire en sorte de créer des objets Recipient, directement à partir du dossie que j'ai créer?

Merci

Zlackzj
0