如何在電子郵件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