Question

  Asked: Jun 4 2008   7:15 PM GMT
  Asked by: BFOSTER27


Rename Notes Location Document


location documents, Lotus Notes, Lotus

Is there a way to rename Notes Location Documents. I would just like to rename the INTERNET option to my company name. I already have the scrip that delete the other standard Notes client location document.

Subscribe to Alerts! Get questions and answers delivered to your Inbox.


E-mail me updates on this question



   SUBSCRIBE

hidden modal window

Answer Wiki (Improve, edit or add to this answer)


 RATE THIS ANSWER
0
Click to Vote:
  •   0
  •  0



Go into your personal name & address book. Select the view Locations, find the document with the title "Internet". Edit the document and change it to the value you wish.
  • AddThis Social Bookmark Button

Browse more Questions and Answers on Lotus Domino.

Looking for relevant Lotus Domino Whitepapers? Visit the SearchDomino.com Research Library.


Discuss This Answer


You must be logged-in to discuss a question. Log-in/Register

Brooklynegg  |   Jun 5 2008  2:57PM GMT

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

 

BFOSTER27  |   Jun 19 2008  1:40PM GMT

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.

 

BFOSTER27  |   Jun 19 2008  8:30PM GMT

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)

 

Broxy  |   Jun 20 2008  6:50PM GMT

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.

 

BFOSTER27  |   Jun 23 2008  3:23PM GMT

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

 

Brooklynegg  |   Jun 24 2008  2:04PM GMT

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)

 

BFOSTER27  |   Jun 24 2008  9:16PM GMT

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

 

Brooklynegg  |   Jun 25 2008  2:10PM GMT

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)