Outlook filter table : Outlook Table « Outlook « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Outlook » Outlook Table 
Outlook filter table
 
Public Sub PlayWithFilteredTable()
    Dim myTable As Outlook.Table
    Dim colColumns As Outlook.Columns
    Dim oColumn As Outlook.Column
    Dim oFolder As Outlook.Folder
    Dim myMailItem As Outlook.MailItem
    Dim oRow As Outlook.Row
    Dim oProp As Outlook.UserProperty
    Dim aryValues() As Variant
    Dim strEntryID As String
    Dim strFilter As String

    Set oFolder = Application.Session.GetDefaultFolder(olFolderSentMail)

    strFilter = "[Importance] = 2"
    
    Set myTable = oFolder.GetTable(strFilter)
    Set colColumns = myTable.Columns
    colColumns.RemoveAll
    Set oColumn = colColumns.Add("EntryID")
    Set oColumn = colColumns.Add("Importance")
    
    Do While myTable.EndOfTable = False
        Set oRow = myTable.GetNextRow
        aryValues = oRow.GetValues
        If aryValues(1= OlImportance.olImportanceHigh Then
            strEntryID = aryValues(0)
            Set myMailItem = Application.Session.GetItemFromID(strEntryID)
            Set oProp = myMailItem.UserProperties.Add("VeryImportant", olYesNo)
            oProp.Value = True
            myMailItem.Save
        End If
    Loop
End Sub

 
Related examples in the same category
1.Outlook table
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.