< Back
Document Subject: Need to get notes.ini from a remote server
Hint Short Cut: Add this to your code & documentation to help you find this page.
http://#ServerNotesIni or http://A555F9/nn.nsf/ByAlias/ServerNotesIni

If you need the server notes.ini you can use this code to grab it.




 

Stick this in an agent that is with agent list selection with target none and security "Allow unrestricted with full admin".

 

On Error Goto eh
 Dim s As New notessession
 Dim db As notesdatabase
 Set db = s.currentdatabase
 Dim mdoc As New notesdocument(db)
 
 Dim rt As notesrichtextitem
 Set rt= New notesrichtextitem(mdoc,"Body")
 mdoc.sendto="myaddress@myaddress.com"
 mdoc.subject=s.GetEnvironmentString("NotesProgram", True)
 
 'notes.ini is stored in directory above data
 'nb data directory could be another
 
 Call mdoc.send(False)
 Call rt.EmbedObject(EMBED_ATTACHMENT, "", s.GetEnvironmentString("NotesProgram", True) & "\notes.ini")
 
 Call mdoc.send(False)
 
 End
 
eh:
 Print "Error " & Error$ & " at line " & Erl & "<br>"