@Text( @Now; "*" )
Source
@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
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...
@DbCommand("Domino";["LoadAddressListByIndex" | "LoadAddressListByName"];"names.nsf"; txtTargetField; strMax; [strIndex | strKey])
@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... ;-)
@URLEncode
@RegQueryValue("HKEY_LOCAL_MACHINE"; "SOFTWARE\\Network Associates\\TVD\\Shared Components\\VirusScan Engine\\4.0.xx\\"; "szDatVersion")
@Prompt([ChooseDatabase]; ""; ""; ""; "")
Rückgabe-Liste: ServerName : FileName/Path : DatabaseTitle
variant = notesUIWorkspace.Prompt( type%, title$, prompt$ [, default ] [, values ] )
type% = 13 benutzen
Rückgabe-Liste: s.o.
@Prompt([LOCALBROWSE]; "Title"; "Text")
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
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
- @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...