Question

我想创建一个LotusScript＆＃34;脚本＆＃34;这会将指定的数据库添加到用户工作区。创建并特别是将这样的脚本分发给用户的最佳方法是什么？用户拥有Microsoft Outlook电子邮件，不使用Lotus Notes邮件。

Answer 1

在你的回答中你有两个问题：创建脚本并分发它。

的 0。用于添加数据库图标的LotusScript
您可以使用NotesUIWorkspace.AddDatabase方法将数据库图标添加到用户工作区：

Dim ws As New NotesUIWorkspace

'...
ws.AddDatabase("Your DB0 Server", "Your DB0 FilePath")
ws.AddDatabase("Your DB1 Server", "Your DB1 FilePath")
ws.AddDatabase("Your DB2 Server", "Your DB2 FilePath")
'...

<强> 1。任何脚本的分发
您可以将Notes URL发送给运行脚本的用户。为此，您需要创建一个Form来运行PostOpen事件中的脚本：

Sub Postopen(Source As Notesuidocument)

    Dim ws As New NotesUIWorkspace

    'Your script here

    Call ws.CurrentDocument.Close

End Sub

因此，最好使用这样的表单创建配置文件，并将此文档的URL发送给用户：

Dim ses As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim mdoc As NotesDocument
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Dim nname As NotesName  

Set db = ses.CurrentDatabase
Set doc = db.GetProfileDocument("YourProfileDocument")

ses.ConvertMIME = False

Set mdoc = db.CreateDocument

mdoc.SendTo = "Your_users_mail@domain.foo"
mdoc.Subject = "Take a look"

Set stream = ses.CreateStream
Set body = mdoc.CreateMIMEEntity

Set nname = ses.CreateName(db.Server)

Call stream.WriteText({Please open this <a href="} & {notes://} & nname.Common & {/} & db.ReplicaID & {/-/} & doc.UniversalID & {">link</a>.})

Call body.SetContentFromText(stream, "text/html;charset=utf-8", ENC_IDENTITY_8BIT) 

Call mdoc.Send(False)

另一方面，如果您只想添加一些没有任何计算的数据库，那么您就不需要这样的脚本。正如Knut Herrmann所建议的那样：

您只需调用Notes：//Server/Path/Database.nsf。
等URL即可

但要注意，它不会在早期版本的Lotus Notes（7或更早版本）中向工作区添加数据库图标。

Answer 2

您只需通过可发送给用户的电子邮件调用Notes://Server/Path/Database.nsf等网址即可。

您可以找到有关网址语法here

的更多详细信息

Lotus Notes：使用Lotusscript添加工作区图标

2 个答案: