CSDN博客

img chenyg2000

Undokumentierte @Formeln/LotusScript im Lotus Notes R5 Client/Server

发表于2004/10/27 10:32:00  1236人阅读

分类: Lotus Tips

Befehl, um die Namen 黚er den Browser aus dem Adre遙uch zu holen:
@DbCommand("Domino";["LoadAddressListByIndex" | "LoadAddressListByName"];"names.nsf"; txtTargetField; strMax; [strIndex | strKey])
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鰊nen, siehe auch escape()-Funktion in JavaScript:
@URLEncode
Stellt Eintr鋑e aus der Registry zur Verf黦ung:
@RegQueryValue("HKEY_LOCAL_MACHINE"; "SOFTWARE//Network Associates//TVD//Shared Components//VirusScan Engine//4.0.xx//"; "szDatVersion")
Zeigt den Dialog zum 謋fnen einer Datenbank: Quelle
@Prompt([ChooseDatabase]; ""; ""; ""; "")
R點kgabe-Liste: ServerName : FileName/Path : DatabaseTitle
Zeigt den Dialog zum 謋fnen einer Datenbank in LotusScript: Quelle
variant = notesUIWorkspace.Prompt( type%, title$, prompt$ [, default ] [, values ] )
type% = 13 benutzen
R點kgabe-Liste: s.o.
Zeigt den Dialog zum 謋fnen 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
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
阅读全文
0 0

相关文章推荐

img
取 消
img