Sub Click(Source As Button)
On Error Goto ef
Dim session As New NotesSession
Dim dbNAB As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument, docTemp As NotesDocument
Dim strSearch As String
Set dbNab = session.GetDatabase( "", "")
Call dbNab.Open( "", "names.nsf" )
strSearch = { ( form = "local" | form = "remote" ) & ( Destination = "TEST02.CN.ABB.COM/SRV/ABB" | Destination = "CN=TEST02.CN.ABB.COM//OU=SRV/O=ABB" ) }
Set dc = dbNAB.Search( strSearch, Nothing, 0 )
If dc.count > 0 Then
Set doc = dc.getfirstdocument
With doc
.Destination = "TEST02.CN.ABB.COM/SRV/ABB"
.LanPortName = "TCPIP"
.PortName = "TCPIP"
.OptionalNetworkAddress = "10.138.250.27"
.PhoneNumber = "10.138.250.27"
.Owner = session.username
.documentaccess = "[NetModifier]"
Call .computewithform( True, False )
Call .save( True, True )
Msgbox "Connection document has been updated"
End With
Set doc = dc.GetNextdocument( doc )
Do Until doc Is Nothing
Set docTemp = doc
Set doc = dc.GetNextdocument( doc )
Call docTemp.remove( True )
Loop
Else
Set doc = dbNab.CreateDocument
With doc
.form = "local"
.type = "Connection"
.connectionLocation = "*"
.connectionType = "0"
.Source = "*"
.Destination = "TEST02.CN.ABB.COM/SRV/ABB"
.LanPortName = "TCPIP"
.PortName = "TCPIP"
.OptionalNetworkAddress = "10.138.250.27"
.PhoneNumber = "10.138.250.27"
.Owner = session.username
.documentaccess = "[NetModifier]"
Call .computewithform( True, True )
Call .save( True, True )
End With
Msgbox "Connection document has been created"
End If
Exit Sub
ef:
Msgbox "error is" & Error$ & "”;and in line " & Erl, 16, "Error"
Exit Sub
End Sub
添加服务器链接
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
IBM / Lotus Domino 与 WebSphere Portal: 单点登录
陆君风
2020-02-26 05:21:56
理解 IBM Lotus Domino 邮件数据库的限额
陆君风
2020-02-26 05:21:56
Notes与SAP数据的互换
陆君风
2020-02-26 05:21:56
适于 IBM Lotus Domino 开发人员的 IBM WebSphere portlet 开发
陆君风
2020-02-26 05:21:56
基于 Lotus Expeditor 6.1 的复合应用开发
陆君风
2020-02-26 05:21:56
在 IBM Lotus Notes 和 Domino 中编写快速查找代码
陆君风
2020-02-26 05:21:56
集成 IBM Lotus Domino 和 SAP
陆君风
2020-02-26 05:21:56
Domino V8 在 UNIX/Linux 平台上的安装及其常见问题
陆君风
2020-02-26 05:21:56
使用 LEI 将 Domino 附件移至 RDBMS,无需编写脚本
陆君风
2020-02-26 05:21:56
在 IBM Lotus Expeditor 中构建并部署简单的 Web 服务资
陆君风
2020-02-26 05:21:56
Lotus 技术点之导出
陆君风
2020-02-26 05:21:56
IBM / Lotus Domino 与 WebSphere Portal: 单点登录
陆君风
2020-02-26 05:21:56
理解 IBM Lotus Domino 邮件数据库的限额
陆君风
2020-02-26 05:21:56