Функция ПолучитьНовыеПисьма() Экспорт

	Почта = Новый ИнтернетПочта;

	ИспользоватьIMAP=Истина; ПочтовыйЯщик = "";

	Профиль = ПолучитьПрофиль();

	Попытка

		Если ИспользоватьIMAP Тогда

			Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP);

			Если ПочтовыйЯщик = "" Тогда

				ПочтовыйЯщик = "INBOX";

			КонецЕсли;

			Почта.ТекущийПочтовыйЯщик = ПочтовыйЯщик;

		Иначе;

			Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3);

		КонецЕсли;

	Исключение

		Сообщить(НСтр("ru = 'Ошибка при подключении к почтовому серверу. Проверьте настройки.'"));

		Сообщить(ОписаниеОшибки());

		Возврат 0;

	КонецПопытки;

	

	ЗагруженныеПисьма = ПолучитьИдентификаторыЗагруженныхПисем();

	ИдентификаторыНовыхПисем = Почта.ПолучитьИдентификаторы(ЗагруженныеПисьма);

	Если ИдентификаторыНовыхПисем.Количество() = 0 Тогда

		//Новых нет 

	Иначе

		//Получаем новые письма	

		Письма = Почта.Выбрать(Ложь, ИдентификаторыНовыхПисем,Истина);

		Для каждого Письмо Из Письма Цикл 

			Если Найти(Письмо.Тема,"siteabc.ru")>0 Тогда //Если это наше письмо то грузим его

				ПисьмоОбъект = Справочники.ВходящиеПисьма.СоздатьЭлемент();

				ПисьмоОбъект.Идентификатор = Письмо.Идентификатор[0];

				ПисьмоОбъект.Наименование = Письмо.Тема;

				ПисьмоОбъект.Дата = Письмо.ДатаОтправления;

				ПисьмоОбъект.Отправитель = Письмо.Отправитель;		

				Если ИспользоватьIMAP Тогда

					ПисьмоОбъект.ПочтовыйЯщик = "IMAP/" + ПочтовыйЯщик;

				Иначе

					ПисьмоОбъект.ПочтовыйЯщик = "POP3";

				КонецЕсли;

				Для каждого Элемент Из Письмо.Тексты Цикл

					Если Элемент.ТипТекста = ТипТекстаПочтовогоСообщения.HTML Тогда

						ПисьмоОбъект.ВидСодержимого = "HTML";

						Текст = Элемент.Текст;

						Если Найти(Текст, "<HTML>") = 0 Тогда

							Текст = "<HTML><BODY>" + Текст + "</BODY></HTML>";

						КонецЕсли;

						//Вложения = Новый Массив;

						//// обрабатываем вложения, что бы правильно сформировать HTML

						//Для каждого Вложение Из Письмо.Вложения Цикл

						//	Ид = "cid:" + Вложение.Идентификатор;

						//	Если Найти(Текст, Ид) <> 0 Тогда

						//		Вложения.Добавить(Вложение);

						//	КонецЕсли;

						//КонецЦикла;

						Прервать;

					ИначеЕсли Элемент.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст Тогда

						ПисьмоОбъект.ВидСодержимого ="Текст";

						Текст = Элемент.Текст;

					КонецЕсли;

				КонецЦикла;				

				

				ПисьмоОбъект.Текст = Текст;

				ПисьмоОбъект.Записать();

			КонецЕсли;

		КонецЦикла;

	КонецЕсли;

	Почта.Отключиться();



Функция ПолучитьПрофиль(ИмяОтправителя = "", ИспользоватьIMAP = Ложь) Экспорт

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;

	Профиль.POP3ПередSMTP=Ложь;

	Профиль.АдресСервераIMAP = "imap.mail.ru";

	Профиль.ПортIMAP = 993;

	Профиль.ИспользоватьSSLIMAP = Истина;

	Профиль.ПользовательIMAP ="siteabcz@mail.ru";

	Профиль.ПарольIMAP = "9Ljkuf";

	Профиль.ТолькоЗащищеннаяАутентификацияIMAP = Ложь;

	Возврат Профиль;

КонецФункции





Функция ПолучитьИдентификаторыЗагруженныхПисем() Экспорт

	Идентификаторы = Новый Массив();

	Запрос = Новый Запрос;

	Запрос.Текст = "ВЫБРАТЬ Идентификатор ИЗ Справочник.ВходящиеПисьма";

	Выборка = Запрос.Выполнить().Выбрать();

	Пока Выборка.Следующий() Цикл

		Идентификаторы.Добавить(Выборка.Идентификатор);

	КонецЦикла;

	Возврат Идентификаторы;

