Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Sub ЗапуститьПравило()
    Dim oNS As Outlook.NameSpace
    Dim oStore As Outlook.Store
    Dim colRules As Outlook.Rules
    Dim oRule As Outlook.Rule
    
    Set oNS = Application.GetNamespace("MAPI")
    Set oStore = oNS.DefaultStore
    Set colRules = oStore.GetRules()
    
    Set oRule = colRules.Item("МесяцГод")
    
    oRule.Execute
    
End Sub

    
    Dim oNS As Outlook.NameSpace
    Set oNS = Application.GetNamespace("MAPI")
    Dim OFolder As folder
    Set OFolder = oNS.GetDefaultFolder(OlDefaultFolders.olFolderSentMail)
    oRule.Execute folder:=OFolder