Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Достать письма из Outlook по определённой дате без перебора / 3 сообщений из 3, страница 1 из 1
14.09.2010, 01:05
    #36844549
Rojohn
Rojohn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Достать письма из Outlook по определённой дате без перебора
Доброго утра всем!
Есть задачка: никак не могу достать почту Outlook кодом VBA по определённой дате без перебора в цикле всех Items папки. Вроде как можно поставить фильтр и я уже почти нашёл решение, но с синтаксисом не лады. Вот так пока получилось, но не находит ничего:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
For Each Fldr In myFolder.Folders 'Цикл по вложенным папкам (Входящие, Исходящие)
      If Fldr.DefaultItemType = olMailItem Then
        Filter = "[ReceivedTime] = #" & Format(dat, "MM\/dd\/yyyy") & "#"
        If Fldr.Items.Count <>  0  Then
          Set myOLItems = Fldr.Items.Restrict(Filter)
          Debug.Print myOLItems.Count

          For Each myItem In myOLItems
            With myItem 'Новое письмо
               ...


Поправьте, будьте так любезны - очень нужно!
Спасибо заранее!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.09.2010, 02:49
    #36844579
Rojohn
Rojohn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Достать письма из Outlook по определённой дате без перебора
Вот строчка более-менее правильная:

Код: plaintext
Filter = "[ReceivedTime] = '" & Format(dat, "yyyy-mm-dd") & "'"

Но чтобы выполнялось равенство, надо убрать время из [ReceivedTime] и привести его к виду "yyyy-mm-dd". Но Format не ставится к [ReceivedTime] ! Может как-то ещё можно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.09.2010, 03:58
    #36844594
Rojohn
Rojohn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Достать письма из Outlook по определённой дате без перебора
Спасибо за внимание, но я уже нашёл решение:

Код: plaintext
Filter = "([ReceivedTime] > '" & Format(DateAdd("d", - 1 , dat), "dd.MM.yyyy") & "') AND ([ReceivedTime] < '" & Format(DateAdd("d",  1 , dat), "dd.MM.yyyy") & "')"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Достать письма из Outlook по определённой дате без перебора / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 490ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177683]:
 0ms
get settings:
 9ms
get forum list:
 24ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 183ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 211ms
total:  490ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]