Propriedade ContactItem.UserProperties (Outlook)
Retorna a coleção UserProperties que representa todas as propriedades de usuário para o item do Outlook. Somente leitura.
Sintaxe
expression. UserProperties
Expressão Uma variável que representa um objeto ContactItem .
Exemplo
Este exemplo de Visual Basic for Applications (VBA) encontra uma propriedade personalizada nomeada LastDateContacted para o contato 'Jeff Smith' e exibe-a ao usuário. Para executar o exemplo, é necessário substituir 'Jeff Smith' por um nome de contato válido e criar uma propriedade definida pelo usuário chamada LastDateContacted para o contato.
Sub FindContact()
'Finds and displays last contacted info for a contact
Dim objContact As Outlook.ContactItem
Dim objContacts As Outlook.Folder
Dim objNameSpace As Outlook.NameSpace
Dim objProperty As Outlook.UserProperty
Set objNameSpace = Application.GetNamespace("MAPI")
Set objContacts = objNameSpace.GetDefaultFolder(olFolderContacts)
Set objContact = objContacts.Items.Find( _
"[FileAs] = ""Smith, Jeff"" and [FirstName] = ""Jeff""")
If Not TypeName(objContact) = "Nothing" Then
Set objProperty = _
objContact.UserProperties.Find("LastDateContacted")
If TypeName(objProperty) <> "Nothing" Then
MsgBox "Last Date Contacted: " & objProperty.Value
End If
Else
MsgBox "The contact was not found."
End If
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.