Outlook) (ContactItem.LastModificationTime 屬性
會傳回指定 Outlook 項目的上次修改日期和時間的 Date。 唯讀。
語法
expression。 LastModificationTime
表達 代表 ContactItem 物件的 變數。
註解
這個屬性會對應至 MAPI 屬性 PidTagLastModificationTime。
範例
這個 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 支援與意見反應。