Page 3 sur 4
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 14:47
par dandine
je n'arrive pas à télécharger la base corrigée : un pb de FireWall. Est ce que tu peux essayer de me l'envoyer zippée stp?
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 14:49
par Rigol'man
voila c fait !

)[%sig%]
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 15:20
par dandine
Je crois que je ne vais jamais m'en sortir! J'ai intégré ma nouvelle page mais quand je teste...ça ne marche pas! Je ne dois pas être douée, c'est tt.Il y a un message qui me dit que je n'ai pas accés à la vue!!...mais quelle vue?
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 15:25
par Rigol'man
le code que je t'ai filé va chercher le nom de la boite aux lettres de l'utilisateur connecté dans le carnet d'adresses (NAB). Si tu n'es pas connecté (acces anonymous) ca risque de poser pb !!!! je pense que ca doit venir de ca !!! au choix :1/ forcer l'identification a la base2/ traiter le cas anonymous[%sig%]
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 15:41
par dandine
Pourtant la personne qui se logge est gestionnaire : ça ne devrait pas poser de pb!
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 15:48
par Rigol'man
"Il y a un message qui me dit que je n'ai pas accés à la vue!!" ==> a quel moment ce message apparait il ? en cliquant sur le lien ?? en chargeant la page ?la personne est elle deja connectée avant le chargement de la page ?[%sig%]
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 16:06
par dandine
Rigol'man, tu ne dois plus trop rigoler avec moi et mes soucis!La personne s'identifie pour accéder à la page et ce message apparaît quand la souris passe sur le lien présent sur cette page, au niveau du chemin du lien : nom_serveur/base.nsf/vous n'avez pas accès...
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 16:10
par Rigol'man
si si je rigole tout le temps quoiqu'il arrive !!!!j'ai la meme chose que toi, "/chemin/base.nsf/vous n'etes pas autorisé a effectuer cette operation" quand je suis pas connecté !!!sinon, quels sont les droits de cette personne sur le carnet d'adresses (names.nsf) ????[%sig%]
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 16:19
par dandine
C'est où que je peux voir ça?
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 16:21
par Rigol'man
tu ouvres la base names.nsf sur ton serveur , tu regardes la liste de controle d'acces et tu regardes quels sont les droits accordés a cette personne.Attention : il peut y avoir son nom directement dans la liste mais c rare, sinon, il y a de grandes chances pour que cette personne soit dans un groupe qui lui est dans cette liste !

)[%sig%]
Re: récupérer l'adresse IP du serveur

Publié:
17 Juil 2003 à 16:38
par Droad
Veuillez pardonnez mon incruste !Puisque la référence au serveur est inutile dans le contexte sus-mentionné, j'ai simplifié mon agent auparavant posté.Rappel: "Exécuter une fois", "Acces web - Executer en tant qu'utilisateur Web".Dans la page: <a href="NomAgent?openagent">Mail</a> Ptéte que ça marchera mieux.Sub Initialize On Error Goto handle_error Dim session As New NotesSession Dim username As String, nname As NotesName Set nname = New NotesName(session.EffectiveUsername) username = nname.Abbreviated Dim personDoc As NotesDocument, serverDoc As NotesDocument Dim view As NotesView Dim books As Variant, book As NotesDatabase '-- recupérer le doc Person de l'utilisateur books = session.AddressBooks Forall b1 In books Set book = b1 If book.IsPublicAddressBook Then If Not book.IsOpen Then Call book.Open("","") Set view = book.GetView("($NamesFieldLookup)") If Not view Is Nothing Then Set personDoc = view.GetDocumentByKey(username,True) If Not(personDoc Is Nothing) Then Exit Forall End If End If End Forall If personDoc Is Nothing Then Error "8001", username & " n'est référencé dans aucun carnet d'adresse" End If Dim mailfile As String mailfile = personDoc.mailFile(0) '-- remplacer les espaces et les antislashes dans le chemin d'accés à la base Dim i As Integer For i=1 To Len(mailfile) Select Case Mid$(mailfile,i,1) Case " " Mid$(mailfile,i)= "+" Case "\" Mid$(mailfile,i)= "/" End Select Next If Instr(mailfile,".")=0 Then mailfile = mailfile + ".nsf" Dim mailurl As String mailurl = "/"+mailfile Print "Location: " & mailurl Exit Sub handle_error: Print "<font color='red'>" & Error$ & " (ligne " & Erl & ")</font>" Resume donedone:End Sub[%sig%]
Re: récupérer l'adresse IP du serveur

Publié:
18 Juil 2003 à 09:41
par dandine
Les incrustes ne me dérangent absolument pas!J'ai essayé ce que tu m'as dit et voilà ce qu'il y a comme message d'erreur sur le serveur : Anomalies Lotus NotesLe fichier /mail/login.nsf est inexistant.Poutant le fichier mail\login existe bien. Peut être est ce la structure du chemin?
Re: récupérer l'adresse IP du serveur

Publié:
18 Juil 2003 à 10:10
par Droad
Argh !Si tu fais un clic droit/propriétés dans la page d'erreur, quelle est l'urlcomplète ?[%sig%]
Re: récupérer l'adresse IP du serveur

Publié:
18 Juil 2003 à 10:28
par dandine
adresse
res://C:\WINNT2\System32URL \shdoclc.dll/http_404.htm#http://ntmrs2:81/base.nsfMoi je comprends absolument rien!
Re: récupérer l'adresse IP du serveur

Publié:
18 Juil 2003 à 10:56
par Droad
Scrogneugneu !Bon, procédons pas a pas:si tu tapes l'url http:/serveur/mail/login.nsf, tout se passe bien ?[%sig%]