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

原创 2004年10月27日 10:32:00
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

46. Lotus Notes中编程发送邮件(一)

邮件是Lotus Notes体系的核心和基本功能,以至于Send()是NotesDocument的一个方法,任何一个文档都可以被发送出去,Notes里的一封邮件也只是一个有一些特殊字段的文档。在程序开...
  • starrow
  • starrow
  • 2013年08月14日 17:24
  • 9290

lotus notes 在线密码修改

要在浏览器中直接修改用户口令,首先要在数据库中建立一个表单,如图1所示,表单中包含ShortName,HttpPassword, Newpass1,Ne...
  • ukeychen
  • ukeychen
  • 2007年09月22日 10:08
  • 3202

Lotus Notes中最重要的部分

  LotusNotes中最重要的部分Evaluate()在脚本中执行一个lotus公式语言,返回该公式语言返回的值。3. (@Modified, @Date, @Weekday, @Today, @...
  • educast
  • educast
  • 2008年10月15日 09:48
  • 1694

邮件服务器配置(notes篇):lotus notes 9.0.1安装及配置

1.安装 环境:windows server  2008 64 1)lotus notes  9.0.1下载: https://www-01.ibm.com/marketing/iwm/iwm/we...
  • zs15yy
  • zs15yy
  • 2017年07月11日 14:47
  • 1056

利用 LotusScript 灵活操作 Lotus Notes 富文本域

引言 一直以来,Lotus Notes 的富文本域都是使用非常频繁的,几乎在任何 Domino 应用程序中,都会用到富文本域。Lotus Notes 富文本域的功能也非常强大,除了支持普通的文本以外...
  • Gavid0124
  • Gavid0124
  • 2015年01月30日 16:49
  • 2051

11. @DbColumn和@DbLookUp的LotusScript版本

由于Notes数据库特殊的结构,@DbColumn和@DbLookUp相当于SQL中的Select语句,是最重要和有用的公式。在LotusScript里,@DbColumn有对等的方法NotesVie...
  • starrow
  • starrow
  • 2012年12月14日 16:49
  • 3620

Lotus Domino R5 开发心得

Lotus Domino R5 开发心得 ---- Lotus Domino 是当今办公自动化系统的主流开发平台之一,目前大部分企业和机构都在使用Lotus Domino 开发自己的无纸办公系统。不久...
  • Mobidogs
  • Mobidogs
  • 2007年03月14日 13:33
  • 1508

Lotus Notes/Domino 的理解

在面对悠久而知名的邮箱学习中,谈谈我的看法和理解。 首先它的历史,能干什么,为什么能成为IBM中排名第二的办公服务软件。 世界级的企业级通讯、协同工作及Internet/Internet平台。面向的都...
  • github_34437042
  • github_34437042
  • 2016年08月24日 16:49
  • 480

35. 面向对象的LotusScript(七)之导入Excel

Microsoft Office是应用最广泛的办公软件,绝大多数公司的必备软件。其中的Excel操作直观方便,很多公司都有大量数据以Excel文件的格式保存。一个LotusNotes应用在很多情况下都...
  • starrow
  • starrow
  • 2013年07月04日 22:43
  • 4262

操作Lotus Notes数据库

今天,异构数据环境已经是一个普遍存在的问题,Windows常用开放数据库互连标准ODBC进行数据交换与操作,后来微软又推出了ADO技术,例如用VB操作Oracle、Sybase和SQL Server等...
  • Mobidogs
  • Mobidogs
  • 2007年03月14日 12:32
  • 3036
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Undokumentierte @Formeln/LotusScript im Lotus Notes R5 Client/Server
举报原因:
原因补充:

(最多只允许输入30个字)