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...
  • 相关阅读:
    laravel 安装完成后安装 vendor 目录
    requires php ~7.1 -> your PHP version (7.0.18) does not satisfy that requirement
    查看laravel版本
    git update-index --assume-unchanged
    Git 取消跟踪已版本控制的文件(亲测可行)
    git把某个文件去除版本控制
    git如何移除某文件夹的版本控制
    git如何移除某文件的版本控制
    git 教程
    Git branch && Git checkout常见用法
  • 原文地址:https://www.cnblogs.com/hannover/p/5180305.html
Copyright © 2011-2022 走看看