Инициализация выполняется при загрузке 1С: Предприятия:
//Переменные глобального модуля
Перем глПочта Экспорт; Перем глПрямаяПочта Экспорт; Перем глВнешняяПочта Экспорт;
Процедура ПриНачалеРаботыСистемы () Если НазваниеИнтерфейса()="Робот" Тогда Если ИмяКомпьютера()<>"TEST" Тогда СтатусВозврата(0 ); Возврат; КонецЕсли; Если ЗагрузитьВнешнююКомпоненту("V7Plus.dll" )=1 Тогда глПочта = СоздатьОбъект("AddIn.V7Mail" ); Иначе Сообщить("Не удалось загрузить почтовую компоненту!!!" ,"!!!" ); Сообщить("Робот работать не будет!" ,"!!!" ); КонецЕсли; Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll" )=1 Тогда глПрямаяПочта = СоздатьОбъект("AddIn.AddInMail" ); глПрямаяПочта .СерверОтправки ="10.10.10.1" ; глПрямаяПочта .СерверПриема ="10.10.10.1" ; глПрямаяПочта .Логин ="Test" ; глПрямаяПочта .Пароль ="*****" ; глПрямаяПочта .АутентификацияПриОтправке =0 ; глВнешняяПочта = СоздатьОбъект("AddIn.AddInMail" ); глВнешняяПочта .СерверОтправки ="192.168.10.10" ; глВнешняяПочта .СерверПриема ="192.168.10.10" ; глВнешняяПочта .Логин ="Test" ; глВнешняяПочта .Пароль ="*****" ; глВнешняяПочта .АутентификацияПриОтправке =0 ; Иначе Сообщить("Не удалось загрузить почтовую компоненту!!!" ,"!!!" ); Сообщить("Робот работать не будет!" ,"!!!" ); КонецЕсли; ОбработкаОжидания("глОбработкаОжиданияРобота" ,?(Константа.ИнтервалРобота =0 ,10 ,Константа.ИнтервалРобота )); Константа.ЕстьРобот =Перечисление.ДАНЕТ .Да ; КонецЕсли; КонецПроцедуры
Вернуться к статье "Работа с электронной почтой"
|