Отправить счет программно

Alex7771, Гипервизор, paramedic, Группа неравнодушных, takefive, dergreche, Saval1986, Мультук, Prog_man, yurikmellon2, Ботаник Гарден Меран, spiller26, Beduin, sto-alex, DeeK, PLUT, Кир Пластелинин, Затейник, Crusher, SleepyHead, ndrv, Эх-эх-эх, Lama12, andy_minsk, Климов Сергей, Бычье сердце, slad, breezee, bolder, Страждущий, skafandr, Fish, YFedor, AleksNew, Zamestas, lubitelxml, Eiffil123, rozer76, n0ther, tir654, MWWRuza, okmail, Галахад, akronim, mmg, _Batoo, El_Duke, Sneer, Chai Nic, evorle145, Шаграм, Волшебник, СеньорПрограммист, alexxx961503, scanduta, 2S, arsik, Gucci76, coldsiemens, Злоп, Rico_1C, comp2006, lxndr, Олдж, Fregat, Доминошник, banco, КонецЕсли, maxar, Timon1405, RVN, vbus, ptiz, trk415e76, ОператорПК, АнализДанных, ads55, Garikk, zenik, PuhUfa, Хряк, elka302, maxab72, Ненавижу 1С, Санта Клаус

☑

0 Alex7771

05.11.26

✎

08:47

Конфа 1С БП 30
не подскажите, как отправить счет программно из 1с
т.е. есть ссылка на счет, например Док.Ссылка

письмо создаю ...
Письмо = Новый ИнтернетПочтовоеСообщение;
...

а вот как туда добавить сам файлик пдфный например печатной формы... ???

Письмо.Вложения.Добавить(????????

1 arsik

гуру

05.11.26

✎

08:54

В любой стандартной конфигурации на БСП есть отправка печатной формы почтой. Посмотри как делается и сделай так же.

2 yurikmellon2

05.11.26

✎

10:04

Функция ПослатьПоПочте(Знач Адрессаты,ТемаСообщения = "",СообщениеТекст = "" ,СписокВложений = "")Экспорт
	
	Профиль = Новый ИнтернетПочтовыйПрофиль;   
	Профиль.Пользователь 		 = "";
	Профиль.Пароль 				 = "";   
	Профиль.АутентификацияSMTP   = СпособSMTPАутентификации.Login;
	Профиль.АдресСервераSMTP 	 = ""; 
	Профиль.ПарольSMTP 			 = ""; 
	Профиль.ПользовательSMTP	 = ""; 
	Профиль.ПортSMTP			 = 587;
	
	ТекстСообщения	 = ?(СообщениеТекст="","",СообщениеТекст);
	
	Почта = Новый ИнтернетПочта; 
	Попытка
		Почта.Подключиться(Профиль);
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат Ложь;
	КонецПопытки;
	
	Сообщение = Новый ИнтернетПочтовоеСообщение;
	Сообщение.Отправитель = "messages@pochta.ru";
	Сообщение.Получатели.Добавить(Адрессаты);
	Сообщение.Тема = ?(ТемаСообщения="","Тут тема", ТемаСообщения);
	Сообщение.Тексты.Добавить(ТекстСообщения,ТипТекстаПочтовогоСообщения.HTML);
	
	Если ТипЗнч(СписокВложений) = Тип("Строка") И Не СписокВложений = "" Тогда
		Попытка
			Сообщение.Вложения.Добавить(СписокВложений);
		Исключение
		КонецПопытки;
	ИначеЕсли ТипЗнч(СписокВложений) = Тип("СписокЗначений") Тогда
		Для каждого ПутьКВложению Из СписокВложений Цикл
			Попытка
				Сообщение.Вложения.Добавить(ПутьКВложению.Значение);
			Исключение
			КонецПопытки;
		КонецЦикла;
	КонецЕсли;
	
	Попытка
		Почта.Послать(Сообщение);
	Исключение
		Сообщить(ОписаниеОшибки());
		Почта.Отключиться();	
		Возврат Ложь;
	КонецПопытки;
	Почта.Отключиться();	
	
КонецФункции

3 yurikmellon2

05.11.26

✎

09:17

блин, я забыл какой тег используется для выделения кода. Вроде <1c></1c>, но что то не работает

4 Мультук

гуру

05.11.26

✎

09:19

(1)

Кому сейчас нужны эти удочки...

P.S.
Увы

5 Волшебник

05.11.26

✎

09:49

(3) тег PRE из правой панели оформления

6 yurikmellon2

05.11.26

✎

10:04

(5) 👍

7 Alex7771

05.11.26

✎

11:23

(2) спс, больше интересовало как сам пдфник с печатной формой по док.Ссылка сформировать программно ( и в список вложений к примеру из кода поместить ) , база SQL

8 yurikmellon2

05.11.26

✎

11:44

(7) так стандартно, формируешь свою печатку в табличный документ, кладёшь в темп и отправляешь

   ТабДок      = Новый ТабличныйДокумент;

	ИмяФайла = КаталогВременныхФайлов() + "ИмяФайла") + ".pdf";
	
	ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.pdf);
	
	Попытка
		ПослатьПоПочте(Адрес, Тема, Текст, ИмяФайла);
	Исключение
		Сообщить("Ошибка при отправке почты: " + ОписаниеОшибки());
	КонецПопытки;

9 Alex7771

05.11.26

✎

11:55

(8) а на SQL каталог временных файлов сработает ?

не так надо ?

Поток = Новый ПотокВПамяти;
ТабДок.Записать(Поток,ТипФайлаТабличногоДокумента.PDF);
ДД = Поток.ЗакрытьИПолучитьДвоичныеДанные();
Письмо.Вложения.Добавить(ДД,"Счет.pdf");