troubleshooting Question

Strange error when using a button to connect to server and database

Avatar of notesrookie
notesrookieFlag for United States of America asked on
Lotus IBM
4 Comments2 Solutions387 ViewsLast Modified:
Greetings experts,

I am starting to run into a strange error when I send my users a "connection" button. This button adds a connection document to the user's address book and then opens the database. The code  for the button is listed below. The error message can be seen in the image below. I already have the server listed in the code as a trusted server in the address book.

I am on Domino 8.0.2 on a Windows 2003 Enterprise server. The users appear to be on 8.5. I won't be upgrading any time soon. Is there any other way to resolve this?

Thank you.
Dim s As New NotesSession
	Dim dbL As NotesDatabase
	Dim viewCon As NotesView
	Dim docL As NotesDocument
	Dim nn As NotesName
	Dim itmP As NotesItem
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	server$ ="SWGAPPS/SWGS"
	ip2$ = ""
	path$ = "zapps\seccon.nsf"
	' access local Address Book
	Set dbL = s.GetDatabase("", "names.nsf", False)
	If Not (dbL Is Nothing) Then
		Set viewCon = dbL.GetView("Connections")
		Set nn = New NotesName(server$)
		Set dc = viewCon.GetAllDocumentsByKey(nn.Abbreviated, True)
		If dc.Count > 0 Then
			Call dc.RemoveAll(True)
			Set db = s.GetDatabase(ip2$, path$)
		End If
		Set docL = dbL.CreateDocument
		Set itmP = docL.ReplaceItemValue("LanPortName", "TCPIP")
		With docL
			.ConnectionType = "0"
			.OptionalNetworkAddress = ip2$
			.PhoneNumber = ip2$
			.MailThreshold = 5
			.PortName = itmP.Values
			.RepPriority = "0"
			.Type = "Connection"
			.Destination = server$
			.Form = "local"
		End With
		Call docL.ComputeWithForm(True, True)
		Call docL.Save(True, True)
	End If
	If db Is Nothing Then
		Set db = s.GetDatabase(ip2$, pathTR$)
	End If
	' Open Team Room
	Dim w As New NotesUIWorkspace
	Print "wait ...opening ... "
	Call w.OpenDatabase(server$, path$)
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 2 Answers and 4 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 2 Answers and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros