Current Selected Item in Outlook

[ken gray]

dang...almost there.
I'm trying to now mark it as read but it doesn't seem to be doing the Unread="False" thing. I've tried 'save' and doing it in differ order but nothing works.

anyone marked something as read in this sort of context?

PS: I looked up 'Update' wasn't available.

Macro Expire Message-1 week
Trigger f //FF_Keyboard2     

Code:

Copy      Help

typelib Outlook2 {00062FFF-0000-0000-C000-000000000046} 9.4
str foldername="Temp"
Outlook.Application app._getactive
Outlook.MailItem msg=app.ActiveExplorer.Selection.Item(1); err out "no selection"; ret
Outlook.MAPIFolder froot=app.GetNamespace("MAPI").Folders.Item(1)
Outlook.MAPIFolder fdest=froot.Folders.Item(foldername)

_s.timeformat("{D}")
DATE z=_s
z=z+7
msg.UnRead = "False"
msg.Save
msg.ExpiryTime=z
;msg.Move(fdest)