注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

mylotustips的博客

IBM Lotus协作产品家族经验分享

 
 
 

日志

 
 
关于我

欢迎大家使用SR向IBM800提交问题http://www.ibm.com/support/servicerequest 可以随时查看问题状态,上传文件

网易考拉推荐

在本地names.nsf中创建连接文档的LotusScript样例  

2014-04-16 16:40:28|  分类: LotusScript |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

管理员希望用户点一个按钮,就可以在联系人(本地names.nsf)数据库中创建到目标服务器的连接文档。

 

具体步骤如下:

 

1.新建一封邮件,把鼠标光标放到邮件正文部分,点击顶部菜单:Create-> Hotspot-> Button


 

2.给这个按钮取一个名字,如:test button,然后选择Run Client as LotusScript

 

 

3.将下面的代码粘贴到代码区域:

 

注意代码的2个地方需要根据您的需求修改:分别代表目标服务器名称目标服务器IP地址

 

Sub Click(Source As Button)

    Dim Workspace As New NotesUIWorkspace

    Dim UIDdoc As NotesUIDocument

    Set uidoc = workspace.composedocument("","names.nsf","Connection")

    Call uidoc.fieldsettext("ConnectionType","Local Area Network")

    Call uidoc.refreshhideformulas

    Call uidoc.fieldsettext("PortName","TCPIP")

    Call uidoc.fieldsettext("LanPortName","TCPIP")

'The FieldSetText method could be used here to set the values of other fields

'For example, the below allows the connection to only be used when

' either the OfficeA or OfficeB location documents are in use.

    Call uidoc.fieldsettext("ConnectionLocation","*")

    Call uidoc.refreshhideformulas

    Call uidoc.fieldsettext("Destination","server/acme")

    Call uidoc.fieldsettext("OptionalNetworkAddress","10.0.0.10")

    Call uidoc.fieldsettext("Source","*")

    Call uidoc.refresh

    Call uidoc.save

    Call uidoc.close    

End Sub

 

 

4.完成后将该代码发送给需要在本地names.nsf中创建连接文档的用户,用户收到该邮件后单击按钮即可。

相关文档: Creating Connection documents using LotusScript
Doc #:    1110951
URL:    http://www.ibm.com/support/docview.wss?uid=swg21110951

  评论这张
 
阅读(393)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017