КонецФункции



/// ЕЩЕ примеры настройки профиля

Функция ПолучитьПрофиль(ИмяОтправителя = "", ИспользоватьIMAP = Ложь) Экспорт

	//Профиль = Новый ИнтернетПочтовыйПрофиль; 	

	//Профиль.АдресСервераSMTP = Выборка.АдресSMTPСервера;

	//Профиль.ПортSMTP = Выборка.ПортSMTP;

	//Профиль.ИспользоватьSSLSMTP = Выборка.SSLSMTP;

	//Профиль.ПарольSMTP = Выборка.ПарольSMTP;

	//Профиль.ПользовательSMTP = Выборка.ПользовательSMTP;

	//Профиль.ТолькоЗащищеннаяАутентификацияSMTP  = Ложь;    

	//

	//Профиль.АдресСервераIMAP = Выборка.АдресIMAPСервера;

	//Профиль.ПортIMAP = Выборка.ПортIMAP;

	//Профиль.ИспользоватьSSLIMAP = Выборка.SSLIMAP;

	//Профиль.ПользовательIMAP = Выборка.ПользовательIMAP;

	//Профиль.ПарольIMAP = Выборка.ПарольIMAP;

	//Профиль.ТолькоЗащищеннаяАутентификацияIMAP  = Ложь;	

	//

	//Профиль.АдресСервераPOP3 = Выборка.АдресPOP3Сервера;

	//Профиль.ПортPOP3 = Выборка.ПортPOP3;

	//Профиль.ИспользоватьSSLPOP3 = Выборка.SSLPOP3;

	//Профиль.Пароль = Выборка.ПарольPOP3;

	//Профиль.Пользователь = Выборка.ПользовательPOP3;

	//Профиль.ТолькоЗащищеннаяАутентификацияPOP3  = Ложь;

	//

	//Профиль.ВремяОжидания = Выборка.ТаймаутИнтернетПочты;

	//

	//ИмяОтправителя = Выборка.ИмяОтправителяПочтовогоСообщения;

	//ИспользоватьIMAP = Выборка.ИспользоватьIMAP;

	//

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	//Профиль.АдресСервераSMTP = "smtp.mail.ru";

	//Профиль.ПортSMTP = 465;

	//Профиль.ИспользоватьSSLSMTP = Истина;

	//Профиль.ПарольSMTP ="9LEY";

	//Профиль.ПользовательSMTP = "siteabcz@mail.ru";

	//Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина; 

	//Профиль.Пользователь = "siteabcz@mail.ru";

	//Профиль.Пароль = "siteabcz";

	//Профиль.АдресСервераPOP3 = "pop.mail.ru";

	//Профиль.ПортPOP3 = 995;

	//Профиль.ИспользоватьSSLPOP3 = Истина;

	Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;

	Профиль.POP3ПередSMTP=Ложь;

	Профиль.АдресСервераIMAP = "imap.mail.ru";

	Профиль.ПортIMAP = 993;

	Профиль.ИспользоватьSSLIMAP = Истина;

	Профиль.ПользовательIMAP ="siteabcz@mail.ru";

	Профиль.ПарольIMAP = "siteabcz";

	Профиль.ТолькоЗащищеннаяАутентификацияIMAP = Ложь;

	Возврат Профиль;

КонецФункции







//ОБЩИЙ ПРИМЕР ОТПРАВКИ и ПОЛУЧЕНИЯ

