Get The Full Internet Name (Xxx@Yyy.Com)

Function GetInternetFullName(fromString As String) As String Dim pos As Integer Dim full As String '---------- Look for parenthesis e.g. ("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

This was first published in November 2000

Dig deeper on Domino Resources - Part 7



Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...