Comments on: Rename Notes Location Document

By: brooklynegg

brooklynegg — Wed, 25 Jun 2008 14:10:32 +0000

My mistake. I wrecked the document object name. Did you notice and fix it and it still failed? If not do this and let me know.

Case “Internet”
‘docLocation.RemovePermanently(True) ‘mark at front of line disables it. you can delete instead.
docLocation.name = “My Company name”
Call docLocation.Save(True, False)

By: bfoster27

bfoster27 — Tue, 24 Jun 2008 21:16:18 +0000

Brooklynegg, I tried what you suggested but it didn’t work. Any other suggestions? Please reply to this blog… Thanks a million

By: brooklynegg

brooklynegg — Tue, 24 Jun 2008 14:04:42 +0000

In the script you posted, change this case

Case “Internet”
‘docLocation.RemovePermanently(True) ‘mark at front of line disables it. you can delete instead.
Locationdoc.name = “My Company name”
Call docLocation.Save(True, False)

By: bfoster27

bfoster27 — Mon, 23 Jun 2008 15:23:00 +0000

Broxy, or anyone else. Based on the script I posted above it ther a way to do this and If so can you please repost .

Thanks

By: broxy

broxy — Fri, 20 Jun 2008 18:50:34 +0000

In order to modify location documents then every user has to run the script which can be done by sending an email with a preprogrammed button, This needs careful thought before you do this especially if you are considering sending a button that deletes all existing location documents.

This sort of high-handed action is likely to upset users a great deal if they have already customised their location documents, by all means create a standard new one but give the users a choice rather than installing automatically unless you consult widely beforehand.

By: bfoster27

bfoster27 — Thu, 19 Jun 2008 20:30:15 +0000

This is the scrip i’m using. What I would like to do is delete all locations and somehow rename the OFFICE location to HNRGMAIL. Please see my script below and make the changes you see fit and repost… I would appreciate it a million.

Dim viewLocations As NotesView
Dim docLocation As NotesDocument
Dim item As NotesItem
Dim vec As NotesViewEntryCollection
Dim ve As NotesViewEntry

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.GetDatabase(“”, “names.nsf”)
Set doc = db.CreateDocument
doc.Type = “Connection”
doc.ConnectionType = “Local Area Network”
doc.Destination = “HNRGMAIL”
doc.LanPortName = “TCPIP, COM1, COM2, COM3, COM4″
doc.ConnectionLocation = “HNRGMAIL”
doc.OptionalNetworkAddress = “*”
doc.Form = “local”
Call doc.ComputeWithForm(False, False)
Call doc.save(True, True)
Msgbox “Your (HNRGMAIL) Location Connection Document was Created”

Set db = session.GetDatabase(“”, “names.nsf”)
Set doc = db.CreateDocument
doc.Type = “Connection”
doc.ConnectionType = “Network Dialup”
doc.Destination = “HNRGMAIL”
doc.LanPortName = “TCPIP, COM1, COM2, COM3, COM4″
doc.ConnectionLocation = “Home (Network Dialup)”
doc.OptionalNetworkAddress = “165.71.63.84″
doc.Form = “local”
Call doc.ComputeWithForm(False, False)
Call doc.save(True, True)
Msgbox “Your (Home Dial-up) Connection Document was Created”

Set session = New NotesSession
Set dbNAB = session.GetDatabase(“”, “names.nsf”)
Set viewLocations = dbNAB.GetView(“Locations”)
Set vec = viewLocations.AllEntries
For k = 1 To vec.Count
Set ve = vec.GetNthEntry(k)
Set docLocation = ve.Document
Select Case docLocation.Name(0) = “HNRGMAIL”
doc.name = “HNRGMAIL”
Case “HNRGMAIL”
docLocation.ReplicationEnabled = “1″
docLocation.ReplicateImmediate = “0″
docLocation.ReplicateAtStart = “0″
docLocation.PromptAtStart = “0″
docLocation.Schedule = “12:01:00 AM – 11:59:00 PM”
docLocation.Intervals = “4”
docLocation.Enabled = “1″
docLocation.ReplicateAtEnd = “0″
Set item = docLocation.ReplaceItemValue(“WebRetriever”, “2″) ‘from the test
docLocation.WeekDays = Null
For q = 1 To 7
If (docLocation.HasItem(“WeekDays”)) Then
Set item = docLocation.GetFirstItem(“WeekDays”)
item.AppendtoTextList Cstr(q)
Else
docLocation.WeekDays = Cstr(q)
End If
Next

Case “HNRGMAIL”
docLocation.ReplicationEnabled = “1″
docLocation.ReplicateImmediate = “0″
docLocation.ReplicateAtStart = “0″
docLocation.PromptAtStart = “0″
docLocation.Schedule = “12:01:00 AM – 11:59:00 PM”
docLocastion.Intervals= “4”
docLocation.Enabled = “1″
docLocation.ReplicateAtEnd = “0″
Set item = docLocation.ReplaceItemValue(“WebRetriever”, “2″) ‘from the test
docLocation.WeekDays = Null
For q = 1 To 7
If (docLocation.HasItem(“WeekDays”)) Then
Set item = docLocation.GetFirstItem(“WeekDays”)
item.AppendtoTextList Cstr(q)
Else
docLocation.WeekDays = Cstr(q)
End If
Next

Case “Home (Network Dialup)”
docLocation.ReplicationEnabled = “0″
docLocation.ReplicateImmediate = “0″
docLocation.ReplicateAtStart = “0″
docLocation.PromptAtStart = “0″
docLocation.Schedule = “08:30:00 AM – 10:00:00 PM”
docLocation.Enabled = “1″
docLocation.Interval = “0″
docLocation.ReplicateAtEnd = “0″
Set item = docLocation.ReplaceItemValue(“WebRetriever”, “2″) ‘from the test
docLocation.WeekDays = Null
For q = 1 To 7
If (docLocation.HasItem(“WeekDays”)) Then
Set item = docLocation.GetFirstItem(“WeekDays”)
item.AppendtoTextList Cstr(q)
Else
docLocation.WeekDays = Cstr(q)
End If
Next

Call docLocation.Save(True, False)
Case “Home (Notes Direct Dialup)”
docLocation.RemovePermanently(True)
Case “Island (Disconnected)”
docLocation.RemovePermanently(True)
Case “Travel (Notes Direct Dialup)”
docLocation.RemovePermanently(True)
Case “Office”
docLocation.RemovePermanently(True)
Case “Internet”
docLocation.RemovePermanently(True)

By: bfoster27

bfoster27 — Thu, 19 Jun 2008 13:40:00 +0000

Could you be more specific? as to what you mean by: “See below”
——————————————————————————————–
Then just change its Name field.

If doc.Name(0) = “Offiice” then ‘ the sub-sero reference is needed here
doc.name = “My Company” ‘ the sub-zero reference cannot be used here
—————————————————————————————————-

I don’t get what your refering to.

By: brooklynegg

brooklynegg — Thu, 05 Jun 2008 14:57:59 +0000

If you have script to delete the others, you should be able to test for the document that you want to rename. Then just change its Name field.

If doc.Name(0) = “Offiice” then ‘ the sub-sero reference is needed here
doc.name = “My Company” ‘ the sub-zero reference cannot be used here.
End if