Автоматическое сохранение вложений

20.12.2011, 11:11. **Показов** 8624. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Для автоматического сохранения вложений при приеме новых писем у меня поставлен следующий макрос:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Application_NewMail()
 
For Each myItem In GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
DDif = DateDiff("d", myItem.CreationTime, Now)
If DDif < 3 Then
If Right(myItem.SenderEmailAddress, 12) = "блаблабла.ru" Then
Set y = myItem.Attachments
i = 0
Do Until i = y.Count
i = i + 1
If y.Count > 0 Then y(i).SaveAsFile "C:Attachment" & y(i).DisplayName
Loop
 
End If
End If
Next
 
End Sub

Проблема в том, что макрос эффективно работает только, если в дефолтной папке не больше сотни писем, если там около 1000 писем, то в процессе нахождения нового письма можно сходить чайку попить
как можно проверять именно вновь пришедшие письма, а не рыскать по всей папке "Входящие"?

Спасибо.

@Wasili · 22.12.2011, 10:00

Visual Basic
1
2
3
4
5
DateStart = Format((DLookup("[data_o]", "data_o")), "dd.mm.yyyy")
 '' DateStart = "[LastModificationTime] > ''05/15/97''"
   DateToCheck$ = "[LastModificationTime] >= ''" & DateStart & "''"
   Set myContacts = myFolderContact.[bold]Restrict[/bold] (DateToCheck$)
   Set myOtpr = myFolderOtpr.Restrict(DateToCheck$)

Новые блоги и статьи Все статьи Все блоги /
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .