Propriedade SharingItem.LastModificationTime (Outlook)
Retorna uma Data que indica a data e hora em que o SharingItem foi modificado pela última vez. Somente leitura.
Sintaxe
expression. LastModificationTime
Expressão Uma variável que representa um objeto SharingItem .
Comentários
Essa propriedade corresponde à propriedade PidTagLastModificationTime de MAPI.
Exemplo
Este exemplo Visual Basic for Applications usa o método Restrict para aplicar um filtro aos itens com base na propriedade LastModificationTime do item de contato. Você pode aplicar uma abordagem semelhante para filtrar na propriedade LastModificationTime dos outros itens do Outlook.
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
O exemplo do Visual Basic for Applications a seguir é o mesmo do exemplo acima, exceto que ele demostra o uso de uma variável no filtro.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.