Page 1 sur 1
Session.UserName version API
Publié:
05 Nov 2007 à 16:58par 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