Sonia R Lopes 7.Aug.07 10:04 AM a Web browser Notes Client6.0.3Windows 2000
Hello, I'm not a developer just an admin and need a little help...
I need to update certain fields in each user's location documents. One particular Location Name is "Internet Connections", I need to makesure the field DefaultPassthruServer doesn't get updated for this location. I wrote code below but its still not working. Any help is greatly appreciated...
Sub Click(Source As Button)
Dim db As New NotesDatabase("","names.nsf")
Dim view As NotesView
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim item As NotesItem
Set view = db.GetView("Locations")
Set docA= view.GetFirstDocument
Do While Not ( docA Is Nothing )
If docA.Name(0) Like "Internet" Then
docA.MailServer="CN=/O=EFFEM"
docA.DefaultPassthruServer="CN=/O=EFFEM"
docA.CatalogServer="CN=/O=EFFEM"
docA.DirectoryServer="CN=/O=EFFEM"
Call docA.Save( False, True )
Set docA = view.GetNextDocument(doc)
Else
docA.MailServer="CN=/O=EFFEM"
docA.CatalogServer="CN=/O=EFFEM"
docA.DirectoryServer="CN=/O=EFFEM"
Call docA.Save( False, True )
Set docA = view.GetNextDocument(doc)
End If
Loop
Call view.Refresh
'Call Session.SetEnvironmentVar( "MailServer", "CN=/O=EFFEM",True )
Messagebox "Locations have been updated successfully."
End Sub
Return to top
Update Location Document except one... (Sonia R Lopes 7.Aug.07)
. . 
Print this page
