How to make a URL in notes client View column display as hyperlink: Lotus Notes

by: sjef_bosmanPosted on 2008-03-21 at 15:36:13ID: 21183742

In the Notes client? Views in Notes do not contain clickable URLs. The snippet will work only from a browser.

I recently found a way to have something clickable in a view that could be used to implement what you want: the InViewEdit event. I used a clickable icon; when the user clicks the icon an action will be executed. I think it may be possible to display a URL and make it clickable that way. You need R7 for the first type of event to work (the query request), because that's all you need. If you have R6, I'd advise you to use the icon method, the user clicks the icon to follow the URL.

From the Designer Help db: "A special case is a column that represents the item as an icon. You change the icon by writing to the item represented by the view column entry in a save request. Each time the user clicks on the column entry, your save code executes."

Real life example:

Sub Inviewedit(Source As Notesuiview, Requesttype As Integer, Colprogname As Variant, Columnvalue As Variant, Continue As Variant)
      Dim noteid As String
      Dim doc As NotesDocument
      Dim ns As New NotesSession
      Dim ws As New NotesUIWorkspace

      continue= False ' never continue editing
      If RequestType=3 Then
            ...
            noteid= source.CaretNoteID
            Set doc= ns.CurrentDatabase.GetDocumentByID(noteid)
            ...
            ' here you can try to activate a URL...
      End If
End Sub

by: KTTKTTPosted on 2008-03-26 at 14:33:56ID: 21216445

Thanks sjef. I will try this and let you know my findings.

by: KTTKTTPosted on 2008-05-17 at 15:27:56ID: 21590933

I displayed column value as icon, editable.
I found and tried this code snippet for InViewEdit for the view - didn't know how to use your code since it wasn't quite complete - I'm new at LotusScript. Still didn't get the url to launch.

Sub Inviewedit(Source As Notesuiview, Requesttype As Integer, Colprogname As Variant, Columnvalue As Variant, Continue As Variant)
	
%REM
This view has one editable column, which is for a list box item.
%END REM
	
  REM Define constants for request types
	'Const QUERY_REQUEST = 1
	'Const VALIDATE_REQUEST = 2
	Const LAUNCH_URL=3
	Const LAUNCH_EEURL=4
	'Const SAVE_REQUEST = 4
	'Const NEWENTRY_REQUEST = 5
	
  REM Define variables
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim session As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim caret As String
	Dim object As Variant
	Dim strFileName As String
	Dim strURL As String
	
  REM Get the CaretNoteID - exit if it does not point at a document
	caret = Source.CaretNoteID
	If caret = "0" Then Exit Sub
	
  REM Get the current database and document
	Set db = Source.View.Parent
	Set doc = db.GetDocumentByID(caret)
	
	
  REM Select the request type
	Select Case Requesttype
		
	'Case QUERY_REQUEST
  REM Reserved - do not use for Release 6.0
		
	'Case VALIDATE_REQUEST
  REM Not used for icon columns
	Case LAUNCH_URL
		Select Case Colprogname(0)  
' Programatic name of the column
			
		Case "$17"
			
			object2 =	doc.GetItemValue( "DocLinkURL" )
			strURL$=object2( 0 )
			Call Session.SetEnvironmentVar("URLOPEN",strURL)
			Call  ws.urlopen(strURL)
			
		End Select
	End Select
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

Select all Open in new window

by: sjef_bosmanPosted on 2008-05-18 at 02:39:14ID: 21592081

If you add a line like
MsgBox strURL$
right before the call session.SetEnv..., does it show the right URL? Ah, that may be the reason why you put it in the notes.ini, to see its value.

Did you try to activate a hard-coded URL?

What DOES your code do, if anything??

by: KTTKTTPosted on 2008-08-28 at 14:12:34ID: 22339964

I apologize for putting this on-hold - didn't receive error, so I really didn't know how to respond. Will revisit within a week. thx.

by: sjef_bosmanPosted on 2009-11-04 at 01:48:52ID: 25737725

How about a revisit today? ;-))

by: KTTKTTPosted on 2010-02-26 at 16:05:30ID: 31696283

a for your effort. f for my not putting the time into trying to make this work. needed a real complete example - I know i shouldn't expect you to write it for me

by: sjef_bosmanPosted on 2010-02-27 at 05:15:51ID: 27023654

:-)) Thanks! And don't be too hard on yourself :-P

Question

How to make a URL in notes client View column display as hyperlink

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

Lotus Notes

Lotus Notes

Development Software

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press