Propriété ContactItem.UserProperties (Outlook)
Renvoie la collection UserProperties qui représente toutes les propriétés utilisateur de l’élément Outlook. En lecture seule.
Syntaxe
expression. UserProperties
Expression Variable qui représente un objet ContactItem .
Exemple
Cet exemple Visual Basic pour Applications (VBA) recherche une propriété personnalisée nommée LastDateContacted pour le contact « Jeff Smith » et l’affiche à l’utilisateur. Pour exécuter cet exemple, vous devez remplacer « Jeff Smith » par un nom de contact valide et créer une propriété définie par l’utilisateur appelée LastDateContacted pour le contact.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.