JournalItem.LastModificationTime 属性 (Outlook)
返回指定的日期和时间的 Outlook 项目的上次修改 日期 。 此为只读属性。
语法
expression。 LastModificationTime
表达 一个代表 JournalItem 对象的变量。
备注
此属性对应于 PidTagLastModificationTime 的 MAPI 属性。
示例
此 Visual Basic for Applications 示例使用 Items.Restrict 方法来应用一个筛选器来基于项的 LastModificationTime 属性的项目,请与联系。 您可以应用类似的方法来筛选其他 Outlook 项目的 LastModificationTime 属性。
Public Sub ContactDateCheck()
Dim myNamespace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNamespace = Application.GetNamespace("MAPI")
Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items
Set myItems = myContacts.Restrict("[LastModificationTime] > '01/1/2003'")
For Each myItem In myItems
If (myItem.Class = olContact) Then
MsgBox myItem.FullName & ": " & myItem.LastModificationTime
End If
Next
End Sub
以下 Visual Basic for Applications 示例除演示在筛选条件中使用变量外与上例相同。
Public Sub ContactDateCheck2()
Dim myNamespace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItem As Object
Dim DateStart As Date
Dim DateToCheck As String
Dim myRestrictItems As Outlook.Items
Set myNameSpace = Application.GetNamespace("MAPI")
Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items
DateStart = #01/1/2003#
DateToCheck = "[LastModificationTime] >= """ & DateStart & """"
Set myRestrictItems = myContacts.Restrict(DateToCheck)
For Each myItem In myRestrictItems
If (myItem.Class = olContact) Then
MsgBox myItem.FullName & ": " & myItem.LastModificationTime
End If
Next
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。