JournalItem.LastModificationTime-Eigenschaft (Outlook)
Gibt ein Datum Datum und Uhrzeit der letzten Änderung das Outlook-Element angeben. Schreibgeschützt.
Syntax
Ausdruck. LastModificationTime
Ausdruck Eine Variable, die ein JournalItem-Objekt darstellt.
Hinweise
Diese Eigenschaft entspricht der MAPI-Eigenschaft PidTagLastModificationTime.
Beispiel
Visual Basic für Applikationen-Beispiel wird die Items.Restrict -Methode zum Anwenden eines Filters Kontaktelemente basierend auf der LastModificationTime Eigenschaft verwendet. Sie können einen ähnlichen Ansatz zum Filtern nach der LastModificationTime -Eigenschaft des andere Outlook-Elemente anwenden.
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
Das folgende Beispiel für Visual Basic für Applikationen entspricht dem obigen Beispiel mit der Ausnahme, dass es die Verwendung einer Variablen im Filter zeigt.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.