ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook: как удалить встречи за период
6 сообщений из 6, страница 1 из 1
Outlook: как удалить встречи за период
    #34310786
ы
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ы
Гость
Подскажите, почему этот код удаляет не все встречи за период? Мало того, в каждый следующий проход он удаляет часть остальных.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim ou As Outlook.Application
Dim ons As Outlook.NameSpace
Dim ocl As Outlook.MAPIFolder
Dim ocis As Outlook.Items
Dim oci As Outlook.AppointmentItem

Set ou = New Outlook.Application
Set ons = ou.GetNamespace("MAPI")
Set ocl = ons.GetDefaultFolder(olFolderCalendar)
Set ocis = ocl.Items.Restrict("[start]>'" & (Date -  31 ) & "' And " & _
                              "[start]<='" & (Date +  31 ) & "'")
For Each oci In ocis
  oci.Delete
Next oci
Спасибо
...
Рейтинг: 0 / 0
06.02.2007, 22:40:26
| Ответить | Цитировать | Написать  
Outlook: как удалить встречи за период
    #34310822
Ламер Ламерович
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ламер Ламерович
Участник
Но это же стандартная проблема. Вы не удалите подобным образом членов любой коллекции.

Попробуйте так
Код: plaintext
1.
2.
3.
Dim i as Long
For i = ocis.count to  1  Step - 1 
    ocis(i).Delete
Next
Или
Код: plaintext
1.
2.
Do Until ocis.count =  0 
    ocis( 1 ).Delete
Loop

Индекс с единицы начинается?
...
Рейтинг: 0 / 0
06.02.2007, 23:16:53
| Ответить | Цитировать | Написать  
Outlook: как удалить встречи за период
    #34310837
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
апаздал....
Rendy Byrne к последнему фрагменту On error Resume Next рекомендует.

а записывает его так.

Код: plaintext
1.
2.
3.
On Error Resume Next
Do Until MyItems.Count= 0 
    MyItems.Count =  0 
Loop

его книжка вроде издавалась на русском.
в англ. написании называется так:
Building Applications With Microsoft Outlook
Version 2002
вышда в 2001м в Microsoft Press
(На русском должна была быть в конце 2003го-2004м )

Кроме того, на русском точно издавалась книжка Сью Мошер
ее сайты:
http://www.slipstick.com/
ее книжки сайт
http://www.outlookcode.com/


если ты не найдешь на этих сайтах ответов на свои вопросы, то, вообще маловероятно, что они
опубликованы где-то в открытом доступе.
...
Рейтинг: 0 / 0
06.02.2007, 23:28:33
| Ответить | Цитировать | Написать  
Outlook: как удалить встречи за период
    #34310839
ы
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ы
Гость
э... Даже не знаю, что и сказать...

Последний способ тоже не работает, кстати, а первый - работает хорошо и стабильно...

Я в растерянности.. Спасибо.
...
Рейтинг: 0 / 0
06.02.2007, 23:29:16
| Ответить | Цитировать | Написать  
Outlook: как удалить встречи за период
    #34310841
ы
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ы
Гость
Плин. Совсем редко стал с акцессом заниматься, раз такие глупости позабывал :(
...
Рейтинг: 0 / 0
06.02.2007, 23:30:07
| Ответить | Цитировать | Написать  
Outlook: как удалить встречи за период
    #34310843
Бабай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бабай
Участник
блин...

а записывает его так.

Код: plaintext
1.
2.
3.
On Error Resume Next
Do Until MyItems.Count= 0 
    MyItems.Remove  1 
Loop
...
Рейтинг: 0 / 0
06.02.2007, 23:30:25
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook: как удалить встречи за период
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34310837&tid=2183492]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 205ms
total:  344ms
созд. / загр.: 344ms
x
x
Закрыть


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