Имя: Пароль:
1C
1С v8
как у 1с 8.2 сделать кнопку отправить по email
0 Pechenuych_ka
 
14.08.12
14:21
Сделала внешнюю обработку для накладной, с сайта получаю бланк офорлення ТТН, а данные заполняются из моей обработки ... Сделала кнопку оформить накладную, и получаю печатную форму документа. Но мне надо ее отправить по мылу другим, как правильно написать код к кнопке, чтобы эту печатную накладную можно было посмотреть потом отправить по мылу?
1 DrShad
 
14.08.12
14:23
для начала фотку в личку
2 ДенисЧ
 
14.08.12
14:23
Процедура ОтправитьФайл(табДок, Получатель)
   АдресОтправки = Получатель;
   
   Почта = Новый ИнтернетПочта;
   
   Профиль                        = Новый ИнтернетПочтовыйПрофиль;
   Профиль.АдресСервераPOP3    = "pop-server";
   Профиль.АдресСервераSMTP    = "smtp-server";
   Профиль.Пользователь        = "user";
   Профиль.ПользовательSMTP    = "user";
   Профиль.Пароль                = "123";
   Профиль.ПарольSMTP            = "123";
   
   Почта.Подключиться(Профиль);
   
   письмо                    = Новый ИнтернетПочтовоеСообщение;
   письмо.ИмяОтправителя    = "Я, робот, великий и ужасный";
   Если Найти(АдресОтправки, ";") = 0 Тогда
       письмо.Получатели.Добавить(АдресОтправки);
   Иначе
       мАдреса = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(АдресОтправки, ";");
       Для каждого адрес из мАдреса Цикл
           письмо.Получатели.Добавить(адрес);
       КонецЦикла;
   КонецЕсли;
   письмо.Тема                = ЭтаФорма.Заголовок;
   
   имяФайла = ПолучитьИмяВременногоФайла("xls");
   табДок.Записать(имяФайла, ТипФайлаТабличногоДокумента.XLS97);
   
   письмо.Тексты.Добавить(ЭтаФорма.Заголовок);
   письмо.Вложения.Добавить(имяФайла);
   
   Почта.Послать(письмо);
   
   Почта.Отключиться();
   
   Попытка
       УдалитьФайлы(имяФайла);
   Исключение
   КонецПопытки;
   
КонецПроцедуры
3 Pechenuych_ka
 
15.08.12
12:55
Спасибо)))Но там html поле, и этот код не подойдет..я сделала по другому...я вместо печати вытаскиваю ссылку этого поля, и  её уже отправлю
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.