Créer un répertoire dans Outlook 2000

cs_Rodrigue Messages postés 28 Date d'inscription mardi 26 novembre 2002 Statut Membre Dernière intervention 13 juillet 2006 - 19 déc. 2002 à 19:59
zlackzj13 Messages postés 16 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 28 juin 2004 - 20 avril 2004 à 12:16
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

cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 11
23 déc. 2002 à 22:46
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
zlackzj13 Messages postés 16 Date d'inscription lundi 19 avril 2004 Statut Membre Dernière intervention 28 juin 2004
20 avril 2004 à 12:16
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
Rejoignez-nous