Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook: как удалить встречи за период / 6 сообщений из 6, страница 1 из 1
06.02.2007, 22:40:26
    #34310786
ы
ы
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook: как удалить встречи за период
Подскажите, почему этот код удаляет не все встречи за период? Мало того, в каждый следующий проход он удаляет часть остальных.
Код: 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, 23:16:53
    #34310822
Ламер Ламерович
Ламер Ламерович
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook: как удалить встречи за период
Но это же стандартная проблема. Вы не удалите подобным образом членов любой коллекции.

Попробуйте так
Код: 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:28:33
    #34310837
Бабай
Бабай
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook: как удалить встречи за период
апаздал....
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:29:16
    #34310839
ы
ы
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook: как удалить встречи за период
э... Даже не знаю, что и сказать...

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

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

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

Код: plaintext
1.
2.
3.
On Error Resume Next
Do Until MyItems.Count= 0 
    MyItems.Remove  1 
Loop
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook: как удалить встречи за период / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 423ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183492]:
 0ms
get settings:
 12ms
get forum list:
 23ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 249ms
total:  423ms
x
x
Закрыть


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