zoukankan      html  css  js  c++  java
  • Undokumentierte @Formeln/LotusScript im Lotus Notes Client/Server

    • Erstellung von Replik-IDs mittels @Text-Funktion
      @Text( @Now; "*" )
      Source
    • NoPersist option in SetProfileField/GetProfileField:
      @SetProfileField([NoPersist];"Value to store";@Username)

      This is a neat flag used to set variables in a virtual profile document - it doesn't really exist. It's kind of like an environment variable, except instead of writing to Notes.ini, you're writing to a temporary client session cache. This only works in the UI between windows in the same database for the life of the current session. Each database has its own NoPersist cache on the Notes client, so unlike environment variables, this will only work in the same database.
      Source
    • Undocumented DOM LotusScript Inventory:
      Here's an inventory of LotusScript COM/OLE classes holding undocumented properties and methods. I compiled it using Notes/Domino release 7 type library. OMT notation is used for brevity...
    • Befehl, um die Namen über den Browser aus dem Adreßbuch zu holen:
      @DbCommand("Domino";["LoadAddressListByIndex" | "LoadAddressListByName"];"names.nsf"; txtTargetField; strMax; [strIndex | strKey])
    • the LoadAddressListbyIndex command to work was the ($PeopleGroupsFlat) view to be included in my database
    • Stellt Informationen aus der aktuellen Arbeitsumgebung bereit:
      @LocationGetInfo([HomeServer])
      @LocationGetInfo([CatalogServer])
      @LocationGetInfo([SametimeServer])
      @LocationGetInfo([NamePreference])
      @LocationGetInfo([MailProtocol])
      @LocationGetInfo([WebRetriever])
      @LocationGetInfo([BookmarksFileName])
      @LocationGetInfo([InternetMailAddress])
      @LocationGetInfo([AreaCode])
      @LocationGetInfo([**Feldname***]) Einfach mal andere Feldnamen probieren... ;-)
    • Codiert eine URL, so dass auch Sonderzeichen/Umlaute/reservierte Zeichen genutzt werden können, siehe auch escape()-Funktion in JavaScript:
      @URLEncode
    • Stellt Einträge aus der Registry zur Verfügung:
      @RegQueryValue("HKEY_LOCAL_MACHINE"; "SOFTWARE\Network Associates\TVD\Shared Components\VirusScan Engine\4.0.xx\"; "szDatVersion")
    • Zeigt den Dialog zum Öffnen einer Datenbank: Quelle
      @Prompt([ChooseDatabase]; ""; ""; ""; "")
      Rückgabe-Liste: ServerName : FileName/Path : DatabaseTitle
    • Zeigt den Dialog zum Öffnen einer Datenbank in LotusScript: Quelle
      variant = notesUIWorkspace.Prompt( type%, title$, prompt$ [, default ] [, values ] )
      type% = 13 benutzen
      Rückgabe-Liste: s.o.
    • Zeigt den Dialog zum Öffnen einer Datei:
      @Prompt([LOCALBROWSE]; "Title"; "Text")
    • Undocumented LotusScript from DominoUpdate Journal:
      Dim s As New NotesSession
      Dim db As NotesDatabase
      Set db = s.CurrentDatabase
      If (db Is Nothing) Then
      Exit Sub
      End If
      Dim flds As Variant, x As Integer, fldList As String
      flds = db.GetFields(False)
      For x = 0 To Ubound(flds)
      fldList = fldList + flds(x) + Chr(13)
      Next x
      Msgbox fldList, 0, db.Title + " fields"

      db.RetrievePOP3MAIL("server address",port,"username","password",(True/False to retain mail), (True/False to use SSL))
      Db.CreateNewsGroup("group name")
      Dim s As New NotesSession
      Dim db As NotesDatabase
      Set db = s.CurrentDatabase
      If (db Is Nothing) Then
      Exit Sub
      End If
      Dim dc As NotesDocumentCollection
      Dim doc As NotesDocument, gid As String, html As String
      Set dc = db.AllDocuments
      For x = 1 To dc.Count
      Set doc = dc.GetNthDocument(x)
      gid = doc.GenerateMessageID
      html = doc.GenerateHTMLString
      Next x

      Dim s As New NotesSession
      Dim idom As String, ihost As String, win As Variant, cr As String
      cr = Chr(13)
      idom = "Internet Domain: " + s.InternetDomainName
      ihost = "Internet Host: " + s.InternetHostName
      Set win = s.GetWin32Domain
      Msgbox idom + cr + ihost + cr + "Win32 Domain: " + win.ServerName, 0, "Example 3"
      Call s.Close()
      Dim uiw As New NotesUIWorkspace
      Dim uidoc As NotesUIDocument
      Set uidoc = uiw.CurrentDocument
      Print uidoc.ParentViewName
      Dim uiw As New NotesUIWorkspace
      Call uiw.AddDatabaseToPortfolio()
      Call uiw.AddBookmark("Example 5")
      Dim s As New NotesSession
      Dim db As NotesDatabase
      Set db = s.CurrentDatabase
      If (db Is Nothing) Then
      Exit Sub
      End If
      Dim dc As NotesDocumentCollection
      Dim doc As NotesDocument
      Dim item As NotesItem
      Dim pt As Variant, html As String
      Set dc = db.AllDocuments
      For x = 1 To dc.Count
      Set doc = dc.GetNthDocument(x)
      Set item = doc.GetFirstItem("combo")
      pt = item.PartialText
      Next x
      Dim s As New NotesSession
      Dim db As NotesDatabase
      Set db = s.CurrentDatabase
      Dim dc As NotesDocumentCollection
      Dim doc As NotesDocument, temp As NotesDocument
      Dim rt As NotesRichTextItem
      Dim pt As Variant, html As String
      Set dc = db.AllDocuments
      Set temp = dc.GetFirstDocument
      For x = 1 To dc.Count
      Set doc = dc.GetNthDocument(x)
      Set rt = doc.GetFirstItem("Body")
      pt = rt.PartialText
      Call rt.AddLinkByIDS(db.ReplicaID, "","",temp.UniversalID)
      Call doc.Save(False, False)
      Next x
      Quelle
    • Es gibt in R5 und R6 einen pracktischen undokumentierten Formalsprachebefehl:
      list:=@GetMembers(List;Pos[;Anzahl])
      Der Befehl holt aus einer Liste ein oder mehrere Elemente ab der stelle Pos. Wenn die Anzahl weggelassen wird, wird ein Element geholt.
      Quelle
    • Sent by Jim Fricker (10.10.2008):
      • @LocationGetInfo([AbbreviatedName])
        @LocationGetInfo([FullName])
        @LocationGetInfo([UNID])
      • @AddBusyTime(|text; text; date)
      • @FindFreeTime(|text; text; date; number)
      • @MailConfirmPreference
      • @MailFoldersPreference
      • @LocationGetOSTZ
        @LocationGetTZ(|variant)
        @LocationGetTZ
      • @CharSetInfo([Charsets])
        @CharSetInfo([Encoding])
        @CharSetInfo([DefaultCharset])
      • @AdminPerformAction(|date; [variant])
        @AdminCreateRequest(|date; [variant])
        DeleteUser
        DeleteGroup
        DeleteServer
      • @URLSubmit(|number)
        @URLSubmit
      • @NetAccount([DeleteNTUser])
        @NetAccount([IsNetworkAdmin])
      • @FindFreeResource(|text; text; text; text; [variant])
        InGMT
        InLocalTime
      • @DbUnreadCount(|text)
      • @OpenCalendar(|date; [variant])
        Group
        Individual
      • @X509Certificates(|date; text; [variant])
        DeleteX509Cert
      • @MailFilterAddToFolder(|text)
      • @AccountGetInfo(|text; text)
      • @AdminDelegateMailFile(|number; text; text; text; text; text; text; text; text; text; text; text; text; text; text; text; text)
      • @BitAnd(|[number])
        @BitOr(|[number])
        @BitXor(|[number])
        @BitNot(|number)
        @BitShift(|number; number)
      • @GetMembers(|variant; number; number)
      • @AddBookmark(
      • @UpdateViewDesign(|text)
      • @ExpandNameList(|text; text)
      • @CRLList(|[keyword]; fieldname; start at; max return)
        IssuedBy
        ThisUpdate
        ThisNext
        RevokedDate
        RevokedSerialNumber
      • @DbAdminServer
      • @IsDbPrimaryAB
      • @IsSoftDeleteEnabled
      • @GetSoftDeleteExpireTime
      • @SetSoftDeleteExpireTime(|number)
      • @CertBlobPack(|blob item name; blob type; prefix; number)
        @CertBlobUnpack(|blob item name; blob type; prefix; number)
      • @IsXACLEnabled
      • @MailFilterStopProcessing
      • @DbBuildVersion
      • @CRL(|[Export]; fileName)
      • @RecoverIDFile(|[keyword]; backupfilename; recoveredfilename; newpassword)
      • @WhichFolders
      • @ShowParentPreview
      • @ManageECL(|server : database)




      Habt Ihr weitere undokumentierte @Function- oder LotusScript-Formeln?
      Bitte sendet sie mir zu, damit ich sie veröffentlichen kann...
  • 相关阅读:
    前端性能优化-全链路质量监控体系建设
    前端性能优化-研发开发流程优化
    一次VLAN标签引发的网络事件的处置
    2001
    SpringBoot定时任务
    在el-dialog中使用ref找不到元素?
    el-table使用checkbox时,获取选中数据的id?
    SpringBoot邮件发送
    表单中el-select和el-input的长度不一致?
    element-ui如何修改el-dialog的样式?
  • 原文地址:https://www.cnblogs.com/hannover/p/5180305.html
Copyright © 2011-2022 走看看