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

1. VBA / Excel / Access / Word
2. Outlook
3. 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