Page 1 sur 1

Script pour Ajouter un contact au carnet d'adresse

MessagePublié: 16 Sep 2002 à 12:20
par Jérôme
Bonjour,étant newbie en Lotus Script, je vous demande votre aideje dois réaliser un script Lotus Notes permettant d'ajouter un contact au carnet d'adresse. Ce script sera utiliser par un programme WinDEV.J'ai essayé le bout de code suivant, mais il doit y avoir des erreurs :-(DataBaseName est une chaine = "names.nsf"viewName est une chaine = "People"// (pour accéder à la base publique)ServerNotes = Registrelit("HKEY_CURRENT_USER\'Software\'ODBC\'ODBC.INI\'NOTES","Server")// Déclaration de l'objet OLE NotesSessionNotes est un objet OLE "Notes.NotesSession"// Déclaration des objets OLE dynamiquesBase est un objet OLE dynamiqueView est un objet OLE DYNAMIQUEDoc est un objet OLE DYNAMIQUEBase = Notes>>GetDataBase(ServerNotes,DataBaseName)View = Base>>GetView(viewName)Doc = View>>GetFirstDocumentDoc=View>>CreateDocument("","names.nsf","People")Doc>>FieldSetText("LastName","TEST7")Doc>>FieldSetText("FirstName","TEST7")Doc>>FieldSetText("InternetAddress","TEST7@test.com")Doc>>Save(True,True)par avance MERCI!

Re: Script pour Ajouter un contact au carnet d'adresse

MessagePublié: 16 Sep 2002 à 13:41
par Sylvain
Qu'est-c'que tu as comme erreur ?A premiere vu, je dirai que la ligne view>>CreateDocument, n'est pas correcte. L'objet NotesView ne contient pas de méthode CreateDocument. Par contre l'objet notesDataBase en contient une mais elle ne possède pas d'argument donc je ne sais pas d'ou vient la tienne ?!Voici le code pour réaliser la même chose en "vrai" lotusScript :Db pointe sur le carnet d'adresse (names.nsf).' Créer un nouveau document dans la base.Set doc = db.CreateDocument' Pour que le doc apparaisse dans la vue personnedoc.form = "Person"doc.LastName = "TEST7"doc.FirstName = "TEST7"doc.InternetAddress = "TEST7@test.com"' Sauve le doc dans la basedoc.Save True,TrueBon courage.[%sig%]

Re: Script pour Ajouter un contact au carnet d'adresse

MessagePublié: 17 Sep 2002 à 13:43
par Jérôme
Merci pour ta réponse!ca m'a éclairé, mais malgré tout, en modifiant mon programme, je n'ai plus d'erreur : la syntaxe à donc l'air correcte, mais celà ne fonctionne pas...ca ne m'ajoute rien au carnet d'adresse :-(Pour info ca donne ca :DataBaseName est une chaine = "names.nsf"ServerNotes = Registrelit("HKEY_CURRENT_USER\'Software\'ODBC\'ODBC.INI\'NOTES","Server")Notes est un objet OLE "Notes.NotesSession"Base est un objet OLE dynamiqueDoc est un objet OLE DYNAMIQUEBase = Notes>>GetDataBase(ServerNotes,DataBaseName)Doc=Base>>CreateDocument()Doc>>Form="People"Doc>>LastName="TEST"Doc>>FirstName="Test"Doc>>InternetAddress="TEST@TEST.COM"Doc>>Save(True,True)

Re: Script pour Ajouter un contact au carnet d'adresse

MessagePublié: 17 Sep 2002 à 16:11
par Sylvain
Je ne sais pas trop quoi te dire ...ça me semble pas mal pourtant.Tu peux tout de même vérifier la valeur qu'il faut mettre dans le champ form.Pour cela ouvre la vue du carnet d'adresse dans laquelle tu veux créer le document. Puis sur un des documents, fait un clique droit, sélectionne propriétées. Une petite fenêtre doit s'afficher. Dans la liste (c'est la liste des champs) cherche "Form" et vérifie qu'il contient bien la donée que tu y mets à savoir "People".[%sig%]