Outlook VBA教程:IsUserProperty属性

返回 Boolean 类型值,指出项目属性是否是用户创建的自定义属性。只读。

expression.IsUserProperty

expression  必选。该表达式返回“应用于”列表中的一个对象。

说明

该集合是从 0 开始编号的。也就是说,集合中的第一个对象通过索引值 0 来访问。

VBA示例

以下示例显示所有由用户创建的属性的名称。子例程 DisplayUserProps 接受一个ItemProperties集合,并在其中进行搜索,显示所有 IsUserProperty 值为 True 的ItemProperty对象的名称。


Sub ItemProperty()
'Creates a new mail item and access it's properties
    Dim olApp As Outlook.Application
    Dim objMail As MailItem
    Dim objitems As ItemProperties
    Set olApp = Outlook.Application
    'Create the mail item
    Set objMail = olApp.CreateItem(olMailItem)
    'Create a reference to the item properties collection
    Set objitems = objMail.ItemProperties
    'Create a reference to the item property page
    Call DisplayUserProps(objitems)
End Sub
Sub DisplayUserProps(ByVal objitems As ItemProperties)
'Displays the names of all user-created item properties in the collection
    For i = 0 To objitems.Count - 1
        'Display name of property if it was created by the user
        If objitems.Item(i).IsUserProperty = True Then
           MsgBox "The property " & objitems(i).Name & " was created by the user."
        End If
    Next i
End Sub

上页:Outlook VBA教程:IsSynchronous属性 下页:Outlook VBA教程:IsVisible属性

Outlook VBA教程:IsUserProperty属性:相关链接

Outlook VBA教程:IsVisible属性 Outlook VBA教程:Item属性
Outlook VBA教程:ItemProperties属性 Outlook VBA教程:Items属性
Outlook VBA教程:JobTitle属性 Outlook VBA教程:Journal属性
Outlook VBA教程:Language属性 Outlook VBA教程:LanguageSettings属性
Outlook VBA教程:LastFirstAndSuffix属性 Outlook VBA教程:LastFirstNoSpace属性
Outlook VBA教程:LastFirstNoSpaceAndSuffix属性 Outlook VBA教程:LastFirstNoSpaceCompany属性
Outlook VBA教程:LastFirstSpaceOnly属性 Outlook VBA教程:LastFirstSpaceOnlyCompany属性
Outlook VBA教程:LastModificationTime属性 Outlook VBA教程:LastName属性
Outlook VBA教程:LastNameAndFirstName属性 Outlook VBA教程:Left属性
Outlook VBA教程:Links属性 Outlook VBA教程:Location属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号