#dominoforever | Product 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

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.

  • Guest
  • Sep 7 2022
  • Needs Review
  • Attach files
  • Guest commented
    20 Sep 02:45pm

    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