标签: lotusscript

我有一个使用默认Lotus Notes http登录的Lotus Notes应用程序.

在我们的开发人员服务器上,Notes有一个html表单,用于将登录请求发送到names.nsf

<form method="post" action="/names.nsf?Login" name="_DominoForm">

并且同样注销,调用

/names.nsf?LogOut

我们在其他Notes服务器上也发现了这种情况 - 但是,这是默认情况,那么还有什么可以期待的呢？

虽然登录是Notes自动显示的表单,但是注销按钮必须是我们的Web应用程序的一部分(在LotusScript中使用后端),并且我将链接硬编码到names.nsf.

现在,客户似乎使用了大量自定义的设置,其中登录和注销不使用names.nsf.我不知道他们为登录做了什么 - 但是当试图打电话时/names.nsf?LogOut,Access被拒绝了.

有没有什么办法可以通过编程方式找出用于登出用户的操作？如果没有,则必须在我们的后端完成注销(至少iNotes就这样做).如何将注释http注销编程到LotusScript Notes代理中？

我在Agent中编写了lotusscript代码,我需要通过单击Xpage中的按钮来运行代理.

我怎么能实现？

提前致谢

我在哪里可以找到关于Lotus Notes Agent的精彩在线参考.我目前在同时代理和理解代理,工作原理,最佳实践等方面遇到了问题？提前致谢!

我正在尝试编写一个LS代理来扫描Windows中的目录,例如:'C:\'表示任何文件和子目录.对于每个子目录,它将进入并搜索更多文件和子目录并继续,直到找不到更多.我习惯于编写递归代码来替换或删除长字符串中的字符但是对于这个我完全迷失了.下面是我的代码(它是来自domino帮助文件的代码和我在IBM站点中找到的代码的混合):

Sub Initialize
    Dim pathname As String, filename As String
    pathname = "C:\*.*"
    filename = Dir(pathname, 16)
    Print "Begin scan"
    Do While filename<>""
        If IsDir(pathname+filename)=True Then
            Print pathname+filename+" is a directory"
            'look for more directories and files in here
        Else
            Print filename+" is a file"
        End If
        filename=Dir()
    Loop
    Print "Finish scan"
End Sub

Function IsDir(Path As String) As Integer 
    Dim Void&
    Dim Result As Boolean
    On Error GoTo ErrorHandler
    Void=FileLen(Path)
    Result=False
    GoTo Over
ErrorHandler:
    Result=True
    Resume Over
Over:
    IsDir=Result …

我已经搜遍了所有关于这个领域的信息.我有一些电子邮件是由我的某个应用程序生成的,每次您尝试打开它们时都会发生故障.如果我将其中一封电子邮件的文档属性与普通电子邮件进行比较,我会发现其中有很多字段:$$$ FormScript_0,$$$ FormScript,$$ FormScript_0,$$ FormScript等.

任何人都知道为什么会生成这些字段以及它们的用途是什么 只是试图将它们排除为崩溃的Notes的原因.

MJ

编辑操作按钮属性时，它允许@if 语句触发/翻转两个选择（锁定/解锁）。即@If(enlock=1;"Unlock";"Lock")用于操作按钮的“标签”。在 Action 属性的底部，图标可以是 None、Notes 或 Custom。当我选择自定义时，我希望 @if 使用锁定/未锁定的笔记图标。（分别为actn084.gif 和actn085.gif）或数字#62（锁定）和#（我不知道/找不到，解锁图标的#）。我已经尝试过带有图标编号的公式，例如在视图中，视图列的“显示为图标”。使用@if，我在本地和服务器副本上尝试了 gif，但没有给出任何结果。请参阅下面的示例图像。

图片示例：http : //i.stack.imgur.com/UBac3.png

我有一个我想重复使用的列表,但我无法弄清楚如何清除它以前的条目.

dim x list as string, i as integer
for i = 1 to 4
 x("a"+cstr(i)) = "blue"+cstr(i)
 x("b" +cstr(i)) = "green"+cstr(i)

  <do some stuff>
  <Before I loop back around, I want to clear 'x' so it does not contain the previous entries>
next

我在名为“fin_Paiement”的表单上有一个字段。我想要做的是：字段值只接受数字和点，并用点替换任何其他字符。我用替换函数为字母值做了它，但它不起作用。我试过这个：

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
doc.fin_Paiement = Replace(doc.fin_Paiement_Montant(0), "*[a-z,A-Z]*", ".")

我将感谢您的帮助！谢谢

在莲花我有一个订单文件的视图.我正在构建一个代理来搜索在过去25分钟内修改的所有订单.

为此我做了以下代码:

strFormule = "Form=""Order"" & @Modified >=  @Adjust(@Today;0;0;0;0;-25;0) & Deleted !=""J"""

Set ndcOrder = currentDB.Search( strFormule, Nothing, 0 )
If ndcOrder.Count <> 0 Then
Set doc = ndcOrder.GetFirstDocument
While Not doc Is Nothing

因此,如果它是11.00那么它需要接受今天从10.35修改的订单

但是在调试器中我也得到了2小时前修改过的订单.

这怎么可能？

我是 LotusScript 的初学者，我的代理中出现以下错误：

我的目标是能够使用以下代码连接到服务器：

Option Public
Option Declare    

Sub Initialize
    Dim myServer As String
    Dim myMailfile As String
    myServer = "server"
    myMailfile = "mailfile"

    Dim filePath As String
    Dim intErgebnis As Integer
    Dim objNotes As Object
    Dim LNdb As Object
    Dim LNView As Object
    Dim LNDoc As Object
    Dim LNItem As Object
    Dim strSubject As String
    Dim LNWorkspace As Object
    Dim LNAttachment As Variant
    intErgebnis = 0
    Set objNotes = GetObject("", "Notes.NotesSession")
    Set LNdb = objNotes.GETDATABASE(myServer, myMailfile)
    Set LNWorkspace = …