How do I use Lotus Script to edit the current location document?
Posted on 2005-05-10
My Notes client is 6.5.3 and our Domino server is also 6.5.3.
I need to use Lotus Script to edit the location document on our Notes clients. Specifically, I need to change "Format for messages addressed to internet addresses:" on the Mail tab to "MIME Format."
I already have a button with this code behind it that edits the location document. I just don't know the variable names needed to make function like I need it to.
Sub Click(Source As Button)
On Error Goto handleError
Dim session As New NotesSession
Dim dbNames As NotesDatabase
Dim collLocations As NotesDocumentCollection
Dim docLocation As NotesDocument
Dim strSearchString As String
Dim dateCutoff As New NotesDateTime("12/01/94")
strSearchString = |Form = "Location" |
Set dbNames = New NotesDatabase( "", "names.nsf" )
Set collLocations = dbNames.Search( strSearchString,dateCutoff , 0)
Set docLocation = collLocations.GetFirstDocument
While Not(docLocation Is Nothing)
docLocation.mailserver = "mail1"
docLocation.Domain = "scstudentloan"
doclocation.imailaddress = ""
Call docLocation.Save(True, True)
Set docLocation = collLocations.GetNextDocument(docLocation)
Messagebox "Updated the location documents success fully.", 0+64, "Updated:"
Messagebox "Error occured while modifying location documents." & Err() & ": " & Error(), 0+16, "Error: "