MsgBox "Create"
Set objLotusApp = CreateObject("notes.notesSession")
objLotusApp.Visible = False !!!!!!!!!
Set objDb       = objLotusApp.getDatabase(objLotusApp.GetEnvironmentString("mailserver", True), objLotusApp.GetEnvironmentString("MailFile", True))
MsgBox "Close"
objDb.Close
objLotusApp.Close !!!!!!!!!
MsgBox "Nothing"
Set objDb       = Nothing
Set objLotusApp = Nothing                                                                              
MsgBox "Quit