DominoArea.org [Archive]

Bonjour à tous,

Est il possible en LS de récupérer le nom+chemin du fichier ID de l'utilisateur connecté en client Lourd.

C'est dans le but de proposer à l'utilisateur de changer son mot de passe sans avoir à lui faire parcourir son dossier Data pour trouver le fichier ID.

Merci pour vos réponses.

salut

pour le nom de l'utilisateur Notessession.username, l'aide en ligne t'en dira plus.

pour le chemin du fichier id euh... là comme ça je sais pas !

salut,

Oui en allant rechercher dans le notes.ini du poste utilisateur, la clé "KeyFileName"

Peut toujours servir ...
Code à mettre dans un bouton qui aura pour effet de récupérer le fichier ID de l'utilisateur et de l'envoyer ( par exemple ) à l'Admin Notes :

Code : Tout sélectionner

Sub Click(Source As Button)
   
   ' Récupère le fichier ID de l'utilisateur et le rattache dans un brouillon.
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim object As NotesEmbeddedObject
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument( db )
   Set rtitem = New NotesRichTextItem( doc, "Body" )
   
   Dim fichier As String
   fichier = session.GetEnvironmentString( "KeyFilename", True )
   Dim chemin As String
   chemin = session.GetEnvironmentString( "Directory", True )
   
   Print "Fichier = "fichier
   Print "Chemin = "chemin
   
   path= chemin & "\" & Trim(fichier)
   Set object = rtitem.EmbedObject _
   ( EMBED_ATTACHMENT, "", path)
   doc.Form = "Memo"
   doc.Principal=" Test ID"
   doc.SendTo="Truc MUCHE/DOMINOAREA" ' Mettre ici le nom du destinataire.
   doc.Subject = "Brouillon contenant le fichier ID"
   Call doc.Save( True, True )
   
   'Msgbox "Votre fichier ID a été attaché à un brouillon", , "Attach fichier"
   
   Call doc.Send( False )
   Envoi_Mail=True
   
End Sub


attention, KeyFilename peut contenir un chemin relatif ou absolu