Sub SleepVB(Seconds)

' ожидание Seconds секунд

Dim Start

Start = Timer ' текущее время в секундах

Do While Timer < Start + Seconds

' обеспечивает параллельное выполнение других процессов

DoEvents

Loop

End Sub

'Application_NewMail_Rules

Sub NewMail1()

'аа = colRules.Count

SleepVB ("3")

'Rule_name1 = oRule.Name

'Выбираем список правил в outlook'e

Set colRules = Application.Session.DefaultStore.GetRules()

S = colRules.Count

'MsgBox (colRules.Count)

'Exit Sub

For i = 1 To colRules.Count 'перебор всех имеющихся правил

'Указываем в собках название нашего созданного неактивного(!) правила

Set oRule = colRules.Item(i)

'Выполняем правило

oRule.Execute

Next

End Sub

'========================================================

'http://forum.ixbt.com/topic.cgi?id=24:40134

Тупо копим в редактор Visial Basic


'by Cobalt
Option Explicit
Dim oRule As Outlook.Rule
Dim Rule_name1 As String
Dim colRules
Dim i


Sub SleepVB(Seconds)
' ожидание Seconds секунд
Dim Start
Start = Timer ' текущее время в секундах
Do While Timer < Start + Seconds
' обеспечивает параллельное выполнение других процессов
DoEvents
Loop
End Sub


Private Sub Application_NewMail()

SleepVB ("3")
'Rule_name1 = oRule.Name


'Выбираем список правил в outlook'e
Set colRules = Application.Session.DefaultStore.GetRules()
'MsgBox (colRules.Count)


'Exit Sub


For i = 1 To colRules.Count 'перебор всех имеющихся правил

'Указываем в собках название нашего созданного неактивного(!) правила
Set oRule = colRules.Item(i)
'Выполняем правило
oRule.Execute

Next
End Sub