//Подключаемся к почте с указанными параметрами
Почта = СоздатьОбъект("AddIn.AddInMail");
Почта.СерверПриема = СерверПриема;
Почта.ПортПриема = ПортПриема;
Почта.Логин = Логин; //при необходимости
Почта.Пароль = Пароль;//при необходимости
Почта.ОставлятьНаСервере = 1; //необходимо ли оставлять письма в ящике
Почта.Кодировка = "koi8-r";
Почта.НеКодироватьТему = 1;
Почта.XMailer = "Microsoft Outlook Express 6.00.2600.0000";
//Если подключение не удачное прерываем обработку
Если Почта.Соединение = 0 Тогда
Если Почта.Подключиться("Прием")=0 Тогда
Сообщить("Не удалось подключиться к почтовому серверу","!");
Возврат;
Конецесли;
Конецесли;
ПринятыйФайл = "";
Для й = 1 По Почта.КоличествоСообщений() Цикл
//Читаем заголовки писем
Если Почта.ПолучитьЗаголовок(й) = 1 Тогда
Сообщить(Почта.Тема);
//Читаем тексты писем
Если Почта.ПолучитьТело(й)=1 Тогда
//Сообщить(Почта.Тело);
//Выбираем вложения писем
Для ф = 1 По Почта.КоличествоФайлов() Цикл
Сообщить(Почта.Вложения);
ИмяФайла = Почта.ПолучитьФайл(ф);
Сообщить(ИмяФайла,"i");
//сохраняем вложение
//Почта.СохранитьФайл(ф,"");
Конеццикла;
Конецесли;
Конецесли;
