Outlook LotusNotes:使用Lotusscript添加工作区图标

Outlook LotusNotes:使用Lotusscript添加工作区图标,outlook,lotus-notes,lotusscript,Outlook,Lotus Notes,Lotusscript,我想创建一个LotusScript“脚本”,它将向用户工作区添加一个指定的数据库。创建并向用户分发这样一个脚本的最佳方式是什么?用户使用Microsoft Outlook电子邮件,而不使用Lotus Notes邮件。在您的回答中,您有两个问题:创建脚本并分发它。 0。用于添加数据库图标的LotusScript 您可以使用方法将数据库图标添加到用户工作区: Dim ws作为新工作区 '... AddDatabase(“您的DB0服务器”、“您的DB0文件路径”) AddDatabase(“您的DB

我想创建一个LotusScript“脚本”,它将向用户工作区添加一个指定的数据库。创建并向用户分发这样一个脚本的最佳方式是什么?用户使用Microsoft Outlook电子邮件,而不使用Lotus Notes邮件。

在您的回答中,您有两个问题:创建脚本并分发它。

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

Dim ws作为新工作区
'...
AddDatabase(“您的DB0服务器”、“您的DB0文件路径”)
AddDatabase(“您的DB1服务器”、“您的DB1文件路径”)
AddDatabase(“您的DB2服务器”、“您的DB2文件路径”)
'...
1。任何脚本的分发
您可以将脚本发送给将运行脚本的用户。为此,您需要创建一个
表单
,在
PostOpen
事件中运行脚本:

Sub Postopen(源代码为Notesuidocument)
将ws设置为新工作区
'您的脚本在这里
调用ws.CurrentDocument.Close
端接头
因此,最好使用这样的表单创建配置文件文档,并将此文档的URL发送给用户:

Dim ses As New notes session
Dim db As NotesDatabase
标注文档作为注释文档
Dim mdoc As NOTES文档
朦胧的身躯
暗淡无光
模糊的名称为NotesName
Set db=ses.CurrentDatabase
Set doc=db.GetProfileDocument(“YourProfileDocument”)
ses.ConvertMIME=False
设置mdoc=db.CreateDocument
mdoc.SendTo=“您的用户”_mail@domain.foo"
mdoc.Subject=“看一看”
Set stream=ses.CreateStream
Set body=mdoc.CreateMIMEEntity
Set nname=ses.CreateName(db.Server)
调用stream.WriteText({请打开此。})
调用body.SetContentFromText(流,“text/html;charset=utf-8”,ENC_IDENTITY_8BIT)
调用mdoc.Send(False)

另一方面,如果只想添加一些数据库而不进行任何计算,则不需要这样的脚本。根据以下建议:

你可以直接调用像N这样的URLotes://Server/Path/Database.nsf.


但请注意,在早期版本的Lotus Notes(7或更早版本)中,它不会向工作区添加数据库图标。

您只需调用类似
N的URL即可otes://Server/Path/Database.nsf
通过电子邮件发送给用户


您可以找到有关URL语法的更多详细信息

打开Notes客户端是一个选项吗?然后你可以调用一个像N这样的URLotes://Server/Path/Database.nsf 谢谢克努特,我会用这个解决方案。很好。我把它添加为一个答案,这样你就可以把这个问题设置为可以接受的。克努特的建议非常简单。我甚至不明白这个答案是如何回答这个问题的。@AndreGuirard很抱歉给您带来不便。我试图澄清我的答案。看看我答案的更新版本。刚刚测试过:调用URL Notes://... 在版本8.5.3和9.0.1中也会将数据库图标添加到工作区。@KnutHerrmann是的,在版本7或更早的版本中不会将数据库图标添加到工作区。哦,我明白了。我将其理解为“这不会添加数据库图标-仅在早期版本中…”