如何在电子邮件outlook 2010上设置“过期后”日期

Question

我正在使用Outlook 2010，并希望在“属性”对话框的“投放选项”部分中找到“过期后”属性。

事实证明，'ExpiryTime'和'RetentionExpirationDate'实际上不再设置该日期（如果有的话）。

Answer 1

以下是我现在的工作方式。 _s显示为'7/29/2013'，z显示为'8/5/2013'。这使得过期时间显示为'8/5/2013 12:00 AM'。

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