$session = Win32::OLE->new("MAPI.Session") 
    or die "Can't establish session : ".Win32::OLE->LastError();
$session->Logon(undef, undef, 0, 0);