HiI use this LS to open URL. It’s work fine if you use standardURL as www.ibm.com
But if you use www.ibm.com/open.asp?usr=computer&name=freak it cut of all after ?.
So the result becomes www.ibm.com
Could anyone help me on right track.
=====
Sub OpenURL (ws As NotesUIWorkspace)
Dim maildb As New NotesDatabase ("","")
Dim Server As String
Dim URL As String
maildb.openmail
Server = maildb.server
maildb.close
If server = "" Then
If Msgbox ("No connection to server!" + Chr (10) + Chr (10) + "Choose /'YES/' if you have another Internet connection."_
, MB_YESNO + MB_ICONEXCLAMATION, "Intranet - News") = IDYES Then
URL = doc.URLLink (0)
ws.UrlOpen URL
End If
Else
URL = doc.URLLink (0)
ws.UrlOpen URL
End If
End Sub
=====
Kind regards
Fredrik