如何关闭正在收信的outlook? (100分)

var
Outlook, NmSpace, Folder: OleVariant;
begin
Outlook := CreateOleObject('Outlook.Application');
{
NmSpace := Outlook.GetNamespace('MAPI');
NmSpace.Logon(EmptyParam, EmptyParam, False, True);
NmSpace.Logoff;
}
Outlook.Quit;
Outlook := Unassigned;

如果outlook不在收信，好用
反之会让程序处于等待状态，甚至死锁，该怎么办?

把网络切断就OK