Функция ОтправитьПисьмо(EmailОтправителя, ПарольОтправителя, 

						Порт, АдресСервера, EmailПолучателя, 

						ИмяПолучателя, ТекстСообщения, 

						ЗаголовокСообщения, МассивФайловыхПутей)

						

	//ПОЧТОВЫЙ ПРОФИЛЬ

	

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	Профиль.ИспользоватьSSLSMTP = Истина;

	Профиль.АдресСервераSMTP = АдресСервера; 

	Профиль.ПортSMTP = Порт;

	Профиль.Пользователь = EmailОтправителя;

	Профиль.Пароль = ПарольОтправителя;

	Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

	Профиль.ПарольSMTP = ПарольОтправителя;

	Профиль.ПользовательSMTP = EmailОтправителя; 

   

	//ПОЧТОВОЕ СООБЩЕНИЕ

	

	Сообщение = Новый ИнтернетПочтовоеСообщение;

	Сообщение.Отправитель = EmailОтправителя;

	Сообщение.Тема = ЗаголовокСообщения;

	Сообщение.Тексты.Добавить(ТекстСообщения, ТипТекстаПочтовогоСообщения.HTML);

	Сообщение.Организация = "The company";		

	Адрес = Сообщение.Получатели.Добавить(EmailПолучателя);

	Адрес.ОтображаемоеИмя = ИмяПолучателя;

	

	Для каждого ПутьКФайлу Из МассивФайловыхПутей Цикл

		Сообщение.Вложения.Добавить(ПутьКФайлу);

	КонецЦикла; 

	

	// ПОЧТОВЫЙ СЕРВЕР

	

	Почта = Новый ИнтернетПочта();

	

	//Подключение к серверу

	Попытка

		Почта.Подключиться(Профиль);

	Исключение

		Сообщить("Ошибка при подключении к серверу: " + ОписаниеОшибки());

		Возврат Ложь;

	КонецПопытки;

	

	//Отправка письма

	Попытка

		Почта.Послать(Сообщение);

	Исключение

		Почта.Отключиться();

		Сообщить("Ошибка при отправке письма: " + ОписаниеОшибки());

		Возврат Ложь;

	КонецПопытки;

	

	Почта.Отключиться();

	Возврат Истина;

	

КонецФункции 



Функция ПолучитьПисьма()



	//ПОЧТОВЫЙ ПРОФИЛЬ	

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	Профиль.Пользователь = "xxx@xxxx.xx";

	Профиль.Пароль = "xxxxxx";

	Профиль.АдресСервераPOP3 = "pop3.mail.ru";

	ПРофиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;

	МассивПисем = Новый массив();

	

	//ПОЛУЧЕНИЕ ПИСЕМ	

	Попытка

		Почта = Новый ИнтернетПочта;

		Почта.Подключиться(Профиль);

		МассивПисем = Почта.Выбрать(Ложь);

	Исключение

		Сообщить("Ошибка получения почты " + ОписаниеОшибки());

	КонецПопытки;

	

	Возврат МассивПисем;

КонецФункции 

   

 // Распаковывает файл архива ZIP в указанный каталог; Извлекает все файлы архива

//

// Параметры:

//  ПолноеИмяФайлаАрхива  - Строка - имя файла архива, который необходимо распаковать

//  ПутьРаспаковкиФайлов  - Строка - путь по которому необходимо распаковать файлы

//  ПарольАрхива          - Строка - пароль для распаковки архива. По умолчанию пустая строка

// 

// Возвращаемое значение:

//  Результат - Булево - Истина, если успешно, Ложь, если нет.

//

Функция РаспаковатьZipФайл(Знач ПолноеИмяФайлаАрхива, Знач ПутьРаспаковкиФайлов, Знач ПарольАрхива = "") Экспорт

	

	// возвращаемое значение функции

	Результат = Истина;

	

	Попытка

		

		Архиватор = Новый ЧтениеZipФайла(ПолноеИмяФайлаАрхива, ПарольАрхива);

		

	Исключение

		Архиватор = Неопределено;

		СообщитьОбОшибке(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));

		Возврат Ложь;

	КонецПопытки;

	

	Попытка

		

		Архиватор.ИзвлечьВсе(ПутьРаспаковкиФайлов, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);

		

	Исключение

		

		СтрокаСообщения = НСтр("ru = 'Ошибка при распаковке файлов архива: %1 в каталог: %2'");

		СтрокаСообщения = ПодставитьПараметрыВСтроку(СтрокаСообщения, ПолноеИмяФайлаАрхива, ПутьРаспаковкиФайлов);

		Сообщить(СтрокаСообщения);

		

		Результат = Ложь;

	КонецПопытки;

	

	Архиватор.Закрыть();

	Архиватор = Неопределено;

	

	Возврат Результат;

	

КонецФункции





// Запаковывает указанный каталог в файл архива ZIP

//

// Параметры:

//  ПолноеИмяФайлаАрхива  - Строка - имя файла архива, в который необходимо запаковать

//  МаскаУпаковкиФайлов    - Строка - имя файла, помещаемого в архив, или маска.

//			Недопустимо использование в именах файлов и папок букв национальных алфавитов, которые при 

//			преобразовании из символов UNICODE в узкие символы могут быть преобразованы с потерей информации. 

//			Рекомендуется использовать в именах файлов и папок символы латинского алфавита. 

//  ПарольАрхива          - Строка - пароль для архива. По умолчанию пустая строка

// 

// Возвращаемое значение:

