8.х Получение и отправка почты для обмена между РБ

Уважаемые форумчане, может кто объясним или покажет как правильно:
у меня на работе собственные сервер (я не админ), вся почта собирается им и содержиться на локальных почтовых ящиках. Пишу план обмена, при этом передать на прямую на мой локальный сервер почтовое письмо можно (использую ИнтернетПочта, все настройки правильны: логин, пароль, порты), а принять аналогично не могу, только используя "Почта" (т. е. через почтового клиента, все настройки опять же правильные). В чем может быть проблема?

Небольшое дополнение к вопросу: 2 базы соединены через выделинку (internet), что в таком случае уместней обмен или терминал?

Да ни на что вобщем то не ругаетцо, если пошагово - просто проходит код и все, код следующий:

Код:

ИспользоватьSMTP=Константы.ИспользоватьОбменПоSMTP.Получить(); 

Если ИспользоватьSMTP Тогда 
ПочтовыйПрофиль=Новый ИнтернетПочтовыйПрофиль; 
SMTPАутентификация=Истина;
ПочтовыйПрофиль.АдресСервераSMTP=Константы.АдресСервераSMTPОбмена.Получить(); 
ПочтовыйПрофиль.АдресСервераPOP3=Константы.АдресСервераPOP3Обмена.Получить(); 
ПочтовыйПрофиль.ПортSMTP=Константы.ПортСервераSMTPОбмена.Получить(); 
ПочтовыйПрофиль.ПортPOP3=Константы.ПортСервераPOP3Обмена.Получить(); 

Если SMTPАутентификация Тогда
ПочтовыйПрофиль.ПользовательSMTP=Константы.ПользовательСервераSMTPОбмена.Получить(); 
ПочтовыйПрофиль.ПарольSMTP=Константы.ПарольПользователяSMTPОбмена.Получить(); 
ПочтовыйПрофиль.Пользователь=Константы.ПользовательСервераPOP3Обмена.Получить(); 
ПочтовыйПрофиль.Пароль=Константы.ПарольПользователяPOP3Обмена.Получить(); 
Иначе
ПочтовыйПрофиль.Пользователь=Константы.ПользовательСервераPOP3Обмена.Получить(); 
ПочтовыйПрофиль.Пароль=Константы.ПарольПользователяPOP3Обмена.Получить(); 
КонецЕсли;

ПочтовыйПрофиль.ВремяОжидания=Константы.ВремяОжиданияСервера.Получить(); 

Почта=Новый ИнтернетПочта(); 
Попытка 
Почта.Подключиться(ПочтовыйПрофиль); 
Исключение 
Сообщить("ОБМЕН: Ошибка при подключении к почтовому профилю! Обмен не выполнен!",СтатусСообщения.ОченьВажное); 
Возврат; 
КонецПопытки; 
Иначе     
Почта=Новый Почта(); 
Попытка 
Почта.Подключиться(); 
Исключение 
Сообщить("ОБМЕН: Ошибка при подключении к почтовому профилю пользователя! Обмен не выполнен!",СтатусСообщения.ОченьВажное); 
Возврат; 
КонецПопытки; 
КонецЕсли; 

МассивСообщений=Новый Массив; 
Если ИспользоватьSMTP Тогда
//заголовки сообщений
//ВсеЗаголовки = Почта.ПолучитьЗаголовки();
ВсеСообщения=Почта.Выбрать(Ложь); //выбираем zip-файл
Иначе 
ВсеСообщения=Почта.Выбрать(Ложь, Ложь); 
КонецЕсли; 

Для Каждого Сообщение из ВсеСообщения Цикл 

Если Лев(Сообщение.Тема, 8)<>"1С:Обмен_" + ПланыОбмена.РаспределеннаяБаза.ЭтотУзел().Код Тогда 
Продолжить; 
КонецЕсли; 
Попытка 
// Записываем файл обмена во временный файл
МассивСообщений.Добавить(Сообщение); 
Вложение=Сообщение.Вложения[0]; 
ИмяФайлаСообщенияZIP=Вложение.Name; 
ДанныеОбмена=Вложение.Данные; 
ДанныеОбмена.Записать(ИмяФайлаСообщенияZIP); 

//распаковываем zip-файл для каждого сообщения
ИмяФайлаСообщения = КаталогВременныхФайлов()+РазархивироватьФайл(ИмяФайлаСообщенияZIP);
//конец распаковки

