строказапуска » Поиск

Результаты по ключевому слову: строказапуска

Как очистить кэш 1С? Категория: Администрирование

Создание писем, событий и задач в MS Outlook из 1С

Отправка писем из 1С Предприятия – одна из самых необходимых функций, отсутствующая в штатном функционале платформы. Один из вариантов реализации – это подключение к MS Outlook по технологии OLE. В статье приведены примеры создания писем, событий и задач в MS Outlook из 1С. Автоматическое создание событий и задач используется не часто, но порой бывает очень удобно.

Для 1С 8.х замените

Код 1C v 7.x

 Outlook = СоздатьОбъект("Outlook.Application");

на

Код 1C v 8.х

 Outlook = Новый COMОбъект("Outlook.Application");

так же посмотрите: Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом

Создание сообщения

Код 1C v 7.x

  //создать новое сообщение из 1С в MS Outlook

Процедура СоздатьПисьмо(Адрес,ПутьКВложению)



       Попытка

             Outlook = СоздатьОбъект("Outlook.Application");

             ЕстьОшибка = 0;

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             ЕстьОшибка = 1;

       КонецПопытки;

      

       Если ЕстьОшибка = 0 Тогда



             Письмо = Outlook.CreateItem(0);

             Письмо.Subject = "Тема письма";

             Письмо.Body = "Текст письма";

             Письмо.Recipients.Add(Адрес);



             Если ФС.СуществуетФайл(ПутьКВложению)=1 Тогда

                   Письмо.Attachments.Add(ПутьКВложению);

             КонецЕсли;



             Письмо.Display();

       Иначе

             Тема = "Тема письма";

             ТекстПисьма = "Текст письма";

             СтрокаЗапуска = "mailto:" + Адрес + "?subject=" + Тема + "&body=" + ТекстПисьма;

             ЗапуститьПриложение(СтрокаЗапуска);

       КонецЕсли;

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

Создание события

Код 1C v 7.x

 //создать запись в календаре событий из 1С в MS Outlook

Процедура СоздатьСобытие()

       Попытка

            Outlook = СоздатьОбъект("Outlook.Application");

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             Возврат;

       КонецПопытки;



       Событие = Outlook.CreateItem(1);

       Событие.Subject = "Название события";

       Событие.Start = "15.01.2010 15:00:00";

       Событие.End = "15.01.2010 16:00:00";

       Событие.Body = "Описание события";

       Событие.Location = "Место события";

       Событие.ReminderMinutesBeforeStart = 15;

       Событие.BusyStatus = 0;

       Событие.MeetingStatus = 0;

       Событие.Sensitivity = 2;

       Событие.Save();

       Сообщить("Событие в календаре создано успешно","i");

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

Создание задачи

Код 1C v 7.x

 //создать новую задачу из 1С в MS Outlook

Процедура СоздатьЗадачу(ДатаСтартаЗадачи)



       Попытка

             Outlook = СоздатьОбъект("Outlook.Application");

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             Возврат;

       КонецПопытки;

      

       Задача = Outlook.CreateItem(3);

       Задача.Subject = "Название задачи";

       Задача.StartDate = ДатаСтартаЗадачи;

       Задача.Body = "Описание задачи";

       Задача.Status = 0;

       Задача.Display();

       Задача.Importance = 2;

       Задача.ReminderSet = 1;

       Задача.ReminderTime = "" + ДатаСтартаЗадачи + " 9:00:00";

       //Задача.Save();

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

Категория: Работа с Microsoft Office и OpenOffice

Как из скрипта VBS запустить 1C, чтобы окно программы не видно было? Категория: Администрирование

Синхронизация системного Времени по запросу

Реализовано для защиты от "умных" пользователей, которые делают то что не нужно делать (ручное изменение даты и времени). В рабочей конфигурации используется при синхронизации времени в ЭККА (кассовый аппарат) при закрытии рабочей смены.

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

Батник = Новый ТекстовыйДокумент;

Батник.ДобавитьСтроку("echo off");

Батник.ДобавитьСтроку("w32tm /config /syncfromflags:manual /manualpeerlist:ntp.time.in.ua");

Батник.ДобавитьСтроку("w32tm /config /update");

Батник.ДобавитьСтроку("w32tm /resync > c:\res_set_time.txt");

Батник.Записать("c:\settime.bat",КодировкаТекста.OEM);



WshShell = Новый COMОбъект("WScript.Shell");

//WshExec = WshShell.Exec("c:\settime.bat");

СтрокаЗапуска = "c:\settime.bat";

WshShell.Run(СтрокаЗапуска,0,Истина);



Результат = Новый ТекстовыйДокумент;

Попытка

Результат.Прочитать("c:\res_set_time.txt",КодировкаТекста.OEM);

Исключение

Сообщить("Ошибка открытия файла!");

Возврат;

КонецПопытки;

Рез = Результат.ПолучитьСтроку(2);

