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

ContactItem-Objekt

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.