0
AlexKulikov
23.08.16
✎
14:48
|
Добрый день, уважаемые форумчане. Очень нужна Ваша помощь, по указанному вопросу.
Данные о конфигурации: Бухгалтерия предприятия, редакция 2.0 (2.0.65.37);
Платформа: 1С:Предприятие 8.3 (8.3.7.1917).
Суть вопроса: Есть обработка, которая лезет на почтовый ящик( в данном случае мой),
получает письма, обрабатывает их, а затем должна удалить выбранные письма с почтового
ящика. Но не удаляет. При этом, при запуске обработки в следующий раз, эти сообщения
в выборку не попадут, но все равно будут отображаться в моем почтовом ящике.
Очень надеюсь на Вашу помощь, с уважением Алексей.
Код:
Профиль = Новый ИнтернетПочтовыйПрофиль;
УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;
Профиль.АдресСервераSMTP = УчетнаяЗапись.СерверИсходящейПочтыSMTP;
Профиль.АдресСервераPOP3 = УчетнаяЗапись.СерверВходящейПочтыPOP3;
Профиль.ПортPOP3 = УчетнаяЗапись.ПортPOP3;
Профиль.ПортSMTP = УчетнаяЗапись.ПортSMTP;
Профиль.ИспользоватьSSLPOP3 = УчетнаяЗапись.ИспользоватьЗащищенноеСоединениеДляВходящейПочты;
Профиль.ИспользоватьSSLSMTP = УчетнаяЗапись.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты;
Профиль.Пользователь = УчетнаяЗапись.Пользователь;
Профиль.Пароль = УчетнаяЗапись.Пароль;
Профиль.ПользовательSMTP = УчетнаяЗапись.ПользовательSMTP;
Профиль.ПарольSMTP = УчетнаяЗапись.ПарольSMTP;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Подключенено");
Исключение
Сообщить("Не удалось подключиться к серверу");
Сообщить(ОписаниеОшибки());
КонецПопытки;
СообщенияНаУдаление = Новый Массив;
СообщенияНаУдаление.Очистить();
ВсеСообщения = Почта.Выбрать(Ложь);
Для Каждого Элемент Из ВсеСообщения Цикл
СообщенияНаУдаление.Добавить(Элемент);
КонецЦикла;
Если СообщенияНаУдаление.Количество() > 0 Тогда
Почта.УдалитьСообщения(СообщенияНаУдаление);
КонецЕсли;
Почта.Отключиться();
|
|