PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → WINDEV 2024 → Problème de récupération de l'annuaire commun d'exchange
Problème de récupération de l'annuaire commun d'exchange
Iniciado por Kevin B., 03,mar. 2005 21:53 - No hay respuesta
#1
Publicado el 03,marzo 2005 - 21:53
Bonjour,

je travaille pour 2 sociétés,
j'ai développé un prog qui permet d'importer et exporter des contacts publics dans exchange

dans la société 1, pas de problème quelque soit le poste de travail

dans la société 2, ça ne fonctionne pas du tout
j'ai d'abord cru que ça venait d'outlook 2003 vu que c'est la version 11 d'office
donc je me suis mit sur un poste sous outlook 2000 (comme dans la société 1) et c'est pareil


serait ce lié à exchange? un paramétrage?
ça ne peut pas être un problème de droits sur le dossier public car la personne chargée de la création des contacts n'a pas de droits en écriture sur le dossier si elle passe par outlook
ou alors il y a un autre endroit pour mettre des droits?




voici l'erreur que j'obtiens (apparemment c'est une erreur générique...) :
Vous accédez au membre Automation FirstName.
Erreur 80020006, Nom inconnu
- Code erreur : 2208
- Identifiant dans le .err : 130004



voici le code :

LOCAL
res est un entier
ChSql est une chaîne
i est un entier
NbElem est un entier
temp est une chaîne

m_OutLook est un objet OLE dynamique // "Outlook.Application"
m_item est un objet OLE dynamique // "Outlook.Application"
m_NameSpace est un objet OLE dynamique // "Outlook.Application"
m_NameSpace2 est un objet OLE dynamique // "Outlook.Application"
m_NameSpace3 est un objet OLE dynamique // "Outlook.Application"
m_NameSpace4 est un objet OLE dynamique // "Outlook.Application"
m_NameSpace5 est un objet OLE dynamique // "Outlook.Application"

QUAND EXCEPTION
SELON ExceptionInfo(errCode)
CAS 2205:
Erreur("Impossible d'accèder aux dossiers publics d'exchange. Vérifiez la connexion au serveur")
RETOUR
AUTRE CAS:
Erreur(ExceptionInfo(errComplet))

FIN
FIN


SI HNbEnr(TELEPHONE) <> 0 ALORS
Erreur("Il est impossible d'importer les contacts d'outlook si votre base contient déjà des contacts." + RC + "Veuillez supprimer tous vos contacts avant d'effectuer l'importation")
SINON




SI ExeLancé ("OUTLOOK.EXE") > 0 ALORS
m_OutLook = ObjetActif("Outlook.Application")
SI m_OutLook <> Null ALORS
m_NameSpace=m_OutLook>>GetNameSpace("MAPI")
SI m_NameSpace <> Null ALORS

m_NameSpace=m_namespace>>Folders("Tous les dossiers publics")
m_NameSpace=m_namespace>>Folders("Commun")
m_NameSpace=m_namespace>>Folders("Annuaire")




Jauge1_Lib..Libellé = "Import depuis Outlook"
Jauge1 = 1

Jauge1..BorneMax = m_NameSpace>>Items>>count
POUR i = 1 A m_NameSpace>>Items>>count
m_item = m_NameSpace>>Items>>Item(Jauge1)

TELEPHONE.Prénom = m_item>>FirstName
TELEPHONE.Nom = m_item>>LastName
TELEPHONE.Titre = m_item>>Title
TELEPHONE.Société = m_item>>CompanyName
TELEPHONE.Adresse = m_item>>HomeAddressStreet
TELEPHONE.Ville = m_item>>HomeAddressCity
TELEPHONE.Code_Postal = m_item>>HomeAddressPostalCode
TELEPHONE.Pays = m_item>>HomeAddressCountry
TELEPHONE.Téléphone = m_item>>BusinessTelephoneNumber
TELEPHONE.Telephone_Bureau2 = m_item>>Business2TelephoneNumber
TELEPHONE.Telephone_Domicile = m_item>>HomeTelephoneNumber
TELEPHONE.Téléphone_Portable = m_item>>MobileTelephoneNumber
TELEPHONE.Télécopie_Bureau = m_item>>BusinessFaxNumber
TELEPHONE.Adresse_électronique = m_item>>Email1Address
TELEPHONE.Rue_Bureau = m_item>>BusinessAddressStreet
TELEPHONE.Ville_Bureau = m_item>>BusinessAddressCity
TELEPHONE.Code_Postal_Bureau = m_item>>BusinessAddressPostalCode
TELEPHONE.Pays_Bureau = m_item>>BusinessAddressCountry
TELEPHONE.Nom_Complet = m_item>>FullName
TELEPHONE.PABX_LIBELLE = m_item>>User2
TELEPHONE.PABX_Numéro = m_item>>User3
TELEPHONE.Commentaire = m_item>>Body
TELEPHONE.Numéro_Abrégé = m_item>>User4

Jauge1 = Jauge1 + 1
Jauge1_Lib..Libellé = "Import depuis Outlook ( " + Jauge1 + " / " + Jauge1..BorneMax + " )"
TELEPHONE.IDTELEPHONE_OUTLOOK = Jauge1

TELEPHONE.MODIFIE = Vrai
HAjoute(TELEPHONE)
FIN
Info("Terminé")
SINON
Erreur("Probleme")
FIN
SINON
Erreur("Outlook n'a pas été trouvé sur ce poste. la synchronisation ne peut continuer")
FIN
SINON
Erreur("Vous devez lancer Outlook afin que l'export fonctionne")
FIN
FIN
→ Volver a WINDEV 2024