OVH Cloud OVH Cloud

carnet d'adresses outlook depuis une page ASP

4 réponses
Avatar
Rénald
Hello,

J'essaye d'accéder à mon carnet d'adresse Outlook depuis une page ASP mais
ça ne marche pas.

Voici le code :


Set OlApp = CreateObject("Outlook.Application")
Set myNameSpace = OlApp.GetNameSpace("MAPI")
Set myContactList = myNameSpace.AddressLists("Contacts")
Set myContactsEntries = myContactsList.AddressEntries
dim p
for each p in myContactsEntries
msgbox p.name & p.address
next


Set OlApp = Nothing
Set myNameSpace = Nothing
Set myContactsList = Nothing
Set myContactsEntries = Nothing

D'avance merci

Rénald

4 réponses

Avatar
JièL Goubert
Bonjoir(c) Rénald

chez moi ça fonctionne, mais attention, y'a un s de trop dans la 4me ligne
c'est :
Set myContactsEntries = myContactList.AddressEntries

et non pas
Set myContactsEntries = myContactsList.AddressEntries

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 12/05/2006 11:02 vous avez écrit ceci :
Hello,

J'essaye d'accéder à mon carnet d'adresse Outlook depuis une page ASP mais
ça ne marche pas.

Voici le code :


Set OlApp = CreateObject("Outlook.Application")
Set myNameSpace = OlApp.GetNameSpace("MAPI")
Set myContactList = myNameSpace.AddressLists("Contacts")
Set myContactsEntries = myContactsList.AddressEntries
dim p
for each p in myContactsEntries
msgbox p.name & p.address
next


Set OlApp = Nothing
Set myNameSpace = Nothing
Set myContactsList = Nothing
Set myContactsEntries = Nothing

D'avance merci

Rénald




Avatar
Rénald
Cher Docteur,

J'avais fini par repérer cette erreur (après 3 heures j'avais les yeux qui
me sortaient des orbites....) mais, comble de chez comble, cela ne veut
toujours pas fonctionner.

Ce qui voudrait dire que j'ai un problème avec mon Outlook 2003 ?

A+

Rénald


Bonjoir(c) Rénald

chez moi ça fonctionne, mais attention, y'a un s de trop dans la 4me ligne
c'est :
Set myContactsEntries = myContactList.AddressEntries

et non pas
Set myContactsEntries = myContactsList.AddressEntries

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 12/05/2006 11:02 vous avez écrit ceci :
Hello,

J'essaye d'accéder à mon carnet d'adresse Outlook depuis une page ASP mais
ça ne marche pas.

Voici le code :


Set OlApp = CreateObject("Outlook.Application")
Set myNameSpace = OlApp.GetNameSpace("MAPI")
Set myContactList = myNameSpace.AddressLists("Contacts")
Set myContactsEntries = myContactsList.AddressEntries
dim p
for each p in myContactsEntries
msgbox p.name & p.address
next


Set OlApp = Nothing
Set myNameSpace = Nothing
Set myContactsList = Nothing
Set myContactsEntries = Nothing

D'avance merci

Rénald








Avatar
JièL Goubert
Bonjoir(c) Rénald

Le 13/05/2006 14:10 vous avez écrit ceci :
Cher Docteur,


Nan, pas docteur, ou alors attention, car je suis un spécialiste
spécialisé et pas de remboursement de la sécu ;-)

J'avais fini par repérer cette erreur (après 3 heures j'avais les yeux qui
me sortaient des orbites....) mais, comble de chez comble, cela ne veut
toujours pas fonctionner.

Ce qui voudrait dire que j'ai un problème avec mon Outlook 2003 ?


Bon, j'avoue avoir un peu triché car j'ai mis ça dans un fichier .VBS
n'ayant pas de quoi faire tourner de l'ASP sous la main

Quel sont les symptômes ?

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Avatar
Rénald
Hello,

Ce week-end les news semblent avoir eu des rallentissements....

Bref, Depuis que tu m'as dis que chez toi ça marchait, j'ai eu le même
réflexe, le mettre dans un fichier .vbs, et comme tu l'as justement dit, ça
marche.

Les symptômes : il a l'air de tourner dans le vide.... .

Je me demande si ce n'est pas à cause de la sécurité qu'ils ont inséré dans
Outlook, celle qui demande confirmation (un script essaye d'accèder à votre
messagerie, veuillez confirmer et indiquer la durée... )

A+

"Rénald" wrote:

Cher Docteur,

J'avais fini par repérer cette erreur (après 3 heures j'avais les yeux qui
me sortaient des orbites....) mais, comble de chez comble, cela ne veut
toujours pas fonctionner.

Ce qui voudrait dire que j'ai un problème avec mon Outlook 2003 ?

A+

Rénald


Bonjoir(c) Rénald

chez moi ça fonctionne, mais attention, y'a un s de trop dans la 4me ligne
c'est :
Set myContactsEntries = myContactList.AddressEntries

et non pas
Set myContactsEntries = myContactsList.AddressEntries

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 12/05/2006 11:02 vous avez écrit ceci :
Hello,

J'essaye d'accéder à mon carnet d'adresse Outlook depuis une page ASP mais
ça ne marche pas.

Voici le code :


Set OlApp = CreateObject("Outlook.Application")
Set myNameSpace = OlApp.GetNameSpace("MAPI")
Set myContactList = myNameSpace.AddressLists("Contacts")
Set myContactsEntries = myContactsList.AddressEntries
dim p
for each p in myContactsEntries
msgbox p.name & p.address
next


Set OlApp = Nothing
Set myNameSpace = Nothing
Set myContactsList = Nothing
Set myContactsEntries = Nothing

D'avance merci

Rénald