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

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

	Использовать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Аутентификации.Обычная;

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

	

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

	Попытка

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

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

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

	Исключение

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

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

	

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

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

   

 &НаСервере

Процедура ДобавитьНаСервере()

 

ДобавляемыеРеквизиты = Новый Массив;    

    Реквизит1 = Новый РеквизитФормы("Таб", Новый ОписаниеТипов("ТаблицаЗначений"), , "Таблица", Истина);

    ДобавляемыеРеквизиты.Добавить(Реквизит1); 

    ИзменитьРеквизиты(ДобавляемыеРеквизиты);

    

    ДобавляемыеРеквизиты = Новый Массив;    

    Реквизит2 = Новый РеквизитФормы("Кол", Новый ОписаниеТипов("Строка"),"Таб" , "Колонка", Истина);

    ДобавляемыеРеквизиты.Добавить(Реквизит2); 

    ИзменитьРеквизиты(ДобавляемыеРеквизиты);

    ТаблицаФормы = ЭтаФорма.Элементы.Добавить("Таблица", Тип("ТаблицаФормы"), ЭтаФорма);    

    ТаблицаФормы.ПутьКДанным = "Таб";       

    

    Колонка = ЭтаФорма.Элементы.Добавить("Колонка", Тип("ПолеФормы"), ТаблицаФормы);    

    Колонка.ПутьКДанным = "Таб.Кол";       

    

КонецПроцедуры   

 	 //Добавим кнопки и команды

	//Команды

	Кмд = ЭтаФорма.Команды.Добавить("Выгрузить");

	Кмд.Действие = "Выгрузить";

	Кмд.Заголовок = "Выгрузить в файл";

	

	КмдЗ = ЭтаФорма.Команды.Добавить("Загрузить");

	КмдЗ.Действие = "Загрузить";

	КмдЗ.Заголовок = "Загрузить из файла";

	

	КмдЗ = ЭтаФорма.Команды.Добавить("ЗаписатьВДокумент");

	КмдЗ.Действие = "ЗаписатьВДокумент";

	КмдЗ.Заголовок = "Записать в документ";



 	//Добавляем новую кнопку

    Горизонт = ЭтаФорма.Элементы.Добавить("Горизонт", Тип("ГруппаФормы"), ЭтаФорма);

    Горизонт.Вид = ВидГруппыФормы.ОбычнаяГруппа;

 

   // Элемент2.ИмяКоманды = "Выгрузить";



    

    //Добавляем новую кнопку

    Элемент2 = ЭтаФорма.Элементы.Добавить("Выгрузить", Тип("КнопкаФормы"), Горизонт);

    Элемент2.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 

    Элемент2.ИмяКоманды = "Выгрузить";

    

    //Добавляем новую кнопку

    Элемент = ЭтаФорма.Элементы.Добавить("Загрузить", Тип("КнопкаФормы"), ЭтаФорма);

    Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 

    Элемент.ИмяКоманды = "Загрузить";

    

    //Добавляем новую кнопку

    Элемент = ЭтаФорма.Элементы.Добавить("ЗаписатьВДокумент", Тип("КнопкаФормы"), ЭтаФорма);

    Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 

    Элемент.ИмяКоманды = "ЗаписатьВДокумент";



	       	

	ТаблицаФормы 				= Элементы.Добавить("ф__ТЗ", Тип("ТаблицаФормы"));

	ТаблицаФормы.ПутьКДанным 	= "ТЗ";

   

 ДД = ДвоичныеДанные(ИмяФайла);   

 Процедура Пример(ИмяФайла)



    // Перечисления из библиотеки ADO

    StreamTypeEnum = Новый Структура("adTypeBinary, adTypeText", 1, 2);

    ConnectModeEnum = Новый Структура(

        "adModeRead, adModeReadWrite, adModeRecursive, adModeShareDenyNone,

        |adModeShareDenyRead, adModeShareDenyWrite, adModeShareExclusive, 

        |adModeUnknown, adModeWrite", 1, 3, 4194304, 16, 4, 8, 12, 0, 2);

    SaveOptionsEnum = Новый Структура("adSaveCreateNotExist, adSaveCreateOverWrite", 1, 2);

    

    StreamIn = Новый COMОбъект("ADODB.Stream"); //Для создания этого объекта требуется MDAC 2.5 и выше

    StreamIn.Type = StreamTypeEnum.adTypeBinary;

    

    StreamIn.Open(); //По умолчанию открывается на чтение

    StreamIn.LoadFromFile(ИмяФайла); //Очевидно, что для больших файлов так поступать нехорошо.

    Data = StreamIn.Read(); //у переменной Data тип COMSafeArray, это массив байтов

    StreamIn.Close(); //Больше нам этот поток не нужен - закрываем.

    

    //Конечно, манипуляция в памяти приемлима только для небольших файлов!

    СодержимоеМассив = Data.Выгрузить();

    

    //...

    //...

    //тут можно по-всякому поиздеваться над массивом

    //...

    //...

    

    //Запихиваем массив 1С в COMSafeArray. VT_UI1 - обозначение однобайтного беззнакового целого.

    Data = Новый COMSafeArray(СодержимоеМассив, "VT_UI1", СодержимоеМассив.Количество());

    

    StreamOut = Новый COMОбъект("ADODB.Stream");

    StreamOut.Type = StreamTypeEnum.adTypeBinary;

    StreamOut.Mode = ConnectModeEnum.adModeReadWrite; //Нужны и чтение и запись.

    

    StreamOut.Open(); //Открыли на чтение и запись

    StreamOut.Write(Data); 

    StreamOut.SaveToFile(ИмяФайла, SaveOptionsEnum.adSaveCreateOverWrite); //"2" - перезапись файла

    StreamOut.Close();



КонецПроцедуры   

 ДД = ДвоичныеДанные(ИмяФайла);   

 Строка64 = Base64Строка(ДвоичныеДанные);   

 Массив64 = Преобразовать64(Строка64 , );   

 Строка64 = Преобразовать64( , Массив64 );   

  //Автор: Гобсек

&НаСервере

Функция Преобразовать64(Строка64 = неопределено, Массив64 = неопределено)

 Таб64 = Новый ТаблицаЗначений;

 Таб64.Колонки.Добавить("Код");

 Таб64.Колонки.Добавить("Символ");

 Нпп = 0;

 Для Код = КодСимвола("A") По КодСимвола("Z") Цикл

  стр = Таб64.Добавить();

  стр.Код = Нпп;

  стр.Символ = Символ(Код);

  Нпп = Нпп + 1;

 КонецЦикла;

 Для Код = КодСимвола("a") По КодСимвола("z") Цикл

  стр = Таб64.Добавить();

  стр.Код = Нпп;

  стр.Символ = Символ(Код);

  Нпп = Нпп + 1;

 КонецЦикла;

 стр = Таб64.Добавить();

 стр.Код = Нпп;

 стр.Символ = "0";

 Нпп = Нпп + 1;

 Для Код = 1 По 9 Цикл

  стр = Таб64.Добавить();

  стр.Код = Нпп;

  стр.Символ = Формат(Код,"ЧЦ=1; ЧДЦ=0");

  Нпп = Нпп + 1;

 КонецЦикла;

 стр = Таб64.Добавить();

 стр.Код = Нпп;

 стр.Символ = "+";

 Нпп = Нпп + 1;

 стр = Таб64.Добавить();

 стр.Код = Нпп;

 стр.Символ = "/";

 

 Если Массив64 = неопределено Тогда 

  Если Строка64 = неопределено Тогда

   Сообщить("неверный вызов функции");

   Возврат неопределено;

  КонецЕсли;

  //Уберем переносы строк

  Строка64 = СтрЗаменить(Строка64, Символ(10), "");

  Строка64 = СтрЗаменить(Строка64, Символ(13), "");

  

  //преобразовываем строку в массив

  Если СтрДлина(Строка64) % 4 <> 0 Тогда

   Сообщить("длина строки на входе должна быть кратна 4"); 

   Сообщить(СтрДлина(Строка64)); 

   Возврат неопределено;

  КонецЕсли;

  Кол4 = Цел(СтрДлина(Строка64) / 4);

  РазмерМ = Кол4 * 3;

  Если Прав(Строка64, 2) = "==" Тогда

   РазмерМ = РазмерМ - 2;

  ИначеЕсли Прав(Строка64, 1) = "=" Тогда

   РазмерМ = РазмерМ - 1;

  КонецЕсли;   

  Массив64 = Новый Массив(РазмерМ);

  Для А = 1 По Кол4 Цикл

   Число3 = 0;

   Для Б = 1 По 4 Цикл

    Буква1 = Сред(Строка64, (А-1)*4 + Б, 1); 

    Если Буква1 = "=" Тогда

     Код4 = 0;

    Иначе

     стрН = Таб64.Найти(Буква1, "Символ");

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

      Сообщить("ошибка при поиске "+ КодСимвола(Буква1)); 

     Иначе 

      Код4 = стрН.Код;

     КонецЕсли;

    КонецЕсли;

    Число3 = Число3 * 64 + Код4;

   КонецЦикла;

   Ост = Число3 % 256;

   Индекс = (А-1)*3 + 2;

   Если Индекс <= РазмерМ - 1 Тогда

    Массив64[Индекс] = Ост;

   КонецЕсли;

   Число3 = (Число3 - Ост) / 256;

   Ост = Число3 % 256;

   Индекс = (А-1)*3 + 1;

   Если Индекс <= РазмерМ - 1 Тогда

    Массив64[Индекс] = Ост;

   КонецЕсли;

   Число3 = (Число3 - Ост) / 256;

   Ост = Число3 % 256;

   Массив64[(А-1)*3 + 0] = Ост;

  КонецЦикла;

  Возврат Массив64;

 Иначе //Преобразовываем массив в строку

  Строка64 = "";

  Кол3 = Цел(Массив64.Количество() / 3);

  Если Массив64.Количество() % 3 <> 0 Тогда

   Кол3 = Кол3 + 1;

  КонецЕсли;

  Для А = 1 По Кол3 Цикл

   Число3 = Массив64[(А-1)*3]; 

   Если (А-1)*3+1 <= Массив64.ВГраница() Тогда

    Код3 = Массив64[(А-1)*3+1];

   Иначе

    Код3 = 0;

   КонецЕсли;

   Число3 = Число3*256 + Код3;

   Если (А-1)*3+2 <= Массив64.ВГраница() Тогда

    Код3 = Массив64[(А-1)*3+2];

   Иначе

    Код3 = 0;

   КонецЕсли;

   Число3 = Число3*256 + Код3;

   

   Ост4 = Число3 % 64;

   Число3 = (Число3 - Ост4) / 64;

   Ост3 = Число3 % 64;

   Число3 = (Число3 - Ост3) / 64;

   Ост2 = Число3 % 64;

   Число3 = (Число3 - Ост2) / 64;

   Ост1 = Число3 % 64;

   Число3 = (Число3 - Ост1) / 64;

   стрН = Таб64.Найти(Ост1, "Код");

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

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

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост2, "Код");

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

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

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост3, "Код");

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

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

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост4, "Код");

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

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

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

  КонецЦикла;

  //Если количество символов не делится на 3, то на конце должны быть

  //знаки "="

  Если Массив64.Количество() % 3 = 1 Тогда

   Строка64 = Лев(Строка64, СтрДлина(Строка64)-2)+ "=="; 

  ИначеЕсли Массив64.Количество() % 3 = 2 Тогда

   Строка64 = Лев(Строка64, СтрДлина(Строка64)-1)+ "="; 

  КонецЕсли;

  Возврат Строка64;

 КонецЕсли;

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

 // отправка почтового сообщения...

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

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

	Профиль.ПользовательSMTP = "111";

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

	ПРофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;

	

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

	Сообщение.Отправитель = "121@yandex.ru";

	Сообщение.Тема = ""+ПрефиксФилиала;

	Сообщение.Получатели.Добавить("12321@yandex.ru");

	Сообщение.Тексты.Добавить(ТекстПисьма);

	Сообщение.Вложения.Добавить(ИмяВременногоZiPфайла);

	

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

	Попытка 

		Состояние("Отправка почтового сообщения...");

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

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

		Предупреждение("Сообщения успешно отправлены!");

	Исключение

		Сообщить("Ошибка соединения с сервером.",СтатусСообщения.ОченьВажное);

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

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

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

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

    Профиль.Пользователь = "121";

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

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

    

    Попытка

        Предупреждение("Попытка подключения к серверу почты "+Профиль.АдресСервераPOP3);

        Состояние("Подключение к серверу "+Профиль.АдресСервераPOP3);

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

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

        

        МассивСообщений = Новый Массив;

        Предупреждение("Чтение почтовых сообщений");

        Состояние("Чтение почтовых сообщений...");

        МассивСообщений = Почта.Выбрать(Ложь); // ЛОжь - письма с сервера не удаляются...

    Исключение

        Предупреждение("Ошибка подключения к серверу ","Остановить");

        Предупреждение(""+ОписаниеОшибки(),"Остановить");

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

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

        Возврат;

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

    

    Если МассивСообщений.Количество() = 0 Тогда

        Предупреждение("В почтовом ящике нет сообщений. Прерываем работу.");

        Сообщить("Почтовый ящик пуст");

        ПолученныеПисьма.Очистить();

        Возврат;

    КонецЕсли;

    ОтобразитьПочтовыеПисьма();

