Current Selected Item in Outlook

[ken gray]

while looking at an email in the preview pane in Outlook, I'd like to be able to set the "Expires After" time without opening it.

I can't seem to find how to get ahold of the current selected item with QM. Everything seems to be based on triggers but there isn't a trigger, I just want it to act on the item I'm looking at.

here's what's failed so far.

Macro Macro

Code:

Copy      Help

function IDispatch'item ;;Outlook._Items'items
out
Outlook.Application a._getactive
Outlook.NameSpace ns=a.Session
Outlook.MailItem ci=item
ci.UnRead

anyone have any ideas?