| Вопрос: Не передается управление | Добавлено: 24.12.08 16:25 |
Автор вопроса:  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) точку останова, то процедура выполняется, иногда, а иногда нет... Я в АутЛуке полный чайник. Может че куда не туда запихал? Че делать то??? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  koluchiy2k Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 24.12.08 16:29 |
|
Да.
Outlook 2007 |
||
Страница: 1 |