cs_Rodrigue
Messages postés28Date d'inscriptionmardi 26 novembre 2002StatutMembreDernière intervention13 juillet 2006
-
19 déc. 2002 à 19:59
zlackzj13
Messages postés16Date d'inscriptionlundi 19 avril 2004StatutMembreDernière intervention28 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.
cs_wape
Messages postés262Date d'inscriptionsamedi 21 décembre 2002StatutMembreDernière intervention19 décembre 201012 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
zlackzj13
Messages postés16Date d'inscriptionlundi 19 avril 2004StatutMembreDernière intervention28 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?