I need to make this work using this TechNote: http://www-01.ibm.com/support/docview.wss?uid=swg21208108 so that the button checks against not only names.nsf but general Address Books.
Could you please help me?
Sub Click(Source As Button)
Messagebox "MESSAGE", 0 + 64, "BOX NAME"
Dim workspace As New NotesUIWorkspace
Dim db As New NotesDatabase("" , "names.nsf")
Dim view As NotesView
Dim doc As NotesDocument
Dim success As Variant
Dim connect As NotesDocument
Dim State As Integer
Set view = db.GetView("Connections")
Set doc = view.GetFirstDocument
While Not (doc Is Nothing) '
If doc.Destination(0) = "SERVER" And doc.optionalnetworkaddress(0) = "SERVER" Then
Set doc = view.GetNextDocument(doc)
Set connect = db.CreateDocument
connect.form = "local"
connect.type = "Connection"
connect.destination = "SERVER"
connect.lanportname = "TCPIP"
connect.connectiontype = "0"
connect.optionalnetworkaddress = "IP"
success = connect.ComputeWithForm( False, False)
'Open the desired database on SERVER
Call workspace.OpenDatabase ( "SERVER", "PATH","" , "", True, False )
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!
No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.
Your password has been sent to:firstname.lastname@example.org
To follow this tag...
Thanks! We'll email you when relevant content is added and updated.
Share this item with your network: