Отключен JavaScript

У вас отключен JavaScript. Некоторые возможности системы не будут работать. Пожалуйста, включите JavaScript для получения доступа ко всем функциям.

0

Отправка отчета по почте

Автор sss2, 22 фев 2012 10:44

Вы не можете ответить в тему
Перейти к первому непрочитанному сообщению

Сообщений в теме: 9

#1 sss2

Активист

326 сообщений

Отправлено 22 февраля 2012 - 10:44

Подскажите как сделать,чтобы можно было свой отчет,собранный в СКД,отправлять по почте... ?

Наверх

#2 alexburn

Suum cuique

4 654 сообщений

Отправлено 22 февраля 2012 - 10:47

Посмотреть в типовой не судьба?

Кстати, начните с Как указать версии платформы и конфигурации? .

Героем можешь ты не быть,
Но человеком быть обязан!

Если вам помог мой ответ, просьба сказать спасибо вот такой

кнопкой рядом с сообщением.

Наверх

#3 sss2

Активист

326 сообщений

Отправлено 22 февраля 2012 - 11:03

alexburn (22 февраля 2012 - 10:47) писал:

Посмотреть в типовой не судьба?

Кстати, начните с Как указать версии платформы и конфигурации? .

Такой механизм работает в счетах на оплату,но я там что-то не разобрался совсем.Может подскажите кодом или на словах ? =)
1с 8.2 УПП 1.3.22.1

Наверх

#4 alexburn

Suum cuique

4 654 сообщений

Отправлено 22 февраля 2012 - 11:12

Вот код, нашел в инете за 5 сек.

ИнПочта   = Новый ИнтернетПочта;		  
ИнПрофиль = Новый ИнтернетПочтовыйПрофиль;		  
ИнПрофиль.АдресСервераPOP3=Объект.ПрофильПочты.АдресСервераPOP3;	
ИнПрофиль.АдресСервераSMTP=Объект.ПрофильПочты.АдресСервераSMTP;	
ИнПрофиль.Пользователь=Объект.ПрофильПочты.Пользователь;	
ИнПрофиль.ПользовательSMTP=Объект.ПрофильПочты.ПользовательSMTP;	
ИнПрофиль.Пароль=Объект.ПрофильПочты.Пароль;	
ИнПрофиль.ПарольSMTP=Объект.ПрофильПочты.ПарольSMTP;	
ИнПрофиль.ПортSMTP = 25;  
ИнПрофиль.ПортPOP3 = 110;	
ИнПрофиль.АутентификацияSMTP    = СпособSMTPАутентификации.Login;	
ИнПрофиль.POP3ПередSMTP=Истина;		  
Сообщение = Новый ИнтернетПочтовоеСообщение;		  
Сообщение.Отправитель.Адрес=Объект.ПрофильПочты.Адрес;	
Сообщение.Отправитель.ОтображаемоеИмя=Объект.Организация.Наименование;	
//Сообщение.Отправитель.Сервер=Объект.ПрофильПочты.АдресСервераSMTP;	
//Сообщение.Отправитель.Пользователь=Объект.ПрофильПочты.ПользовательSMTP;	
Сообщение.Тема="Ответ по заявке № "+Объект.СсылкаНаПроцесс.Заявка.Номер+" от "+Объект.СсылкаНаПроцесс.Заявка.Дата;		  
Получатель=Сообщение.Получатели.Добавить(Объект.Контрагент.Email);
Попытка		  
ИнПочта.Подключиться(ИнПрофиль);	
Исключение		  
Сообщить("При подключени к серверу произошла ошибка! Проверти учетные данные профиля почты.", СтатусСообщения.Важное);	
КонецПопытки;		  
Текст=Сообщение.Тексты.Добавить();	
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML;	
ТекстПисьма="";	  ВложенияПисьма="";	
ТекстПисьмаФорматированный.ПолучитьHTML(ТекстПисьма,ВложенияПисьма);	
Текст.Текст=ТекстПисьма;		  
Попытка		  
ИнПочта.Послать(Сообщение);		  
ЭтаФорма.Доступность=Ложь;	  
Сообщить("Письмо для "+Объект.Контрагент.Email+" отправлено!");	  Исключение		  
Сообщить("При отправке возникли проблемы. Письмо не отправлено. Проверти правильность заполнения профиля и почты контрагента.",СтатусСообщения.Важное)	
КонецПопытки;

Прежде чем обращаться на форум, рекомендую сначала использовать гугл или поиск по форуму.

Героем можешь ты не быть,
Но человеком быть обязан!

Если вам помог мой ответ, просьба сказать спасибо вот такой

кнопкой рядом с сообщением.

Наверх

#5 sss2

Активист

326 сообщений

Отправлено 22 февраля 2012 - 11:16

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