Работа с электронной почтой (Инициализация)   

Инициализация выполняется при загрузке 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,Константа.ИнтервалРобота));
        Константа.ЕстьРобот=Перечисление.ДАНЕТ.Да;
    КонецЕсли;
КонецПроцедуры

Вернуться к статье "Работа с электронной почтой"