Имя: Пароль:
1C
1С v8
Запрос к Outlook.
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
               
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;