Outlook 2010を使用していて、[プロパティ]ダイアログの[配信オプション]セクションにある[終了後]プロパティを設定したいと思います。
'ExpiryTime'と'RetentionExpirationDate'は、実際にはその日付を設定していません(設定されている場合)。
これが私が今それを機能させる方法です。_sは「2013年7月29日」と表示され、zは「2013年8月5日」と表示されます。これにより、期限切れ時間は「2013年8月5日12:00AM」として表示されます。
typelib Outlook {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 = 0
msg.ExpiryTime=z