$xlOutlook = New-Object -ComObject Outlook.Application;
$openMail = $xlOutlook.Inspectors[1].CurrentItem;
write-host $openMail.Subject;
$xlOutlook = $null;$olMailItem = $null;
[GC]::Collect();
$xlOutlook = New-Object -ComObject Outlook.Application;
$openMail = $xlOutlook.Inspectors[1].CurrentItem;
write-host $openMail.Subject;
$xlOutlook = $null;$olMailItem = $null;
[GC]::Collect();