Manage Learn to apply best practices and optimize your operations.

Get The Full Internet Name ([email protected])

Function GetInternetFullName(fromString As String) As String
Dim pos As Integer
Dim full As String

'---------- Look for parenthesis e.g. [email protected] ("Peter O'Leary")
pos = Instr(fromString, "(")
If pos = 0 Then
'----------- no parens, just get the username
pos = Instr(fromString, "@")
full = Trim(Left(fromString, pos - 1))
Else
full = Mid(fromString, pos + 1)
'----------- If the string is quoted, get everything in the quotes
If Left(full, 1) = """" Then
full = Mid(full, 2)
pos = Instr(full, """")
Else
pos = Instr(full, ")")
End If

full = Left(full, pos - 1)
End If
GetInternetFullName = full
End Function

Dig Deeper on Domino Resources - Part 7

SearchWindowsServer
Search400
  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/Search400.com community. These cheat ...

SearchDataCenter
SearchContentManagement
Close