ContactItem.UserProperties-Eigenschaft (Outlook)
Gibt die UserProperties -Auflistung, die alle Benutzereigenschaften für das Outlook-Element darstellt. Schreibgeschützt.
Syntax
Ausdruck. UserProperties
Ausdruck Eine Variable, die ein ContactItem-Objekt darstellt.
Beispiel
In diesem beispiel für Visual Basic for Applications (VBA) wird eine benutzerdefinierte Eigenschaft namens LastDateContacted für den Kontakt "Jeff Smith" gesucht und dem Benutzer angezeigt. Um dieses Beispiel auszuführen, müssen Sie "Jeff Smith" durch den Namen eines gültigen Kontakts ersetzen und eine benutzerdefinierte Eigenschaft mit dem Namen LastDateContacted für den Kontakt erstellen.
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
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.