Помощь VBA

[Koluchiy2k]

код

Private Sub Application_NewMail()

Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer

Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
i = 0

If Inbox.Items.Count = 0 Then
Exit Sub
End If

For Each Item In Inbox.Items
If Item.UnRead = True Then
For Each Atmt In Item.Attachments
FileName = "C:\Email Attachments\" & Atmt.FileName
Atmt.SaveAsFile FileName
i = i + 1
Next Atmt
Item.UnRead = False
End If
Next Item

End Sub

Вот такая шляпа.
Поясняю...

находится в месте под названием ThisOutlookSession.
больше вообще ничего нет (тестится на новом компе, да и на старом та же тема)
при получении нового письма процедура не получает управления,
однако
если установить в процедуре ( например на For) точку останова, то процедура выполняется, иногда, а иногда нет...
Я в АутЛуке полный чайник.
Может че куда не туда запихал?
Че делать то???

Да.
Outlook 2007