IT Answers » Lotus Script

Pop-up messages in dialogue to Lotus Notes users using Lotusscript

VINEETatYAMAHA — Tue, 08 Jan 2013 08:43:26 +0000

New Answer by Michael Tidmarsh

“Object variable not set” error in lotus script

VSMBTECH — Fri, 07 Dec 2012 06:24:54 +0000

New Answer by shivasanjay

@dbcolumn two views lookup

Annanda — Wed, 28 Nov 2012 09:43:04 +0000

New Answer by Stiletto

Script to add parameters in notes.ini

vivek44 — Mon, 15 Oct 2012 11:17:51 +0000

New Answer by BruceWayne

Time difference in minutes past midnight

Kaminja — Thu, 11 Oct 2012 12:13:13 +0000

New Discussion Post by BruceWayne

How to get no. of items appended into rich text field

shivasanjay — Thu, 12 Apr 2012 08:46:46 +0000

I want to know the count of total no. of lines of text appended into rich text field i.e history field.

There is a rich text field to track the history of editing the document.

Every time the document is modified i.e. changing any of the fields the information is appended into the rich text field.

But it is not tracked that how many items are appended i.e how many times editing had been done in old documents. So, there is a requirement to know in how many documents the no. of editing is more that 100. How this can be done.

Dynamic view creation in lotus notes….

AKG — Fri, 30 Mar 2012 14:20:24 +0000

Hi,
I created a view at run time using lotus script. But I am not able to
open that view just after its creation. I need to close the
application and reopen it, then only the newly created view is getting
it the work space object. Following is my code, Please help me……
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim v As NotesView
Dim uiv As NotesUIView
Dim uidoc As NotesUIDocument
Dim form As NotesForm
Dim uidb As NotesUIDatabase
Set db = s.CurrentDatabase
Set uidoc=ws.CurrentDocument
Set uidb=ws.GetCurrentDatabase
Set v=db.CreateView(“tempView”)
v.SelectionFormula=”SELECT form=’frmAddMember’”
v.Refresh
ws.ViewRefresh
db.DelayUpdates=False
Call ws.OutlineReload(“”,”")
Call ws.ReloadWindow
‘Call ws.RefreshParentNote
Set db=Nothing
Set uidb=ws.GetCurrentDatabase
Set v=Nothing
Set uidb=Nothing
Set db= s.CurrentDatabase
Set v=db.GetView(“tempView”)
‘Msgbox v.AllEntries.Count
Call ws.OpenDatabase(“”,”Test.nsf”,”tempView”)
Call uidb.OpenView(v.Name,”",1)

‘Updating search context’ has encountered as problem

Bpidomino — Wed, 14 Mar 2012 09:18:47 +0000

I have lotus script code and when I run the program, there is intermittent error : ‘Updating search context’ has encountered as problem. It appears before the page is open, but when clicked ok, the program continue to run OK.

Sometimes it ouccrs, sometimes it does not.

What causes this error?

code:

Sub Postopen(Source As Notesuidocument)
    ‘jdm.01242012.EnableViewDB_GoTo parm
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim doc_profile As NotesDocument
    Dim ipAddress As HostIP_Address
    Dim v_EnableAccessToLogonPage As String
    Dim v_EnableViewDB_GoTo As String
    Set ipAddress = New HostIP_Address
    Set db = session.CurrentDatabase
    Set doc_profile = db.GetProfileDocument(“Notes ID Profile”,session.CommonUserName + “~” + ipAddress.GetHostName + “~” + ipAddress.GetClientIP)
    If doc_profile.IsProfile Then
        v_EnableAccessToLogonPage = doc_profile.EnableAccessToLogonPage(0)
    End If
    ‘———————————————————————————————————-
    ‘jdm.01242012.default trap check if logged in (PM_2011_12_078383)
    ‘jdm.02.0842012.prevent logonpage to open if already loggedon (PM_2011_12_078383)
    If Instr(workspace.currentview.viewname,”(Default View)”) >= 1 Then
        Dim v_LogonString As String
        Dim uidb As NotesUIDatabase    ’03142012 compare uidb before reset
        v_LogonString = doc_profile.DBLogonString(0)
        If v_LogonString <> “” Then
            Set uidb = workspace.CurrentDatabase    ’03142012 compare uidb before reset
            If uidb Is Nothing Then                            ’03142012 compare uidb before reset
                 doc_profile.DBLogonString = “”            ’03142012 compare uidb before reset
                Call doc_profile.Save(True,True)
            End If
            Call workspace.CurrentView.Close
            Exit Sub
        End If
        Call workspace.CurrentView.Close   ’02.27.2012
    End If
    ‘———————————————————————————————————-
    If getDB_ProfileDocVariable(“EnableViewDB_GoTo”,”Open”,db) = “No” Then
        If v_EnableAccessToLogonPage <> “Yes” Then
            Msgbox “Database Go To is not allowed, please click [OK] to continue..”,48,”Database Go To Not Allowed”
            Call workspace.CurrentView.Close    ’02.27.2012
        End If
        Call workspace.CurrentView.Close    ’02.27.2012
    Else
        If v_EnableAccessToLogonPage = “Yes” Then
            Call workspace.CurrentDocument.Close
        Else
            Call workspace.PickListStrings(PICKLIST_CUSTOM,False, _
            db.Server,db.FilePath,    _
            workspace.currentview.viewname,_
            “Database Go To Allowed”,”EnableViewDB_GoTo is Enabled”,1,”")
            Call workspace.CurrentDocument.Close
        End If
    End If
    If v_EnableAccessToLogonPage = “Yes” Then
        Call workspace.SetTargetFrame(“”)
        Call workspace.OpenFrameSet(“Frameset_LogonPage”)
    End If
End Sub

how to know if item is found in an array or not using lotus script

shivasanjay — Sun, 11 Mar 2012 07:42:32 +0000

I want to check if an item exists in the array or not using lotus notes using lotus script. using forall method to find is not a good option if array is too large when several such findings are required.

Is it possible to send mail and get out of office reply in lotus notes 8.5.3

shivasanjay — Sun, 11 Mar 2012 07:31:56 +0000

I am using lotusscript to send mail and want sender to get out offfice reply when oof is set. how to do this using lotus notes 8.5.*