By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Sub Click(Source As Button)
On Error Goto ProcessError
Dim session As New notessession
Dim doc As notesdocument
'Find and set the local address book.
Forall db In session.addressbooks
If Lcase$(db.filename) = "names.nsf" Then
Call db.open("", "")
Set doc = db.createdocument
'Provide the minimum required fields. Example:
doc.Form = "Connection"
doc.ConnectionType = "0"
doc.LanPortName = "TCPIP"
doc.Destination = "Destination Server"
doc.ConnectionRecordFirst = "1"
doc.OptionalNetworkAddress = "184.108.40.206"
'Compute the doc with his form to generate all the fields needed.
Call doc.computewithform(True, True)
Call doc.save(True, False)
Msgbox "Connexion document created.", 0, session.currentdatabase.title
'Good luck in your projects!
Print "Error " & Err() & " (" Erl() & ") " & Error()
Msgbox "Unable to create connexion document.", 48,