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=34310786&tid=2183492]:
 0ms
get settings:
 4ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 198ms
total:  277ms
созд. / загр.: 277ms
x
x
Закрыть


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