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...
  • 相关阅读:
    php数据过滤函数与方法示例【转载】
    MySQL 数据类型 详解 (转载)
    【总结整理】产品经理-电台
    【总结整理】职业选择
    【总结整理】什么样的产品是好产品
    【总结整理】微信产品-张小龙-PM学习总结
    Arcgis engine编程报错查询(转)
    ArcEngine开发遇到的问题(转)
    【总结整理】OpenLayers项目分析,OpenLayers中的图层,GeoServer发布wms服务--实验(转)
    带你剖析WebGis的世界奥秘----Geojson数据加载(高级)(转)
  • 原文地址:https://www.cnblogs.com/hannover/p/5180305.html
Copyright © 2011-2022 走看看