Skip to Main Content
HCL Domino Ideas Portal

Welcome to the #dominoforever Product Ideas Forum! The place where you can submit product ideas and enhancement request. We encourage you to participate by voting on, commenting on, and creating new ideas. All new ideas will be evaluated by HCL Product Management & Engineering teams, and the next steps will be communicated. While not all submitted ideas will be executed upon, community feedback will play a key role in influencing which ideas are and when they will be implemented.

For more information and upcoming events around #dominoforever, please visit our Destination Domino Page

Status Needs Review
Workspace Domino Designer
Categories Views
Created by Guest
Created on Sep 7, 2022

Add the ability to have a URL or compose email to a view column to click on

It would be nice to have the ability to have a column in a view have either an email or a URL address to be clicked on. For an email address, it would compose the email and for a web address it would open the addressin a browser.

  • Attach files
      Drop here to upload
    • Guest
      Sep 20, 2022

      All of this can be implemented inside the inViewEdit view event. You just need en eidtable culomn with en URL or may be with an icon as a value:

      Sub Inviewedit(Source As Notesuiview, Requesttype As Integer, Colprogname As Variant, Columnvalue As Variant, Continue As Variant)

      REM Define constants for request types
      Const QUERY_REQUEST = 1
      Const VALIDATE_REQUEST = 2
      Const SAVE_REQUEST = 3
      Const NEWENTRY_REQUEST = 4

      REM Select the request type
      Select Case Requesttype

      Case QUERY_REQUEST

      Dim db As NotesDatabase
      Dim doc As NotesDocument
      Dim ws As New NotesUIWorkspace
      Dim link As String
      Dim caret As String

      Set db = Source.View.Parent
      Forall colName In Colprogname
      If colName = "<PROGRAMMATIC COLUMN NAME of Your EDITABLE column>" Then

      caret = source.CaretNoteID
      Set doc = db.GetDocumentByID(caret)

      'link = doc.<Link-Field-Name>(0)
      link = "https://www.google.com"

      If Not link = "" Then
      Call ws.URLOpen(link)
      End If
      continue = False
      Exit Sub
      End If
      End Forall
      Exit Sub
      Case VALIDATE_REQUEST

      Case SAVE_REQUEST

      End Select
      End Sub