Sujet Précédent Sujet Suivant

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

Réponse 1 / 2
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
Réponse 2 / 2
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

Discussions similaires

Outlook Message : Un programme tente d'envoyer un message en votre nom .... Com
cs_GigaCool -
nvoisn -

9 réponses
Un programme essaie d'accéder aux adresses de messagerie enregistrées dans Outlo
cs_allili -
ricomiracle -

3 réponses
[VBA] Message d'alerte dans Outlook 2003
Simouss33 -
Simouss33 -

9 réponses
Empecher message avertissement Outlook lors de l'envoi de mail automatique en vb
cs_filiplarlibe -
mm -

23 réponses
Information ?
wdev1 -
MichelAtoutFox -

1 réponse
Rejoignez-nous