Автоматическое форматирование Outlook

Sub ChangeCurrentView()
    Dim myOlExp As Outlook.Explorer
    Dim myView, clViews As Views
 
    Set myOlExp = application.ActiveExplorer
    If myOlExp.CurrentFolder = "Входящие" Then
        myOlExp.CurrentView = "Сообщения"
    End If
Set clViews = application.ActiveExplorer.CurrentFolder.Views
    clViews.Remove ("Actions")
Set myView = clViews.Add("Actions", Outlook.OlViewType.olTableView)
    myView.Save
    myView.Apply
End Sub

Sub ChangeCurrentView()
    Dim myOlExp As Outlook.Explorer
    Dim myView, clViews As Views
    Set myOlExp = Application.ActiveExplorer
    If myOlExp.CurrentFolder = "Входящие" Then
        myOlExp.CurrentView = "Сообщения"
    End If
Set clViews = Application.ActiveExplorer.CurrentFolder.Views
    clViews.Remove ("Actions")
Set myView = clViews.Add("Actions", Outlook.OlViewType.olTableView)
    myView.Save
    myView.Apply
    
    
Dim olkView As Outlook.View, _
    olkFont As Outlook.ViewFont, _
    olkAFR As Outlook.AutoFormatRule
    Dim mtime As Date
    Set olkView = Application.ActiveExplorer.CurrentView
    Set olkAFR = olkView.AutoFormatRules.Add("просрочка")
    With olkAFR
    mtime = Now()
        .Filter = Chr(34) & "urn:schemas:httpmail:datereceived" & Chr(34) & "<= '" & mtime & "'"
        Set olkFont = .Font
        With olkFont
            .Name = "Arial"
            .Color = 5
        End With
        .Enabled = True
    End With
    olkView.Save
    olkView.Apply
    Set olkView = Nothing
    Set olkFont = Nothing
    Set olkAFR = Nothing
End Sub

Sub Процедура2()
Dim Дата1 As Date, Дата2 As Date
Дата1 = Now()
Debug.Print Дата1
Дата2 = DateAdd(Interval:="n", Number:=30, Date:=Now())
Debug.Print Дата2
End Sub

Dim myView As Views, clViews As Views

Sub ChangeCurrentView()
    Dim myOlExp As Outlook.Explorer
    Dim myView, _
    clViews As Views
    Set myOlExp = Application.ActiveExplorer
    If myOlExp.CurrentFolder = "Входящие" Then
        myOlExp.CurrentView = "Сообщения"
    End If
Set clViews = Application.ActiveExplorer.CurrentFolder.Views
    clViews.Remove ("Actions")
Set myView = clViews.Add("Actions", Outlook.OlViewType.olTableView)
    myView.Save
    myView.Apply
    
    
Dim olkView As Outlook.View, _
    olkFont As Outlook.ViewFont, _
    olkAFR As Outlook.AutoFormatRule
    Dim mtime As Date
    Set olkView = Application.ActiveExplorer.CurrentView
    Set olkAFR = olkView.AutoFormatRules.Add("просрочка")
    With olkAFR
    mtime = DateAdd(Interval:="n", Number:=-30, Date:=Now())
    
        .Filter = Chr(34) & "urn:schemas:httpmail:datereceived" & Chr(34) & ">= '" & mtime & "'"
        Set olkFont = .Font
        With olkFont
            .Name = "Arial"
            .Color = 5
        End With
        .Enabled = True
    End With
    olkView.Save
    olkView.Apply
    Set olkView = Nothing
    Set olkFont = Nothing
    Set olkAFR = Nothing
End Sub

debug.print mtime

Sub ChangeCurrentView()
    Dim myOlExp As Outlook.Explorer
    Dim myView As View
    Dim clViews As Views
    Set myOlExp = Application.ActiveExplorer
    If myOlExp.CurrentFolder = "Âõîäÿùèå" Then
        myOlExp.CurrentView = "Ñîîáùåíèÿ"
    End If
Set clViews = Application.ActiveExplorer.CurrentFolder.Views
    clViews.Remove ("Actions")
Set myView = clViews.Add("Actions", Outlook.OlViewType.olTableView)
    myView.Save
    myView.Apply
    
    
Dim olkView As Outlook.View, _
    olkFont As Outlook.ViewFont, _
    olkAFR As Outlook.AutoFormatRule
    Dim mtime As Date
    Dim mtime1 As String
    Set olkView = Application.ActiveExplorer.CurrentView
    Set olkAFR = olkView.AutoFormatRules.Add("ïðîñðî÷êà")
    With olkAFR
    mtime = DateAdd(Interval:="n", Number:=-330, Date:=Now())
        .Filter = Chr(34) & "urn:schemas:httpmail:datereceived" & Chr(34) & "<= '" & mtime & "'"
        Debug.Print olkAFR.Filter
        Set olkFont = .Font
        With olkFont
            .Name = "Arial"
            .Color = 5
        End With
        .Enabled = True
    End With
    olkView.Save
    olkView.Apply
    Set olkView = Nothing
    Set olkFont = Nothing
    Set olkAFR = Nothing
End Sub

Private Sub Application_Startup()
    Call ChangeCurrentView
End Sub