email - 如何在电子邮件 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