0
wade25
21.09.12
✎
13:33
|
Добрый день!
Мне необходимо выбирать данные по почте за день. Таким способом очень долго, есть ли возможность вытащить как запросом, т.е. с параметрами?
// на данный момент так сделал, но это долго, т.к. в почте от 1000 писем, параметры архивации можно изменить, но не удобно, т.к. пользователей очень много. //
myNameSpace = Outlook.GetNamespace("MAPI");
myFolder = myNameSpace.GetDefaultFolder(6);
ОбщееКоличество = myFolder.Items.Count;
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Задача");
ТЗ.Колонки.Добавить("Заказчик");
ТЗ.Колонки.Добавить("Описание");
ТЗ.Колонки.Добавить("Идентефикатор");
Для Счетчик = 1 По ОбщееКоличество Цикл
Если Формат(myFolder.Items(Счетчик).CreationTime,"ДФ=dd.MM.yyyy; ДЛФ=") = Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy; ДЛФ=") Тогда
Если myFolder.Items(Счетчик).Categories <> "" Тогда
НоваяЗадача = ТЗ.Добавить();
НоваяЗадача.Задача = myFolder.Items(Счетчик).ConversationTopic;
НоваяЗадача.Заказчик = myFolder.Items(Счетчик).SenderName;
НоваяЗадача.Описание = myFolder.Items(Счетчик).Body;
НоваяЗадача.Идентефикатор = myFolder.Items(Счетчик).EntryID
КонецЕсли;
КонецЕсли;
КонецЦикла;
|
|