Автозапуск в Outlook

Private Sub my_pricedure()
ti = Now + TimeValue("00:00:05")
Excel.Application.OnTime ti, "my_procedure"
End Sub

Private Sub my_procedure()
 
ti = Now + TimeValue("00:00:05")
Excel.Application.OnTime ti, "my_procedure"
End Sub

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 my_procedure()
 
ti = Now + TimeValue("00:00:05")
Excel.Application.OnTime ti, "my_procedure"
End Sub

Public Sub my_procedure()
ti = Now + TimeValue("00:01:00")
Excel.Application.OnTime ti, Outlook.Application.my_procedure()
End Sub