//  Результат - Булево - Истина, если успешно, Ложь, если нет.

//

Функция ЗапаковатьВZipФайл(Знач ПолноеИмяФайлаАрхива, Знач МаскаУпаковкиФайлов, Знач ПарольАрхива = "") Экспорт

	

	// возвращаемое значение функции

	Результат = Истина;

	

	Попытка

		

		Архиватор = Новый ЗаписьZipФайла(ПолноеИмяФайлаАрхива, ПарольАрхива);

		

	Исключение

		Архиватор = Неопределено;

		СообщитьОбОшибке(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));

		Возврат Ложь;

	КонецПопытки;

	

	Попытка

		

		Архиватор.Добавить(МаскаУпаковкиФайлов, РежимСохраненияПутейZIP.НеСохранятьПути);

		Архиватор.Записать();

		

	Исключение

		

		СтрокаСообщения = НСтр("ru = 'Ошибка при запаковке файлов архива: %1 из каталог: %2'");

		СтрокаСообщения = ПодставитьПараметрыВСтроку(СтрокаСообщения, ПолноеИмяФайлаАрхива, МаскаУпаковкиФайлов);

		Сообщить(СтрокаСообщения);

		

		Результат = Ложь;

	КонецПопытки;

	

	Архиватор = Неопределено;

	

	Возврат Результат;

	

КонецФункции   

 // Подставляет параметры в строку. Максимально возможное число параметров - 9.

// Параметры в строке задаются как %<номер параметра>. Нумерация параметров начинается с единицы.

//

// Параметры:

//  СтрокаПодстановки  – Строка – шаблон строки с параметрами (вхождениями вида "%ИмяПараметра");

//  Параметр<n>        - Строка - подставляемый параметр.

//

// Возвращаемое значение:

//  Строка   – текстовая строка с подставленными параметрами.

//

// Пример:

//  ПодставитьПараметрыВСтроку(НСтр("ru='%1 пошел в %2'"), "Вася", "Зоопарк") = "Вася пошел в Зоопарк".

//

Функция ПодставитьПараметрыВСтроку(Знач СтрокаПодстановки,

	Знач Параметр1,	Знач Параметр2 = Неопределено, Знач Параметр3 = Неопределено,

	Знач Параметр4 = Неопределено, Знач Параметр5 = Неопределено, Знач Параметр6 = Неопределено,

	Знач Параметр7 = Неопределено, Знач Параметр8 = Неопределено, Знач Параметр9 = Неопределено) Экспорт

	

	Если СтрокаПодстановки = Неопределено ИЛИ СтрДлина(СтрокаПодстановки) = 0 Тогда

		Возврат "";

	КонецЕсли;

	

	Результат = "";

	НачПозиция = 1;

	Позиция = 1;

	Пока Позиция <= СтрДлина(СтрокаПодстановки) Цикл

		СимволСтроки = Сред(СтрокаПодстановки, Позиция, 1);

		Если СимволСтроки <> "%" Тогда

			Позиция = Позиция + 1;

			Продолжить;

		КонецЕсли;

		Результат = Результат + Сред(СтрокаПодстановки, НачПозиция, Позиция - НачПозиция);

		Позиция = Позиция + 1;

		СимволСтроки = Сред(СтрокаПодстановки, Позиция, 1);

		

		Если СимволСтроки = "%" Тогда

			Позиция = Позиция + 1;

			НачПозиция = Позиция;

			Результат = Результат + "%";

			Продолжить;

		КонецЕсли;

		

		Попытка

			НомерПараметра = Число(СимволСтроки);

		Исключение

			ВызватьИсключение НСтр("ru='Входная строка СтрокаПодстановки имеет неверный формат: %'" + СимволСтроки);

		КонецПопытки;

		

		Если СимволСтроки = "1" Тогда

			ЗначениеПараметра = Параметр1;

		ИначеЕсли СимволСтроки = "2" Тогда

			ЗначениеПараметра = Параметр2;

		ИначеЕсли СимволСтроки = "3" Тогда

			ЗначениеПараметра = Параметр3;

		ИначеЕсли СимволСтроки = "4" Тогда

			ЗначениеПараметра = Параметр4;

		ИначеЕсли СимволСтроки = "5" Тогда

			ЗначениеПараметра = Параметр5;

		ИначеЕсли СимволСтроки = "6" Тогда

			ЗначениеПараметра = Параметр6;

		ИначеЕсли СимволСтроки = "7" Тогда

			ЗначениеПараметра = Параметр7;

		ИначеЕсли СимволСтроки = "8" Тогда

			ЗначениеПараметра = Параметр8;

		ИначеЕсли СимволСтроки = "9" Тогда

			ЗначениеПараметра = Параметр9;

		Иначе

			ВызватьИсключение НСтр("ru='Входная строка СтрокаПодстановки имеет неверный формат: %'" + ЗначениеПараметра);

		КонецЕсли;

		Если ЗначениеПараметра = Неопределено Тогда

			ЗначениеПараметра = "";

		Иначе

			ЗначениеПараметра = Строка(ЗначениеПараметра);

		КонецЕсли;

		Результат = Результат + ЗначениеПараметра;

		Позиция = Позиция + 1;

		НачПозиция = Позиция;

	

	КонецЦикла;

	

	Если (НачПозиция <= СтрДлина(СтрокаПодстановки)) Тогда

		Результат = Результат + Сред(СтрокаПодстановки, НачПозиция, СтрДлина(СтрокаПодстановки) - НачПозиция + 1);

	КонецЕсли;

	

	Возврат Результат;

	

