Set/reset LogStatusBar environment variable when needed

Language

LotusScript

Tags

Author

Sjef Bosman

Submitted on

April 25, 2019 at 11:38 AM

Rating

Downloads

Notes

When you want to start logging to log.nsf, just put
Dim h As New LogHelper
and delete the object when you want to stop logging.

Class LogHelper
	Private v As Variant
	
	Sub New
		Dim ns As New NotesSession 
		
		v= ns.GetEnvironmentString("LogStatusBar", True)
		Call ns.SetEnvironmentVar("LogStatusBar", "1", True)
	End Sub
	
	Sub Delete
		Dim ns As New NotesSession 
		
		Call ns.SetEnvironmentVar("LogStatusBar", v, True)
	End Sub
End Class

All code submitted to OpenNTF XSnippets, whether submitted as a "Snippet" or in the body of a Comment, is provided under the Apache License Version 2.0. See Terms of Use for full details.

No comments yetLogin first to comment...