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
Rejoignez-nous