Current Selected Item in Outlook

[ken gray]

ok, here's what I did and got it to work, however, I can only narrow it down to one of 3 things.
[list=]I compacted my default "ost" data file in the account settings
I closed all my external "pst" files
opened 1st pst file and tried ->success
opened 2nd pst file and tried ->success
opened 3rd pst file and tried ->success
[/list]

it worked each time when I opened up the pst's . unfortunately I didn't try it after doing a compact so I don't know if it was the archive file steps or compact but now it works!!!

thanks.




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.ExpiryTime=z
msg.Move(fdest)