КонецФункции   

 Сообщить("Распаковка файла - " + ИмяАрхивногоФайла);

Сейчас = ТекущаяДата();



// Откроем файл для чтения

ЧтениеZIP = Новый ЧтениеZipФайла(ИмяАрхивногоФайла,

				ПарольАрхивногоФайла);



// Сообщим комментарий архива

Сообщить("Комментарий:");

Сообщить(ЧтениеZIP.Комментарий);



// Распакуем все файлы из архива

ЧтениеZIP.ИзвлечьВсе(ПапкаНазначения, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);



// Распакуем файлы по одиночке

Для Каждого Элемент Из ЧтениеZIP.Элементы Цикл

	Сообщить("Распаковка файла:" + Элемент.ПолноеИмя);

	ЧтениеZIP.Извлечь(Элемент,

			ПапкаНазначения,

			РежимВосстановленияПутейФайловZIP.Восстанавливать, 

			? (Элемент.Зашифрован, ПарольАрхивногоФайла, ""));

КонецЦикла;



ЧтениеZIP.Закрыть();



// Сообщим время, потребовавшееся для работы

Сообщить("Распаковка заняла " + (ТекущаяДата() - Сейчас) + " секунд(ы)");   

 Сейчас = ТекущаяДата();



// Создадим объект записи ZIP-архива

ЗаписьZIP = Новый ЗаписьZipФайла(ИмяАрхивногоФайла,

				ПарольАрхивногоФайла,

				"" + МетодСжатия + Символы.ПС + УровеньСжатия + Символы.ПС + МетодШифрования,

				МетодСжатия,

				УровеньСжатия,

				МетодШифрования);



// Добавим необходимые файлы в архив

ЗаписьZIP.Добавить("c:\MyFiles\File1.xml", РежимСохраненияПутейZIP.НеСохранятьПути);

ЗаписьZIP.Добавить("c:\MyFiles\MoreFiles\*.xml", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.НеОбрабатывать);



// Запишем архив на диск

ЗаписьZIP.Записать();



// Сообщим время, которое потребовалось для работы.

Сообщить("Упаковка заняла " + ТекущаяДата() - Сейчас) + " секунд(ы)");   

 // Добавим необходимые файлы в архив

ЗаписьZIP.Добавить("c:\ZipTest\11.xls", РежимСохраненияПутейZIP.СохранятьПолныеПути);

ЗаписьZIP.Добавить("c:\ZipTest\12.xls", РежимСохраненияПутейZIP.СохранятьОтносительныеПути);

ЗаписьZIP.Добавить("c:\ZipTest\13.xls", РежимСохраненияПутейZIP.НеСохранятьПути);   

 // Добавим необходимые файлы в архив

ЗаписьZIP.Добавить("c:\ZipTest\*.xls", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.НеОбрабатывать);   

 // Добавим необходимые файлы в архив

ЗаписьZIP.Добавить("c:\ZipTest\*.xls", РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);   

 

ИмяZIPФайла = ПолучитьИмяВременногоФайла(".zip");



ФайлАрхива = Новый ЗаписьZipФайла(ИмяZIPФайла, , ,

                                  МетодСжатияZIP.Сжатие,

                                  УровеньСжатияZIP.Оптимальный);

ФайлАрхива.Добавить(ИмяВременногоФайла,

                    РежимСохраненияПутейZIP.СохранятьОтносительныеПути,

                    РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);

ФайлАрхива.Записать();