如何使用 VBA 从 Outlook 状态栏中删除 DASL 过滤器文本？

Question

我正在使用工作正常的 DASL 过滤器过滤 Outlook。但是当清除过滤器时，过滤的内容会被重置，但它不会在底部显示电子邮件的数量。它显示为“已应用过滤器”。所以我需要手动去清除 DASL 过滤器的值。

我们能否在不更改我所在的现有视图的情况下通过 VBA 将 DASL 过滤器清除为默认值？

对于清除过滤器，我在发布的答案中使用相同的代码。它清除数据。但它不会清除状态栏中的文本，并且一直显示“已应用过滤器”。

Public Sub FilterView()

    Dim objView As View
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem

    Set olApp = New Outlook.Application
    On Error Resume Next
        Set olMail = olApp.ActiveInspector.currentItem
    On Error GoTo 0
    If olMail Is Nothing Then
        On Error Resume Next
            Set olMail = olApp.ActiveExplorer.Selection.Item(1)
        On Error GoTo 0
    End If
    If Not olMail Is Nothing Then   
            SName = olMail.Sender
    Else
        MsgBox "Active item is not an email or no email selected"
    End If
    
    Set objView = Application.ActiveExplorer.CurrentView
    QueryV = "urn:schemas:mailheader:sender = " & Chr(39) & SName & Chr(39)
  
    objView.Filter = QueryV
    objView.Save
End Sub

Answer 1

View.Standard 属性返回一个布尔值，用于指定视图是否为内置 Outlook 视图。因此，如果它不是标准的，您可以随时调用 View.Reset 方法，将内置 Microsoft Outlook 视图重置为其原始设置。

Sub ResetView() 
 Dim v as Outlook.View
 ' Save a reference to the current view object
 Set v = Application.ActiveExplorer.CurrentView
 ' Reset and then apply the current view 
 v.Reset 
 v.Apply 
End Sub

您也可以考虑通过设置View.Filter 属性在 Outlook 中自行设置 CurrentView，该属性返回或设置表示视图过滤器的字符串值。例如：

Private Sub FilterViewToLastWeek() 
 Dim objView As View 
 ' Obtain a View object reference to the current view.
 Set objView = Application.ActiveExplorer.CurrentView 
 ' Set a DASL filter string, using a DASL macro, to show
 ' only those items that were received last week. 
 objView.Filter = "%lastweek(""urn:schemas:httpmail:datereceived"")%" 
 
 ' Save and apply the view. 
 objView.Save 
 objView.Apply 
 
End Sub