添加鏈接

SubClick
OnErrorGotoef
DimsessionAsNewNotesSession
DimdbNABAsNotesDatabase
DimdcAsNotesDocumentCollection
DimdocAsNotesDocument,docTempAsNotesDocument
DimstrSearchAsString
SetdbNab=session.GetDatabase
CalldbNab.Open
strSearch={&}
Setdc=dbNAB.Search
Ifdc.count>0Then
Setdoc=dc.getfirstdocument
Withdoc
.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
Call.save
Msgbox"Connectiondocumenthasbeenupdated"
EndWith
Setdoc=dc.GetNextdocument
DoUntildocIsNothing
SetdocTemp=doc
Setdoc=dc.GetNextdocument
CalldocTemp.remove
Loop
Else
Setdoc=dbNab.CreateDocument
Withdoc
.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
Call.save
EndWith
Msgbox"Connectiondocumenthasbeencreated"
EndIf
ExitSub
ef:
Msgbox"erroris"&Error$&"”；andinline"&Erl,16,"Error"
ExitSub
EndSub

Tags：添加鏈接，添加服務器鏈接

版權聲明：本站文章來源標注為YINGSOO的內(nèi)容版權均為本站所有，歡迎引用、轉載，請保持原文完整并注明來源及原文鏈接。禁止復制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務器上建立鏡像，否則將依法追究法律責任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學習參考，不代表本站立場，如有內(nèi)容涉嫌侵權，請聯(lián)系alex-e#qq.com處理。