Session.UserName version API

[Michael DELIQUE]

Code : Tout sélectionner

Function GetNotesUserName_API As String
   
%REM
'variableAPI pour la fonction NotesUserName_API
   Declare Function SECKFMGetUserName Lib "nnotes.dll" (Byval aname As String) As Integer
%END REM
   
   'Déclaration Variable
   Dim username As String*257
   
   On Error Goto ErreurHandle
   
   Call SECKFMGetUserName(username)
   GetNotesUserName_API = username
   
   
   Exit Function
ErreurHandle:
   Msgbox "("+Structure_Log+" : "+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   GetNotesUserName_API = ""
   Exit Function