ЧтениеXML=Новый ЧтениеXML(); 
ЧтениеXML.ОткрытьФайл(ИмяФайлаСообщения); 
ЧтениеСообщения=ПланыОбмена.СоздатьЧтениеСообщения(); 
ЧтениеСообщения.НачатьЧтение(ЧтениеXML); 
ПараметрыСеанса.ИдетОбменРаспределеннойБазы=Истина; 
ПланыОбмена.ПрочитатьИзменения(ЧтениеСообщения); 
ЧтениеСообщения.ЗакончитьЧтение(); 
ЧтениеXML.Закрыть(); 
Если Константы.ВыводитьСообщенияОбмена.Получить() Тогда 
Сообщить("ОБМЕН: Данные обмена приняты",СтатусСообщения.Информация); 
Иначе
Сообщить("ОБМЕН: Нет данных для обмена",СтатусСообщения.Информация); 
КонецЕсли; 
Исключение 
Сообщить("ОБМЕН: Ошибка при получении данных обмена: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное); 
КонецПопытки; 
ПараметрыСеанса.ИдетОбменРаспределеннойБазы=Ложь; 

Попытка 
УдалитьФайлы(ИмяФайлаСообщения); 
Исключение 
КонецПопытки; 

КонецЦикла; 

Если ИспользоватьSMTP Тогда 
Почта.УдалитьСообщения(МассивСообщений); 
КонецЕсли; 
Почта.Отключиться();

Нипоняятноо! Код
Письмо.Вложения[0].Данные.Записать(ИмяФайлаИзмененийZIP); - к чему относиться?

Если Лев(Сообщение.Тема, 8)<>"1С:Обмен_" + ПланыОбмена.РаспределеннаяБаза.ЭтотУзел().Код - пол беды...
методом проб ошибок и научного тыка получилось, диктую код:

Код:

Процедура рбПолучитьСообщенияОбмена() Экспорт 
ИспользоватьSMTP=Константы.ИспользоватьОбменПоSMTP.Получить(); 

Если ИспользоватьSMTP Тогда 
ПочтовыйПрофиль=Новый ИнтернетПочтовыйПрофиль; 
SMTPАутентификация=Истина;
ПочтовыйПрофиль.АдресСервераSMTP=Константы.АдресСервераSMTPОбмена.Получить(); 
ПочтовыйПрофиль.АдресСервераPOP3=Константы.АдресСервераPOP3Обмена.Получить(); 
ПочтовыйПрофиль.ПортSMTP=Константы.ПортСервераSMTPОбмена.Получить(); 
ПочтовыйПрофиль.ПортPOP3=Константы.ПортСервераPOP3Обмена.Получить(); 

Если SMTPАутентификация Тогда
ПочтовыйПрофиль.ПользовательSMTP=Константы.ПользовательСервераSMTPОбмена.Получить(); 
ПочтовыйПрофиль.ПарольSMTP=Константы.ПарольПользователяSMTPОбмена.Получить(); 
ПочтовыйПрофиль.Пользователь=Константы.ПользовательСервераPOP3Обмена.Получить(); 
ПочтовыйПрофиль.Пароль=Константы.ПарольПользователяPOP3Обмена.Получить(); 
Иначе
ПочтовыйПрофиль.Пользователь=Константы.ПользовательСервераPOP3Обмена.Получить(); 
ПочтовыйПрофиль.Пароль=Константы.ПарольПользователяPOP3Обмена.Получить(); 
КонецЕсли;

ПочтовыйПрофиль.ВремяОжидания=Константы.ВремяОжиданияСервера.Получить(); 

Почта=Новый ИнтернетПочта(); 
Попытка 
Почта.Подключиться(ПочтовыйПрофиль); 
Исключение 
Сообщить("ОБМЕН: Ошибка при подключении к почтовому профилю! Обмен не выполнен!",СтатусСообщения.ОченьВажное); 
Возврат; 
КонецПопытки; 
Иначе     
Почта=Новый Почта(); 
Попытка 
Почта.Подключиться(); 
Исключение 
Сообщить("ОБМЕН: Ошибка при подключении к почтовому профилю пользователя! Обмен не выполнен!",СтатусСообщения.ОченьВажное); 
Возврат; 
КонецПопытки; 
КонецЕсли; 

МассивСообщений=Новый Массив; 
Если ИспользоватьSMTP Тогда
ВсеСообщения=Почта.Выбрать(Ложь); //выбираем zip-файл
Иначе 
ВсеСообщения=Почта.Выбрать(Ложь, Ложь); 
КонецЕсли; 

Для Каждого Сообщение из ВсеСообщения Цикл 

Если Лев(Сообщение.Тема, 9)<>"1С:Обмен_" Тогда //ПланыОбмена.РаспределеннаяБаза.ЭтотУзел().Код  
Продолжить;
Иначе 
СООБЩИТЬ("УРА! У НАС ЕСТЬ ПИСЬМО!");
КонецЕсли; 
Попытка 
// Записываем файл обмена во временный файл
МассивСообщений.Добавить(Сообщение); 
Вложение=Сообщение.Вложения[0];
//ИмяФайлаСообщенияZIP =  Вложение.Name;
ИмяФайлаСообщенияZIP = КаталогВременныхФайлов() + Вложение.Name; 
ДанныеОбмена=Вложение.Данные; 
ДанныеОбмена.Записать(ИмяФайлаСообщенияZIP); 

//распаковываем zip-файл для каждого сообщения
//ИмяФайлаСообщения = КаталогВременныхФайлов()+РазархивироватьФайл(ИмяФайлаСообщенияZIP);
ИмяФайлаСообщения = КаталогВременныхФайлов() + РазархивироватьФайл(Вложение.Name);
//конец распаковки

ЧтениеСообщения=ПланыОбмена.СоздатьЧтениеСообщения();
ЧтениеXML=Новый ЧтениеXML(); 
ЧтениеXML.ОткрытьФайл(ИмяФайлаСообщения);
/////////////////////////
ЧтениеXML.Прочитать();
/////////////////////////
ЧтениеСообщения.НачатьЧтение(ЧтениеXML); 
ПараметрыСеанса.ИдетОбменРаспределеннойБазы = Истина; 
ПланыОбмена.ПрочитатьИзменения(ЧтениеСообщения); 
ЧтениеСообщения.ЗакончитьЧтение(); 
ЧтениеXML.Закрыть(); 
Если Константы.ВыводитьСообщенияОбмена.Получить() Тогда 
Сообщить("ОБМЕН: Данные обмена приняты",СтатусСообщения.Информация); 
Иначе
Сообщить("ОБМЕН: Нет данных для обмена",СтатусСообщения.Информация); 
КонецЕсли; 
Исключение 
Сообщить("ОБМЕН: Ошибка при получении данных обмена: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное); 
КонецПопытки; 
ПараметрыСеанса.ИдетОбменРаспределеннойБазы=Ложь; 

Попытка 
УдалитьФайлы(ИмяФайлаСообщения); 
Исключение 
КонецПопытки; 

КонецЦикла; 

Если ИспользоватьSMTP Тогда 
Почта.УдалитьСообщения(МассивСообщений); 
КонецЕсли; 
Почта.Отключиться(); 

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

фишка еще в том, что я пытался отправляемой базой еще и считать обновления (по ходу так нельзя?)
в оригинале Если Лев(Сообщение.Тема, 9)<>"1С:Обмен_" Тогда можно заменить на Если Лев(Сообщение.Тема, 9)<>"1С:Обмен_" + <код текущего узла> Тогда

ну можно задать принудительно ввод 4ёх символьного кода, а насчет чтения своих изменений - по мойму у меня с этим опять же какой то косяк, да и зачем это нужно

Реализую практически такую же систему :unsure:
Архивировать и отправлять файлы 1с-ка у меня уже "научилась", а вот с распаковкой полученного файла проблемы. Не выложишь код своей функции Разархивировать?
Заранее спасибо.

Спасибо за ответ
Вот только проблема у меня малость не в этом, а в путях к файлу. А самая большая проблема - это отсутствие 1с-ника (уволился), а я даже не программист, а аналитик в комотделе

Почта - зло. Используй ftp. Или http (с этим сложнее)

Ребята, спасибо
аналогиный обмен через почту у меня прекрасно работает Как и Jaivan, я воспользовалась книгой знаний на мисте. Пришлось поправить пару ошибок и добавить проверку темы письма по последней букве - ибо она должна совпадать с кодом текущего узла (у меня код односимвольный).
Но при этом есть одно НО. Файлы слишком большие - особенно если приходится отсылать изменения конфигурации. Архивирование + отправка работает. А вот разархивировать я не могу Походу неправильно задаю имя файла в ЧтениеZIPФайла. Ну да ладно, разберемся

Подскажите пожалуйста, не могу принять обмен по почте.

Делал все по инструкции с http://www.mista.ru/v8/urbd.htm при приеме пишет:

ОБМЕН: Ошибка при получении данных обмена: (План обмена.Распределенная база.Форма списка(171)): Ошибка при вызове метода контекста (Записать): Недопустимое значение параметра (параметр номер '1')

ошибка ссылается на строку:

ДанныеОбмена.Записать(ИмяФайлаСообщения);

что не так?