Упс!))отвлекли, забыл в чем проблема была. у меня в Onunload указано Call ws.EditDocument(True, doc) и он как и должен перед close срабатывает
Dim doc As NotesDocument
Set doc = Source.Document
doc.SaveOptions = "1"
Call doc.save (False, True)
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab