Профиль = Новый ИнтернетПочтовыйПрофиль;
//адрес STMP-сервера
Профиль.АдресСервераSMTP = "stmp.mail.ru";
//Адрес POP3-сервера
Профиль.АдресСервераPOP3 = "pop.mail.ru";
// порт протокола SMTP
Профиль.ПортSMTP = 25;
Профиль.ПортPOP3 = 110;
//Имя пользователя
Профиль.Пользователь = "ЫТЬ";
Профиль.ПользовательSMTP = "ыгыть";
Профиль.Пароль = "нунах!";
Профиль.ПарольSMTP = "тудаж";
Профиль.ВремяОжидания = 30;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(профиль);
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
ТабличноеПолеИнтернетПочта.Очистить();
Сообщения = Почта.Выбрать(Ложь);
Для каждого Сообщение из Сообщения Цикл
СтрокаТП = ТабличноеПолеИнтернетПочта.Добавить();
КомуВходящие = "";
Для каждого Получатель Из Сообщение.Получатели Цикл
КомуВходящие = КомуВходящие + Получатель.Пользователь + " <" + Получатель.Адрес + "> ";
КонецЦикла;
СтрокаТП.Кому = КомуВходящие;
СтрокаТП.ОтКого = Сообщение.Отправитель.Пользователь + " <" + Сообщение.отправитель.Адрес + "> ";
СтрокаТП.Тема = Сообщение.Тема;
ТекстВходящие = "";
Для каждого ТекстСообщения Из Сообщение.Тексты Цикл
ТекстВходящие = ТекстВходящие + ТекстСообщения.Текст;
КонецЦикла;
СтрокаТП.Текст = ТекстВходящие;
СтрокаТП.ДатаОтправления = Сообщение.ДатаОтправления;
Для каждого Вложение из Сообщение.Вложения Цикл
Вложение.Данные.Записать("C:\Mail\"+Вложение.имя);
КонецЦикла;
КонецЦикла;
Почта.Отключиться();