Excel и Outlook

[kazimirskiyy-yy]

Всем привет!
Есть макрос на закрытие Outlook через Excel. Сейчас возможно макрос написан коряво, т.к. наваял на работе, по памяти пишу , а дома весь офис снес, т.к. ПК чистил.
Суть в том чтобы макрос закрывал почту и он собственно закрывает. НО если при этом пользователь открыл новое письмо, то почта закрыта не будет пока пользователь не произведет сохранение письма. Бужу благодарен за подсказку.

Dim OtlApp as Object
set OtlApp=getobject(,"outlook.Application")
Err.Clean
If OtlApp nothing then
otlapp=nothing
end if
otlapp.quit