Acceder pu carnet d'adresse lotus notes

Résolu
titim77
Messages postés
22
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
31 janvier 2011
- 25 sept. 2007 à 11:39
titim77
Messages postés
22
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
31 janvier 2011
- 18 oct. 2007 à 16:02
Bonjour , je cherche à pouvoir acceder au carnet d'adresse note afin d'y recuperer les infos OfficePhoneNumber et autres
j'ai essaye un bout de code mais sans succes

merci d'avance

code :

    Set oSess = CreateObject("Notes.NotesSession")
    Set oDB = oSess.GETDATABASE("", "")
    Call oDB.OPENMAIL
    user = oSess.CommonUsername
    Set B = oSess.GETDATABASE("base", "names.nsf")
    Set View = B.GetView("People")
    Set doc = View.GetDocumentByKey(user)
    If Not (doc Is Nothing) Then
        telephone = doc.OfficePhoneNumber(0)
    End If

2 réponses

baron_spawn
Messages postés
10
Date d'inscription
lundi 8 novembre 2004
Statut
Membre
Dernière intervention
18 octobre 2007

18 oct. 2007 à 15:55
c'est tout bon sauf  la récupération du n° car ce que tu as écrit c'est du Lotus Script.

Garde tout et remplace

Telephone  = doc.OfficePhoneNumber(0)

par

Telephone = doc.GETITEMVALUE("OfficePhoneNumber")(0) 

 
3
titim77
Messages postés
22
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
31 janvier 2011

18 oct. 2007 à 16:02
Merci beaucoup
3