Сообщить(?(Найти(Рез,"успешно") > 0,"ОК!","Не удалось"));

Попытка

УдалитьФайлы("c:\settime.bat");

УдалитьФайлы("c:\res_set_time.txt");

Исключение

КонецПопытки;

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

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

Категория: Работа с Датами (Временем)

Сохранение рабочей конфигурации в файл средствами встроенного языка

Как сохранить рабочую конфигурацию из конфигуратора знают все, но это не всегда удобно. Мне понадобилось сохранять рабочую конфигурацию и тут-же этот файл обрабатывать. Предлагаю простую процедуру:

Код 1C v 8.х

 // функция сохраняет рабочую конфигурацию в файл, в случае успеха возвращает Истина

// параметры:

//    Логин - имя пользователя с правами на админисирирование БД

//    Пароль - строка пароля

//    ИмяФайла - полное имя файла для сохранения конфигурации, не обязательно. 

//               по умолчанию использует каталог временных файлов и имя 1Cv8.cf

функция СохранитьТекущуюКонфигурацию (Логин, Пароль, ИмяФайла="") экспорт

    результат = Ложь;

    

    Если ИмяФайла = "" Тогда

        ИмяФайла = КаталогВременныхФайлов() + "1Cv8.cf";        

    КонецЕсли;

    

    СтрокаБазы = СтрокаСоединенияИнформационнойБазы();

    Если Лев(СтрокаБазы, 5) = "File=" Тогда

        // файловый вариант

        СтрокаБазы = Сред(СтрокаБазы, 6, СтрДлина(СтрокаБазы) - 6);

    Иначе

        // серверный вариант пока не готов...

                // может кто допишет?

        возврат Ложь;

    КонецЕсли;

    

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Сигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения()); 

    Иначе

        Сигнатура = "";

    КонецЕсли;

    

    СтрокаЗапуска = """" + КаталогПрограммы() + "1cv8.exe"" CONFIG /F " + СтрокаБазы 

                + ?(Логин = "", "", " /N " + Логин) 

                + ?(Пароль = "", "", " /P " + Пароль) + " /DumpDBCfg """ + ИмяФайла + """";

                

    //            

    // КомандаСистемы (СтрокаЗапуска); не работает!!!!! из-за кавычек в параметрах

    // приходиться  идти кругом...

    // зато можно избежать черного окошка

    //

    WshShell = Новый COMОбъект("WScript.Shell");

    WshShell.Run(СтрокаЗапуска, 0, Истина);

    

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        НоваяСигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения());

        Если Сигнатура <> НоваяСигнатура Тогда

            Результат = Истина;

        КонецЕсли;            

    КонецЕсли;

    

    Возврат Результат;

КонецФункции

ну и пример использования (работает если нет пароля):

Код 1C v 8.х

 Функция  ЗаписатьКонфигурациюВФайл(ИмяФайла="")

    Результат = Ложь;

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Если ВыбФайл.ЭтоКаталог() Тогда

            ИмяФайла="";

        КонецЕсли;

    КонецЕсли;

    

    Попытка

        Массив = ПользователиИнформационнойБазы.ПолучитьПользователей();

        Логин = "";

        Пароль = "";

        Если Массив.Количество() > 0 тогда

            Пользователь = ПользователиИнформационнойБазы.ТекущийПользователь();

            Логин = Пользователь.Имя;

            Если Пользователь.ПарольУстановлен Тогда

                // тут нужно получить пароль, лучше интерактивно

                 // но лично мне это совсем не нужно

                Предупреждение("У Вас установлен пароль, этот режим сейчас не доступен");

                Возврат Ложь;

            КонецЕсли 

        КонецЕсли;

        

        Результат = СохранитьТекущуюКонфигурацию(Логин, Пароль, ИмяФайла);

        Если не Результат Тогда

            Предупреждение("Конфигурация не сохранена");

        Иначе

            Сообщить("Конфигурация успешно сохранена в файл: " + ИмяФайла);

        КонецЕсли;

        

    Исключение

        Предупреждение("У Вас не достаточно прав для сохранения конфигурации");

        Возврат Ложь;

    КонецПопытки;

    

    Возврат Результат;

КонецФункции

Автор статьи: vde69

Категория: Полезные, Универсальные Функции

Практическая работа с почтой (E-mail,The Bat, Outlook, Mozilla Thunderbird)

Код 1C v 8.х

 Попытка

    ОтправитьПоПочте2(ТекСтрока); // работает с Батом

Исключение

    Попытка

    ОтправитьПоПочте1(ТекСтрока); // работает с Аутлуком, но переспрашивает при отправке

    Исключение

        Сообщить_и_записать("Ошибка при отправке почты - "+ОписаниеОшибки(),СтатусСообщения.Важное);

    КонецПопытки;

КонецПопытки;



Процедура ОтправитьПоПочте1(ТекСтрока)

    Почта = Новый Почта;

    Сообщение = Новый ПочтовоеСообщение;

    //Работает с Аутглуком, но переспрашивает при отправке

    //не работает с Батом 3.60

    Почта.Подключиться("name@mysite.dp.ua","password");

   

    Сообщение.Вложения.Добавить(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));

    Сообщение.Получатели.Добавить(ТекСтрока.филиал.email);

    Сообщение.Тема ="Проигнорированные документы в офисе. Письмо сгенерированно роботом";

    Сообщение.Текст="Проверьте, будь ласка эти документы ПОСЛЕ получения обновления из офиса. Ваши изменения в этих документах не попали в базу. Откройте прикрепленный файл";

    Почта.Послать(Сообщение);

    Почта.Отключиться();

    УдалитьФайлы(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));

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



Процедура ОтправитьПоПочте2(ТекСтрока)

    ПочтовыйПрофиль = Новый ИнтернетПочтовыйПрофиль;

    ПочтовыйПрофиль.АдресСервераPOP3   = "pop3.mysite.dp.ua";

    ПочтовыйПрофиль.АдресСервераSMTP   = "smtp.mysite.dp.ua";

    ПочтовыйПрофиль.ПортSMTP           = 25;

    ПочтовыйПрофиль.ПортPOP3           = 110;

    ПочтовыйПрофиль.Пользователь       = "name";

    ПочтовыйПрофиль.Пароль             = "password";

    ПочтовыйПрофиль.ВремяОжидания      = 60;

       

    Сообщение = Новый ИнтернетПочтовоеСообщение ;

    Сообщение.Вложения.Добавить(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));

    Сообщение.Получатели.Добавить(ТекСтрока.филиал.email);

    Сообщение.Тема ="Проигнорированные документы в офисе. Письмо сгенерированно роботом";

    Сообщение.ИмяОтправителя="Обмен";

    Сообщение.Отправитель="name@mysite.dp.ua";

       

    Текст = Сообщение.Тексты.Добавить("Проверьте, будь ласка эти документы ПОСЛЕ получения обновления из офиса. Ваши изменения в этих документах не попали в базу. Откройте прикрепленный файл");

    Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;

   

    Почта = Новый ИнтернетПочта();

    Почта.Подключиться(ПочтовыйПрофиль);

    Почта.Послать(Сообщение);

    Почта.Отключиться();

    УдалитьФайлы(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));

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

А вот так 1с работает с Мозилой Сундербердом (который хорошо поддерживает IMAP):

Код 1C v 8.х

  ПутьМозиллы = """C:/Program Files/Mozilla Thunderbird/thunderbird.exe""";

    Текст = Новый ЗаписьТекста(КаталогОбмена + "sendfiletofilial"+Строка(ТекСтрока.филиал.наименование)+".bat", КодировкаТекста.OEM);

    Текст.ЗаписатьСтроку("@echo off");

    Текст.ЗаписатьСтроку("@echo Отправка проигнорированных писем на филиал"+Строка(ТекСтрока.филиал.наименование));

    СтрокаЗапуска = " -compose to='"+ТекСтрока.филиал.email+"',cc='name@mysite.dp.ua',subject=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",body=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",attachment=""file://";

    Файл = """"+ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование)+"""";

    Текст.ЗаписатьСтроку(ПутьМозиллы+СтрокаЗапуска +Файл);

    Текст.ЗаписатьСтроку("del "+Файл);

    Текст.Закрыть();

    ЗапуститьПриложение(КаталогОбмена + "sendfiletofilial"+Строка(ТекСтрока.филиал.наименование)+".bat",КаталогОбмена)

Получение почты

Код 1C v 8.х

 

Процедура КнопкаВыполнитьНажатие(Кнопка)

  Почта = Новый ИнтернетПочта;



    Профиль = Новый ИнтернетПочтовыйПрофиль;

    Профиль.АдресСервераPOP3 = "192.168.0.2";



    Профиль.Пользователь = "romix";

    Профиль.Пароль = "ТутНапишитеПароль";



    Почта.Подключиться(Профиль);



    МассивПисем = Почта.Выбрать(Ложь);



    Для Каждого Письмо из МассивПисем Цикл

        Сообщить("Получено письмо с заголовоком: "+Письмо.Тема);

        Для Каждого Вложение из Письмо.Вложения Цикл

            Сообщить("Вложение: "+Вложение.ИмяФайла);

            Вложение.Данные.Записать("c:\tempdata\"+Вложение.ИмяФайла);

        КонецЦикла;    

        Для Каждого Текст из Письмо.Тексты Цикл

            Сообщить("Текст: "+Текст.Текст);

            Текст.Данные.Записать("c:\tempdata\ТекстСообщения.txt");

        КонецЦикла;    

    КонецЦикла;



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

Автор: 1CLama

Категория: Работа с Интернет, Почтой (Mail), FTP