MailItem 首次修改时间
MailItem first modification time
我想捕获电子邮件在创建后首次修改的日期和时间(例如,向其添加类别标签)。是否可以将 FirstModificationTime
属性 添加到 MailItem object
- 类似于现有的 LastModificationTime
?怎么做?任何帮助将不胜感激。
那就是 MailItem.CreationTime
。
您可以添加一个用户 属性。
使用 FieldChooser |用户定义的字段,您可以手动创建用户定义的字段 FirstModificationTime 或者一旦您 运行 您可以将自动创建的字段添加到文件夹视图。
Sub UserProp_FirstModificationTime()
Dim myItem As mailitem
Dim myUserProperty As UserProperty
Set myItem = ActiveExplorer.Selection.Item(1)
Set myUserProperty = myItem.UserProperties.Add("FirstModificationTime", olText)
' If you use a trigger event for this it will update once only.
If myUserProperty.Value = "" Then
myUserProperty.Value = Now
myItem.SAVE
End If
End Sub
我想捕获电子邮件在创建后首次修改的日期和时间(例如,向其添加类别标签)。是否可以将 FirstModificationTime
属性 添加到 MailItem object
- 类似于现有的 LastModificationTime
?怎么做?任何帮助将不胜感激。
那就是 MailItem.CreationTime
。
您可以添加一个用户 属性。
使用 FieldChooser |用户定义的字段,您可以手动创建用户定义的字段 FirstModificationTime 或者一旦您 运行 您可以将自动创建的字段添加到文件夹视图。
Sub UserProp_FirstModificationTime()
Dim myItem As mailitem
Dim myUserProperty As UserProperty
Set myItem = ActiveExplorer.Selection.Item(1)
Set myUserProperty = myItem.UserProperties.Add("FirstModificationTime", olText)
' If you use a trigger event for this it will update once only.
If myUserProperty.Value = "" Then
myUserProperty.Value = Now
myItem.SAVE
End If
End Sub