Отправка почты с использованием основного почтового клиента ОС

29.08.2014 19 Comments

Разработка, Универсальные функции


    рисунок 1
    рисунок 2
В публикации описан фрагмент кода, позволяющий отправлять печатные формы с помощью почтового клиента операционной системы (напр. Outlook, Bat и т.д.)

В Управлении торговлей 10.3 в печатных формах документов есть кнопка «отправить по электронной почте», правда ей можно воспользоваться,  если в настройках учета установлена галка «использовать встроенный почтовый клиент». Т.к. встроенный почтовый клиент часто не используют, этот удобный механизм не задействуется. Поэтому для отправки печатной формы накладной необходимо ее сначала сохранить на диск, затем вложить в письмо внешнего почтового клиента.

 Ниже описаны изменения в конфигурации, которые необходимо внести, для автоматического создания письма во внешнем почтовом клиенте по  кнопке «отправить по электронной почте «. Тестировалось для 8.1 УТ 10.3.

  1. Для начала в конфигураторе, если не включена возможность изменений, ее необходимо включить (конфигурация — поддержка- настройка поддержки)

  2. Добавить общий модуль «_управлениеПочтой» (см. рис2), в него скопировать процедуры: «ОтправитьПечатнуюФормуВнешнимТранспортом» и «КорректировкаНаименования» (ниже приведены см. п. 4).

  3. В общем модуле «УправлениеОтчетами» отредактировать процедуру «ОтправитьДокументПоЭлектроннойПочте«, закомментировав сообщение и добавив вызов нашей процедуры «ОтправитьПечатнуюФормуВнешнимТранспортом«. Редактируемый фрагмент этой процедуры: 

Если НЕ Константы.ИспользованиеВстроенногоПочтовогоКлиента.Получить() Тогда

    //ОбщегоНазначения.СообщитьОбОшибке("Отправлять документы по электронной почте можно только из встроенного почтового клиента.

    // |В настоящее время в настройках параметров учета установлено использование основного почтового клиента операционной системы.");

    //Предупреждение("Операция не выполнена");

    _управлениеПочтой.ОтправитьПечатнуюФормуВнешнимТранспортом (Документ, УправлениеПользователями.ПолучитьЗначениеПоУмолчанию     (ПараметрыСеанса.ТекущийПользователь,"ОсновнойКаталогФайлов"),ИмяФайлаВложения); // изменения программиста начало 

    Возврат; 

КонецЕсли;

     4. Текст модуля  _управлениеПочтой: 


Процедура ОтправитьПечатнуюФормуВнешнимТранспортом (ПолеТабличногоДокумента, КаталогФормирования="",имяФайлаВложения) Экспорт



    Расширение="xls";



    Файл = Новый Файл(КаталогФормирования);

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

        ИмяФайла = КаталогФормирования;

    Иначе

        ИмяФайла = КаталогВременныхФайлов();

    КонецЕсли;



    Если Не ПустаяСтрока(ИмяФайла) Тогда

        Если Не Прав(ИмяФайла, 1) = "" Тогда

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

        КонецЕсли;

    КонецЕсли;



    ОтносительноеИмя =КорректировкаНаименования(имяФайлаВложения, ложь);

    ИмяФайлаБезРасширения = ИмяФайла + ОтносительноеИмя;



    ИмяФайла = ИмяФайлаБезРасширения + ".xls";

    ПолеТабличногоДокумента.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS97);



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

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

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

    Сообщ.Тема=имяФайлаВложения;

    Сообщ.Текст="";

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

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

        Данные=Новый ДвоичныеДанные(ИмяФайла);

        Сообщ.Вложения.Добавить(Данные,ВыбФайл.Имя);

    КонецЕсли;

    //УчетнаяЗапись=УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь,"ОсновнаяУчетнаяЗапись");

    //Сообщ.Получатели.Добавить(УчетнаяЗапись.АдресЭлектроннойПочты);

    Почта.Послать(Сообщ,);

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



    Попытка

        УдалитьФайлы(ИмяФайла);

        //Сообщить("Удален файл "+ИмяФайла);

    Исключение

        Сообщить(ОписаниеОшибки());

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



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





Функция КорректировкаНаименования(Знач ИсходнаяСтрока, Выводитьсообщения=Истина) 



    Наименование=СокрЛП(ИсходнаяСтрока); 

    ДлиннаНаим=СтрДлина(Наименование); 

    СписокЗаменяемыхимволов=новый СписокЗначений; 



    Если ДлиннаНаим=0 Тогда 

        Сообщение="Не заполнена проверяемая строка!"; 

        #Если Клиент Тогда 

            Если Выводитьсообщения Тогда 

                Сообщить(Сообщение); 

            КонецЕсли; 

        #КонецЕсли 

    КонецЕсли; 



    Для i=0 По ДлиннаНаим-1 Цикл   

        Стр=Прав(Наименование,ДлиннаНаим-i);   

        // руск. алф. 192- 255 англ. алф. мал. 65-90 англ. алф. бол. 97-122 пробел=32 цифры АSCI дес. 

        Если (((КодСимвола(Стр)>1039) И (КодСимвола(Стр)<1106)) ИЛИ ((КодСимвола(Стр)>64) И (КодСимвола(Стр)<94)) ИЛИ ((КодСимвола(Стр)>96) И (КодСимвола(Стр)<123)) ИЛИ ((КодСимвола(Стр)>47) И (КодСимвола(Стр)<58)) И (КодСимвола(Стр)<>32)) Тогда 

        Иначе 

            СписокЗаменяемыхимволов.Добавить(Лев(Стр,1)); 

        КонецЕсли; 

    КонецЦикла; 



  Для каждого ЭлементСписка Из СписокЗаменяемыхимволов Цикл 

      Если ЭлементСписка.Значение=" " Тогда 

          Наименование=СтрЗаменить(Наименование,ЭлементСписка.Значение,"_"); 

          Сообщение="В наименование колонки "+ИсходнаяСтрока+" встречается недопустимый символ (пробел) "+ЭлементСписка.Значение+", он будет заменен на '_'"; 

          #Если Клиент Тогда 

              Если Выводитьсообщения Тогда 

                  Сообщить(Сообщение); 

              КонецЕсли; 

          #КонецЕсли 

      Иначе 

          Наименование=СтрЗаменить(Наименование,ЭлементСписка.Значение,""); 

          Сообщение="В наименование колонки "+ИсходнаяСтрока+" встречается недопустимый символ "+ЭлементСписка.Значение+", он будет удален"; 

          #Если Клиент Тогда 

              Если Выводитьсообщения Тогда 

                  Сообщить(Сообщение); 

              КонецЕсли; 

          #КонецЕсли   

        КонецЕсли 

    КонецЦикла; 

    Возврат Наименование; 

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

Related Posts