КонецПроцедуры



Процедура ОтобразитьПочтовыеПисьма()

    ПолученныеПисьма.Очистить();

    Если МассивСообщений.Количество() = 0 Тогда

        Возврат; // почтовых сообщений нету.

    КонецЕсли;

    

    Предупреждение("Начало отображения сообщений в обработке");

    МассивСообщенийОбмена = новый Массив;

    

    ИмяФайлаСообщения = "";

    ПолученныеПисьма.Очистить();

    Для Индекс = 0 По МассивСообщений.Количество() - 1 Цикл

        стр = ПолученныеПисьма.Добавить();

        стр.ДатаОтправления = МассивСообщений[Индекс].ДатаОтправления;

        стр.ЗаголовокСообщения = МассивСообщений[Индекс].Заголовок;

        стр.Индекс = Индекс;

        стр.КоличествоВложений = МассивСообщений[Индекс].Вложения.Количество();

        стр.КоличествоТекстов = МассивСообщений[Индекс].Тексты.Количество();

        стр.Размер = МассивСообщений[Индекс].Размер;

        стр.Тема = МассивСообщений[Индекс].Тема;

    КонецЦикла;

    Предупреждение("Сообщения отображены");

       

 Функция GetClientOrders()

    МассивЗаказовПокупателейТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ArrayOfClientOrders");

    ЗаказПокупателяТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrder");

    ЗаказПокупателяСтрокаТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrderRow");

    НоменклатураТип = ФабрикаXDTO.Тип("http://company.com/1C/Nomenclature", "Nomenclature");

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

    Запрос.Текст = 

        "ВЫБРАТЬ

        |	ЗаказПокупателя.Ссылка,

        |	ЗаказПокупателя.Номер,

        |	ЗаказПокупателя.Дата

        |ИЗ

        |	Документ.ЗаказПокупателя КАК ЗаказПокупателя";

    Результат = Запрос.Выполнить();

    Выборка = Результат.Выбрать();

    Если Выборка.Количество() = 0 Тогда

        Возврат Null;

    КонецЕсли;

    МассивЗаказовПокупателей = ФабрикаXDTO.Создать(МассивЗаказовПокупателейТип);

    

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

        ЗаказПокупателя = ФабрикаXDTO.Создать(ЗаказПокупателяТип);

        ЗаказПокупателя.Number = Выборка.Номер;

        ЗаказПокупателя.Date = Выборка.Дата;

            Для каждого Строка Из Выборка.Ссылка.Товары Цикл

            ЗаказПокупателяСтрока = ФабрикаXDTO.Создать(ЗаказПокупателяСтрокаТип);

            Номенклатура = ФабрикаXDTO.Создать(НоменклатураТип);

            Номенклатура.Code = Строка.Номенклатура.Код;

            Номенклатура.Name = Строка.Номенклатура.Наименование;

            ЗаказПокупателяСтрока.Nomenclature = Номенклатура;

            ЗаказПокупателяСтрока.Count = Строка.Количество;

            ЗаказПокупателя.Products.Добавить(ЗаказПокупателяСтрока);

        КонецЦикла;

        МассивЗаказовПокупателей.ClientOrder.Добавить(ЗаказПокупателя);

    КонецЦикла;

    Возврат МассивЗаказовПокупателей;

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

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

   

    // Добавляем новый реквизит в форму

    ДобавляемыеРеквизиты = Новый Массив;

    Реквизит = Новый РеквизитФормы("Реквизит1", Новый ОписаниеТипов("Строка"), , "Введите строку", Истина);

    ДобавляемыеРеквизиты.Добавить(Реквизит);

    ИзменитьРеквизиты(ДобавляемыеРеквизиты);

   

    //Добавляем новое поле ввода на форму

    Элемент = ЭтаФорма.Элементы.Добавить("Поле", Тип("ПолеФормы"), ЭтаФорма);

    Элемент.Вид = ВидПоляФормы.ПолеВвода;

    Элемент.ПутьКДанным = "Реквизит1";

   

    //Добавляем новую команду

    Кмд = ЭтаФорма.Команды.Добавить("Команда1");

    Кмд.Действие = "НажатиеКнопки";

    Кмд.Заголовок = "Нажатие кнопки";

   

    //Добавляем новую кнопку

    Элемент2 = ЭтаФорма.Элементы.Добавить("Кнопка1", Тип("КнопкаФормы"), ЭтаФорма);

    Элемент2.Вид = ВидКнопкиФормы.ОбычнаяКнопка;

    Элемент2.ИмяКоманды = "Команда1";

   

КонецПроцедуры



&НаКлиенте

Процедура НажатиеКнопки()

    // Вставить содержимое обработчика.

    ЭтаФорма.Реквизит1 = "Готово";

   

КонецПроцедуры   

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

    Для Каждого ТекИмяКнопки Из Параметры.МассивИменКнопок Цикл

        КомандаФормы  = Команды.Добавить(ТекИмяКнопки);

        КомандаФормы.Действие = "ПроцедураОбработкиНажатия";

        Элементы.Добавить(ТекИмяКнопки,Тип("КнопкаФормы"), Элементы.ПоПравилуОбработкиПодменю);

        Элементы[ТекИмяКнопки].Заголовок = ТекИмяКнопки;

        Элементы[ТекИмяКнопки].ИмяКоманды = ТекИмяКнопки;

    КонецЦикла

КонецПроцедуры   

 &НаКлиенте

Процедура ПроцедураОбработкиНажатия(Элемент)

    Состояние("Выполняется нажатие кнопки с командой" + Элемент.Имя);

КонецПроцедуры