I'd appreciate any ideas on why this error occurs. ______________________________________
Private Sub SetPropertiesFromDoc(docCon As NotesDocument, lccon As LCConnection, _
Byval baseOnly As Boolean)
' Given a NotesDocument (which is expected to be a connection doc)
' and an LCConnection, loads the connection properties from the
' document into the connection. If baseOnly flag is true, the
' connection doc may not be a metaconnection, or an error results.
On Error Goto oops
On Error 12555 Resume Next ' if property doesn't exist, ignore error.
Dim tokens, names
With docCon
tokens = .GetItemValue("PropTokenList")
names = .GetItemValue("PropNameList")
Dim fval As New LCStream
Dim i%
For i = Lbound(tokens) To Ubound(tokens)
If names(i) <> "Library" And names(i) <> "Name" And names(i) <> "Link" Then
fval.Text = .GetItemValue(names(i))(0)
Call lccon.SetPropertyStream(tokens(i), fval)
End If
Next
Return to top
'Invalid property' error from 'SetP... (App Devlmnt 10.Jun.10)
. . 
Print this page
