Hi

I have a great function in VBA which returns the network login name. I use
this simply to add the user name to emails. Unfortunately the name is
returned in lower case, which doesn't look as good as it could. Is there a
way to ensure the name returned is correctly capitalised.


Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX < 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Richard,

Try this line


fOSUserName = UCase(Left$(strUserName, lngLen - 1))


Mike
"Richard" wrote:

Hi

I have a great function in VBA which returns the network login name. I use
this simply to add the user name to emails. Unfortunately the name is
returned in lower case, which doesn't look as good as it could. Is there a
way to ensure the name returned is correctly capitalised.


Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX < 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Mike

That gives me RICHARD rather than Richard, I should have given an example
sorry.

"Mike H" wrote:

Richard,

Try this line


fOSUserName = UCase(Left$(strUserName, lngLen - 1))


Mike
"Richard" wrote:

Hi

I have a great function in VBA which returns the network login name. I use
this simply to add the user name to emails. Unfortunately the name is
returned in lower case, which doesn't look as good as it could. Is there a
way to ensure the name returned is correctly capitalised.


Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX < 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Richard,

Try this

fOSUserName = WorksheetFunction.Proper(Left$(strUserName, lngLen - 1))

Mike

"Richard" wrote:

Mike

That gives me RICHARD rather than Richard, I should have given an example
sorry.

"Mike H" wrote:

Richard,

Try this line


fOSUserName = UCase(Left$(strUserName, lngLen - 1))


Mike
"Richard" wrote:

Hi

I have a great function in VBA which returns the network login name. I use
this simply to add the user name to emails. Unfortunately the name is
returned in lower case, which doesn't look as good as it could. Is there a
way to ensure the name returned is correctly capitalised.


Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX < 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Mike

Thats it thanks. I find it infuriating that what should be so obvious takes
me so long and then I have to ask dumb questions.

Thanks again
Richard

"Mike H" wrote:

Richard,

Try this

fOSUserName = WorksheetFunction.Proper(Left$(strUserName, lngLen - 1))

Mike

"Richard" wrote:

Mike

That gives me RICHARD rather than Richard, I should have given an example
sorry.

"Mike H" wrote:

Richard,

Try this line


fOSUserName = UCase(Left$(strUserName, lngLen - 1))


Mike
"Richard" wrote:

Hi

I have a great function in VBA which returns the network login name. I use
this simply to add the user name to emails. Unfortunately the name is
returned in lower case, which doesn't look as good as it could. Is there a
way to ensure the name returned is correctly capitalised.


Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX < 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Glad I could help

"Richard" wrote:

Mike

Thats it thanks. I find it infuriating that what should be so obvious takes
me so long and then I have to ask dumb questions.

Thanks again
Richard

"Mike H" wrote:

Richard,

Try this

fOSUserName = WorksheetFunction.Proper(Left$(strUserName, lngLen - 1))

Mike

"Richard" wrote:

Mike

That gives me RICHARD rather than Richard, I should have given an example
sorry.

"Mike H" wrote:

Richard,

Try this line


fOSUserName = UCase(Left$(strUserName, lngLen - 1))


Mike
"Richard" wrote:

Hi

I have a great function in VBA which returns the network login name. I use
this simply to add the user name to emails. Unfortunately the name is
returned in lower case, which doesn't look as good as it could. Is there a
way to ensure the name returned is correctly capitalised.


Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX < 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function