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