Outlook VBA教程:Find方法

应用于 Items对象的 Find方法。

查找并返回项目。

expression.Find(Filter)

expression   必选。该表达式返回Items对象。

Filter  必选,String 类型。该搜索所使用的筛选条件。

应用于 UserProperties对象的 Find方法。

查找并返回请求的属性名称对应的UserProperty对象(如果存在)。

expression.Find(Name, Custom)

expression  必选。该表达式返回上述对象之一。

Name  必选,String 类型。请求的属性的名称。

Custom  可选,Variant 类型。定义搜索参数的自定义字符串。

VBA示例

本 Visual Basic for Applications 示例查找联系人的名为“LastDateContacted”的自定义属性。


Sub FindContact()
'Finds and displays last contacted info for a contact
    Dim olApp As Outlook.Application
    Dim objContact As ContactItem
    Dim objContacts As MAPIFolder
    Dim objNameSpace As NameSpace
    Dim objProperty As UserProperty
    Set olApp = CreateObject("Outlook.Application")
    Set objNameSpace = olApp.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 "Contact not found."
    End If
End Sub

上页:Outlook VBA教程:Execute方法 下页:Outlook VBA教程:FindNext方法

Outlook VBA教程:Find方法:相关链接

Outlook VBA教程:FindNext方法 Outlook VBA教程:Forward方法
Outlook VBA教程:ForwardAsVcal方法 Outlook VBA教程:ForwardAsVcard方法
Outlook VBA教程:FreeBusy方法 Outlook VBA教程:GetAssociatedAppointment方法
Outlook VBA教程:GetAssociatedTask方法 Outlook VBA教程:GetDefaultFolder方法
Outlook VBA教程:GetExplorer方法 Outlook VBA教程:GetFirst方法
Outlook VBA教程:GetFolderFromID方法 Outlook VBA教程:GetFreeBusy方法
Outlook VBA教程:GetItemFromID方法 Outlook VBA教程:GetLast方法
Outlook VBA教程:GetMember方法 Outlook VBA教程:GetNameSpace方法
Outlook VBA教程:GetNext方法 Outlook VBA教程:GetOccurrence方法
Outlook VBA教程:GetPageInfo方法 Outlook VBA教程:GetPrevious方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号