Befehl, Um Die Namen 黚 Er Den Browser Aus Dem Adre Diren Uch Zu Holen:
@Dbcommand ("Domino"; ["LoadaddressListByindex" | "loadaddresslistbyname];" names.nsf "; txttargetfield; strmax; [strinder; strkey])
Stellt Informationen Aus Der AkTuellen Arbeitsumgebung Bereit:
@LocationgetInfo ([HOMESERVER])
@LocationgetInfo ([CatalogServer])
@LocationgetInfo ([Sametimserver])
@LocationgetInfo ([NamePReference])
@LocationgetInfo ([MailProtocol])
@LocationgetInfo ([WebRever])
@LocationgetInfo ([BookmarksFileName])
@LocationgetInfo ([InternetMailAddress])
@LocationgetInfo ([AREACODE])
@LocationgetInfo ([** feldname ***]) Einfach mal andre 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 Point 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 Point Kgabe-Liste: S.O.
Zeigt Den Dialog Zum 謋 Fnen Einer Datei:
@Prompt ([localbrowse]; "title"; "text")
Undocunted LotusScript from Dominoupdate Journal:
DIM S as New Notessession
DIM DB AS NotesDatabaseDoase
SET DB = S.CurrentDatabase
IF (db is nothing) Thenexit 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", "True / false to retain mail, (True / False To Use SSL)
-------------------------------------------------- ------------------------------
Db.createNewsGroup ("Group name")
-------------------------------------------------- ------------------------------
DIM S as New Notessession
DIM DB AS NotesDatabaseDoase
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.currentdocumentprint uidoc.parentViewName
-------------------------------------------------- ------------------------------
DIM UIW AS New NotesuiWorkspace
Call uiw.adddatabasetoportroportfolio ()
Call Uiw.addbookmark ("Example 5")
-------------------------------------------------- ------------------------------
DIM S as New Notessession
DIM DB AS NotesDatabaseDoase
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 NotesDatabaseDoase
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 UNDOKUMENTEN PRACKTISPRACHEBEFEHL:
List: = @ getmembers (list; pos [; anzahl])
Der Befehl Holt Aus Einer Liste Ein Oder Mehree Elemente AB Der Stelle Pos. Wenn Die Anzahl Weggelassen Wird, Wird Ein Element Gehold.
Quelle
