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 = "126.96.36.199"
'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,