19 Comments

  1. Администратор 1С

    В публикации описан фрагмент кода, позволяющий отправлять печатные формы с помощью почтового клиента операционной системы (напр. Outlook, Bat и т.д.)

    Перейти к публикации

    Reply ↓
  2. Angeros

    Спс. Идея обязательно пригодиться.

    Reply ↓
  3. sstar90

    Спасибо за идею, попробуем

    Reply ↓
  4. CheBurator

    как в снеговике это с извращениями сделано…

    открой для себя

    1. встроенный в винды штатный транспорт отправки писем CDO

    .

    на 7.7 в любой конфигурации для ЛЮБОГО отчета достаточно всего одной обработки

    http://infostart.ru/public/14180/

    http://infostart.ru/public/14131/

    Reply ↓
  5. Администратор 1С

    (3) CheBurator,

    О CDO знаю, твои обработки конечно хороши, но есть недостаток — письмо отправленное через CDO не сохранится в корпоративной почте в папке исходящие.

    Reply ↓
  6. Администратор 1С

    (3) а этот момент иногда является принципиальным

    Reply ↓
  7. Kazan

    Не проходит авторизацию пока ручками не откроешь клиент. win live mail 2011

    Reply ↓
  8. plevako

    Мне помогло, спасибо.

    Reply ↓
  9. MYRZILKA123

    спасибо попробовал теперь пользуюсь.

    Reply ↓
  10. Sanek_159

    Здравствуйте!

    Конфигурация УПП 1.3.25

    Когда делаю отправку из 1C появляется окно с сообщением: «С запрошенным действием не связана программа электронной почты.Установите программу электронной почты или,если она уже установлена,создайте связь в панели управления «Программы по умолчанию»»

    Если вхожу в Панель управления-Программы по умолчанию там всегда выбрана конфигурация Другая. Редактирую ее-выставляю Mozilla Thunderbird как почтовую программу по умолчанию, жму ОК. Перезахожу-все остается на своих местах. Если выбираю другую конфигурацию(Microsoft Windows или Не Microsoft) то все равно активной остается конфигурация Другая.

    PS: пробовал с другого ПК где установлен outlook 2010, ничего не происходит и ошибка не вываливается. Подскажите, пожалуйста, что может быть не так?

    Reply ↓
  11. Администратор 1С

    Я не силен в настройках ОС, а я так понимаю дело именно в них. Код рабочий. У вас работает пункт меню Windows «отправить->адресат», вызываемый по щелчку правой кнопки мыши на любом файле?

    Вот что яндекс говорит, может поможет: «http://forum.windowsfaq.ru/showthread.php?t=91294»

    Reply ↓
  12. haous

    А для УТП для Украины 8.2 подойдет?

    Reply ↓
  13. Администратор 1С

    Попробуйте,

    скорее всего да

    Reply ↓
  14. BlackStar

    А с MS Outlook работает у кого нибудь? У меня при нажатии на отправку на секунду часы появляются, и больше ничего, почтовый клиент не открывается. При этом пункт меню Windows «отправить->адресат» работает нормально

    Reply ↓
  15. isn

    Здравствуйте!

    Вы можете в пункте 3 опубликовать всю процедуру которая в итоге должна появится?

    Reply ↓
  16. Администратор 1С

    (14) isn,

    В моем релизе (10.3.10.14) она с учетом моих правок выглядит так:

    Процедура ОтправитьДокументПоЭлектроннойПочте(Документ, ИмяФайлаВложения = «») Экспорт

    Если НЕ Константы.ИспользованиеВстроенногоПочтовогоКлиента.Получить() Тогда

    //ОбщегоНазначения.СообщитьОбОшибке(«Отправлять документы по электронной почте можно только из встроенного почтового клиента.

    // |В настоящее время в настройках параметров учета установлено использование основного почтового клиента операционной системы.»);

    //Предупреждение(«Операция не выполнена»);

    _управлениеПочтой.ОтправитьПечатнуюФормуВнешнимТранспортом (Документ, УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь,»ОсновнойКаталогФайлов»),ИмяФайлаВложения); //изменения программиста

    Возврат;

    КонецЕсли;

    ФормаОтправкиДокумента = ПолучитьОбщуюФорму(«НастройкаОтправкиОтчета»);

    ФормаОтправкиДокумента.Отчет = Документ;

    ФормаОтправкиДокумента.ИмяФайлаВложения = СтрЗаменить(ИмяФайлаВложения, «.», » «);

    ФормаОтправкиДокумента.ТемаСообщения = ИмяФайлаВложения;

    ФормаОтправкиДокумента.ОткрытьМодально();

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

    Reply ↓
  17. Sanek_159

    (13) BlackStar, Тоже не открывается (Outlook 2010), часы на секунду и все. Удалось решить кому проблему?

    При использовании программы по умолчанию Mozilla Thunderbird открывается только программа, но не создается новое письмо, в чем может быть проблема?

    Reply ↓
  18. AHuk

    Спасибо огромное. Но есть вопрос, как передать тему и текст и получателя — это ясно, но можно ли передать текст в HTML коде? и у меня вложения в виде «v8_C56_7a.tmp» формируется, в чём может быть проблема?

    Reply ↓
  19. Программулькин

    Сначала хотел плюсануть, НО затем решил попробовать. Захотелось поставить минус, ибо не заработало, НО минусовать не буду. Насколько я понял, смысл статьи показать на примере использования функции глобального контекста: Почта (Mail)

    Методы:

    Выбрать (Get)

    Отключиться (Logoff)

    Подключиться (Logon)

    Послать (Send)

    Конструкторы:

    По умолчанию

    Описание:

    Предназначен для доступа к почтовой системе, установленной на компьютере. Используется технология MAPI.

    Доступность:

    Тонкий клиент, толстый клиент.

    Пример:

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

    Как показывает практика не всегда работает.

    Лучше использовать код ниже, НО естественно переделать по своим примочкам и условиям, ибо он вообще не универсальный. А вот сделать симбиоз этих 2х методов, тогда может что то и получиться хорошее.

    ИмяФайла = «файл.XLS»;

// Попытка инициализации Outlook
Попытка
Outlook = Новый COMОбъект(«Outlook.Application»);
Исключение
Предупреждение(«Не получилось создать объект Outlook.Application!»);
Возврат;
КонецПопытки;

// Попытка сохранения отчета
Попытка
ЭлементыФормы.ПолеТабДок.Записать(КаталогВременныхФайлов() + ИмяФайла, ТипФайлаТабличногоДокумента.XLS);
Исключение
Предупреждение(«Не удалось создать файл » + ИмяФайла + «!»);
Возврат;
КонецПопытки;

// Заполнение реквизитов письма
Письмо = Outlook.CreateItem(0);
Письмо.Subject = «Какая то тема»;                       // Тема
Письмо.Body    = «Какойто текст»; // Текст письма
//Письмо.to      = «»;                // Адрес получателя
Письмо.Attachments.Add(КаталогВременныхФайлов() + ИмяФайла); // Вложение

// Попытка открытия подготовленного письма
Попытка
Письмо.Display();
Исключение
КонецПопытки;

    Показать

    Reply ↓

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *