я во внешней обработке создала вызываю процедуру печать(счета на оплату), как мне отправить сразу это письмо? на форме обработке есть электронный адрес получателя. я нашла такой параметр, как параметрыОтправки, это структура, но как пользоваться этим?

отправить письмо и прикрепить этот счет на оплату. что самое плохое, вызываю печать с помощью процедуры(УправлениеПечатьюКлиент.ВыполнитьКомандуПечати("Обработка.ПечатьСчетовНаОплату","СчетНаОплату",МассивОбъектов,неопределено,ПараметрыПечати);), тоесть таб док мне не возвращается

(0) версия платформы?

(2) (8.3.5.1486)

Функция СформироватьПечатнуюФорму(Тип, МассивОбъектов, ОбъектыПечати) возвращает таб.док. его сохраняйте во временный файлик и прикрепляйте к письму

(4) + она находится в модуле менеджера, если что.

(4) + ну и естественно надо бы включить в администрировании почтовый клиент и настроить учетнуб запись

(4) как я поняла из внешней обработки можно только как в (1) вызывать печать, а так в модуле менеджера есть процедура печать, у которой последняя строка такая (ФормированиеПечатныхФорм.ЗаполнитьПараметрыОтправки(ПараметрыВывода.ПараметрыОтправки, МассивОбъектов, КоллекцияПечатныхФорм);) это наверное и отправить сообщение. еще нашла общий модуль управление электронной почтой, возможно и в к нему нужно обращаться. А как мне проверить ваш способ( с модулем менеджера), как к нему обратиться?

(7) можете не обращаться, просто скопируйте себе в обработку эту функцию, ибо она не экспортная :)
как отправлять, можете посмотреть в документе ЭлектронноеПисьмоИсходящее, например. Там есть кнопочка "отправить"

(8) + ну или можно воспользоваться внешними компонентами, например, cdo

(9) а можно использовать методы платформы Новый ИнтернетПочтовоеСообщение;

если уж делать по типовому, то как в (8).
Там ключевая строка это:
Взаимодействия.ВыполнитьОтправкуПисьма(ПисьмоОбъект);

(10) Это слишком просто...
(11) Т.е. Воспользоваться кодом от 1С, это типовой вариант? :)

(12) А что по вашему типовой вариант, если не использование кода типовой конфигурации?

(13) К примеру в моей конфе нет такой функции :(

(14) +1
а в моей хоть и есть но не поддерживает SSL

пытаюсь создать документ электронное письмо исходящее, он создается, но не отправляется письмо, и в списке его не видно, но записывается он.делаю так

ЭлПисьмо = Документы.ЭлектронноеПисьмоИсходящее.СоздатьДокумент();
    ЭлПисьмо.Автор = ПараметрыСеанса.АвторизованныйПользователь;
    ЭлПисьмо.Важность = Перечисления.ВариантыВажностиВзаимодействия.Обычная;
    ЭлПисьмо.Дата = ТекущаяДата();
    ЭлПисьмо.Ответственный = ПараметрыСеанса.АвторизованныйПользователь;
    ЭлПисьмо.СписокПолучателейПисьма = "[email protected]";
    ЭлПисьмо.ДатаАктуальностиОтправки = ТекущаяДата();
    ЭлПисьмо.ДатаКогдаОтправить = ТекущаяДата();
    ЭлПисьмо.ДатаОтправления = ТекущаяДата();
    Запрос = Новый Запрос;
    Запрос.Текст =    
     "ВЫБРАТЬ
     |    CRM_УчетныеЗаписиЭлектроннойПочты.УчетнаяЗапись
     |ИЗ
     |    РегистрСведений.CRM_УчетныеЗаписиЭлектроннойПочты КАК CRM_УчетныеЗаписиЭлектроннойПочты
     |ГДЕ
     |    CRM_УчетныеЗаписиЭлектроннойПочты.Пользователь = &Пользователь";
     Запрос.УстановитьПараметр("Пользователь", ЭлПисьмо.Ответственный);
     реззапроса = запрос.Выполнить();
     Выборка = РезЗапроса.Выбрать();
     Выборка.Следующий();
    ЭлПисьмо.CRM_Папка = Перечисления.CRM_ВидыПапокЭлектроннойПочты.Исходящие;     
    ЭлПисьмо.ОтправительПредставление = Выборка.УчетнаяЗапись;
    ЭлПисьмо.УчетнаяЗапись = Выборка.УчетнаяЗапись;
    ЭлПисьмо.Записать();

(16) статус установите. не видно потому что нет статуса (исходящие/отправленные)

(15) ssl не поддерживает не конфигурация а платформа. платформа тс ssl поддердивает.

(18) *поддерживает

(17) все равно ничего не появилось и не отправилось

(16) я создаю так, правда у меня 8.2, поэтому отправлять приходится через CDO. Плюс версия УТ я думаю у вас поновее

ЭД = Документы.ЭлектронноеПисьмоИсходящее.СоздатьДокумент();
    ЭД.Автор = ПараметрыСеанса.ТекущийПользователь;
    ЭД.Дата = ТекущаяДата();
    ЭД.ДатаОтправления = ТекущаяДата();
    ЭД.Ответственный = ПараметрыСеанса.ТекущийПользователь;
    ЭД.СтатусПисьма = Перечисления.СтатусыИсходящегоЭлектронногоПисьма.Отправлено;
    ЭД.СписокПолучателейПисьма = loCdoMessage.To;
    Получатель = ЭД.ПолучателиПисьма.Добавить();
    Получатель.Контакт = ЗаказСсылка.Партнер;
    ЭД.ОтправительПредставление = loCdoMessage.From;
    ЭД.Текст = ТекстСообщения;
    ЭД.Тема = loCdoMessage.Subject;
    ЭД.УчетнаяЗапись = РеквизитыОтправителя.Ссылка;
    ЭД.Записать(РежимЗаписиДокумента.Запись);

(20) как минимум надо указать адресата. по коду не вижу, кому собственно отправляете

(20) чтобы понять как заполнить документ, сначала отправьте себе какое нибудь тестовое письмо. Потом в консоли запросов посмотрите как заполнены реквизиты, и в коде заполняйте по аналогии

(23) + я имею ввиду отправьте вручную письмо из предприятия, из встроенного почтового клиента

(22) СписокПолучателейПисьма

(22) а что такое ЦДО?

(26) https://msdn.microsoft.com/en-us/library/ms526130(v=exchg.10).aspx

(25) попробуйте (23), поймете что не заполнено

(27) тут мне неполнятно ничего)

(28) сейчас попробую, мне больше всего не понятно почему в папке оно не появляется

(29) ну вобщем это микрософтовская библиотека для отправки писем по SMTP

(30) странно, у меня с кодом из (21) появляется

(25) там исчо есть ТЧ СписокПолучателейПисьма, может этого ему не хватает для счастья

(33) тьфу, т.е. ТЧ ПолучателиПисьма.

&НаКлиенте
Процедура ОтправитьПоПочте(Команда)
    
    СтруктураПисьма = ПолучитьЗначенияОтбора();
    ОткрытьФорму("Документ.ЭлектронноеПисьмоИсходящее.ФормаОбъекта", СтруктураПисьма);
    
КонецПроцедуры

&НаСервере
Функция ПолучитьЗначенияОтбора()
    
    УИ = Новый  УникальныйИдентификатор();
    //СоздатьКаталог(КаталогПрограммы() + УИ);
    //ВыбранныйФайл = КаталогПрограммы() + УИ + "\РасчетСтоимости.txt";
    
    СоздатьКаталог("C:\" + УИ);
    ВыбранныйФайл = "C:\" + УИ + "\РасчетСтоимости.txt";
    
    ФайлРегистрации = Новый ЗаписьТекста(ВыбранныйФайл, КодировкаТекста.ANSI, , Истина);
    ФайлРегистрации.Записать(Объект.РасчетСтоимости);
    ФайлРегистрации.Закрыть();
    
    ТемаПисьма = "Расчет стоимости пакетов от " + Объект.Дата;
    
    Адрес = "";
    
    Если ЗначениеЗаполнено(Объект.Партнер) Тогда
        для каждого строка из Объект.Партнер.КонтактнаяИнформация Цикл
            Если Строка.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты Тогда
                Адрес = строка.Представление;    
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;
    
    ЭлементыОтбора = Новый Структура("ВыбранныйФайл, Получатель, УИ, ТемаПисьма", ВыбранныйФайл, Адрес, УИ, ТемаПисьма);
    //ЭлментыОтбора = Новый Структура("Получатель, ТекстПисьма", Адрес, ТекстПисьма);
    ПараметрыФормы = Новый Структура("ЗначенияЗаполнения", ЭлементыОтбора);    
    
    Возврат ПараметрыФормы;
    
КонецФункции

В модуле письма обработка

//пробуем заполнить знч получателя из формы
    Попытка
        СтруктураЗагружаемогоПисьма = СтруктураЗаполнения;
        
        Объект.СписокПолучателейПисьма = СтруктураЗаполнения.Получатель;
        
        стр = Объект.ПолучателиПисьма.Добавить();
        стр.адрес = СтруктураЗаполнения.Получатель;
        
        //-
        
        Объект.Тема                = СтруктураЗаполнения.ТемаПисьма;
                
        ВыбранныйФайл = СтруктураЗаполнения.ВыбранныйФайл; // путь к файлу
        
        НоваяСтрока = Вложения.Добавить();
        НоваяСтрока.Расположение = 2;
        НоваяСтрока.ИмяФайлаНаКомпьютере = ВыбранныйФайл;
        
        ИмяФайла   = "";
        Расширение = "";
        ВзаимодействияКлиентСервер.ПолучитьКаталогИИмяФайла(ВыбранныйФайл, "", ИмяФайла);
        НоваяСтрока.ИмяФайла = ИмяФайла;

        Расширение                      = ВзаимодействияКлиентСервер.ПолучитьРасширениеФайла(ИмяФайла);
        НоваяСтрока.ИндексКартинки      = ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение);
        Файл                            = Новый Файл(ВыбранныйФайл);
        НоваяСтрока.Размер              = Файл.Размер();
        НоваяСтрока.РазмерПредставление = ВзаимодействияКлиентСервер.ПолучитьСтроковоеПредставлениеРазмераФайла(НоваяСтрока.Размер);
        
    Исключение
    
    КонецПопытки;

ОтправитьПереслатьВыполнить(""); // Если сразу отправить
    //-

блин у меня даже из пользовательского интерфейса не отправляется((( только тестовое письмо отправилось и всё

(36) в учетной записи все верно указали? сервер smtp, сервер pop3, порты к ним, учетку/пароль? какую ошибку пишет?

(36) не очень понятно, пишете не отправляется, но тестовое письмо отправилось... как же оно тогда отправилось?)

(38) ошибок вообще нету, я не знаю почему. настройки следующие: сервер - smtp.mail.ru, порт - 465, галка стоит использовать безопасное подключение,

(39) а вот только что пришло одно письмо, которое пол часа назад отправила

(40) но это из пользовательского режима

(41) ну и вот, теперь смотрите как заполнены реквизиты в документе, котороый отправился

(42) всё аналогично, и письма те которые программно отправлялись видно, но только надо открыть документ эл письмо исходящее, но они не пришли на почту

(43) посмотрите отладчиком, скорее всего отправка идет из попытки, поэтому не видите ошибку. если учетка настроена правильно должно все отправляться

и так, письмо просто записывается, а не отправляется, необходимо зайти в документы , нажать отправить - и тогда оно отправляется. тоесть я по сути только создаю его. как мне выполнить процедуру отправки письма?

парамПисьма.Вставить("Тело", "" + получитьТекстОстатков(датаДляОценкиОстатков) + txtHTML + ПолучитьТекстПодписи());
        
        массПараметров = новый Массив;
        массПараметров.Добавить(Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты);
        массПараметров.Добавить(парамПисьма);
        
        ФоновыеЗадания.Выполнить("РаботаСПочтовымиСообщениями.ОтправитьСообщение", массПараметров);

(45) естественно его надо отправить :D
сначала создали, затем отправили...
посмотрите (11)

у меня получилось)))) добавила две строчки вот может пригодится кому нибудь

ПараметрыПисьма = Документы.ЭлектронноеПисьмоИсходящее.ПолучитьПараметрыПисьмаДляОтправки(ЭлПисьмо);
    ИдентификаторПисьма = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(ЭлПисьмо.УчетнаяЗапись, ПараметрыПисьма);

(элПисьмо-документОбъект созданный)

(48) ну слава Нуралиеву, поздравляю вас )

(49) спасибо) и за помощь спасибо)

а как к письму прикрепить табличный документ? (49)

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

у ОтправитьСообщение() есть мощное описание

(53) у меня есть обработка, она сама создает документ рту, по кнопке отправить(на форме обработке). она формирует счетНаОплату, и в модуле форме я получаю табдок, пыталась отправить сообщение через документ электронное письмо, не вышло. а вы мне предлагаете через общий модуль обмен сообщениями? в нем же не передаваемых параметров типа вложение

// ПараметрыПисьма - структура - содержит всю необходимую информацию о письме:
//                   содержит следующие ключи:
//    Кому*      - Массив структур, строка - Интернет адрес получателя письма
//                 Адрес         - строка - почтовый адрес
//                 Представление - строка - имя адресата
//
//    Тема*      - строка - тема почтового сообщения
//    Тело*      - тело почтового сообщения (простой текст в кодировке win-1251)
//    Вложения   - соответствие
//                 ключ     - наименованиеВложения - строка - наименование вложения
//                 значение - ДвоичныеДанные - данные вложения

Я так отправляю (УчетнаяЗапись, EMail, sSubject, sBody, ПапкаВложений - реквизиты на форме)

sFrom = "[email protected]>";

Профиль = Новый ИнтернетПочтовыйПрофиль;
    
Профиль.АдресСервераSMTP   = УчетнаяЗапись.SMTPСервер;
Профиль.ПортSMTP           = УчетнаяЗапись.ПортSMTP;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Профиль.Пароль             = УчетнаяЗапись.Пароль;
Профиль.Пользователь       = УчетнаяЗапись.Логин;
    
Если УчетнаяЗапись.ТребуетсяSMTPАутентификация Тогда
    Профиль.ПарольSMTP       = УчетнаяЗапись.ПарольSMTP;
    Профиль.ПользовательSMTP = УчетнаяЗапись.ЛогинSMTP;
Иначе
    Профиль.ПарольSMTP       = УчетнаяЗапись.Пароль;
    Профиль.ПользовательSMTP = УчетнаяЗапись.Логин;
КонецЕсли;
    
ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
    
ПочтовоеСообщение.Отправитель = sFrom;
ПочтовоеСообщение.ИмяОтправителя = sFrom;
ПочтовоеСообщение.Тема = sSubject + " от " + sFrom;;
ПочтовоеСообщение.Получатели.Добавить(EMail);
    
КодировкаПисьма = "iso-8859-5"; //либо "koi8-r", либо "utf-8"
    
ТекстСообщения = ПочтовоеСообщение.Тексты.Добавить(sBody);
ТекстСообщения.Кодировка = КодировкаПисьма;
    
    
Если Не ПустаяСтрока(ПапкаВложений) Тогда
    
    МассивФайлов = НайтиФайлы(ПапкаВложений, "*.*");
        
    Для каждого ТекФайл Из МассивФайлов Цикл
            
        ПолноеИмя = ТекФайл.ПолноеИмя;
            
        Попытка
                ПочтовоеСообщение.Вложения.Добавить(ПолноеИмя);
        Исключение
                ОбщегоНазначения.СообщитьОбОшибке("Ошибка при обработке файла " + ПолноеИмя);
            Продолжить;
        КонецПопытки;
            
            
    КонецЦикла;
    
КонецЕсли;

ИнтернетПочта = Новый ИнтернетПочта;
    
Попытка
    ИнтернетПочта.Подключиться(Профиль);
Исключение
    Сообщить("Ошибка при подключении к серверу / профилю электронной почты!");
    Возврат;
КонецПопытки;
            
ОтправкаУспешна = Истина;
    
Попытка
    ИнтернетПочта.Послать(ПочтовоеСообщение);
    Сообщить("Сообщение отправлено.");
Исключение
    ОтправкаУспешна = Ложь;
    ("Ошибка при отправке сообщения!");
КонецПопытки;
    
ИнтернетПочта.Отключиться();
    
Если Не ОтправкаУспешна Тогда
    Возврат;
КонецЕсли;

(56)+
ОбщегоНазначения.СообщитьОбОшибке() - это связано с тем, что отправка из 8.1 (УТ 10.3), но из 8.2 я думаю ненамного отличается.

(55) да, нашла, пытаюсь Вашим методом делать, там во вложениях тип двоичные данные передаются, а у меня табличный документ, не подскажите как быть?

(58) записать ТабДокумент в файл для начала

(59) спасибо Вам большое)) записала его во врем файл, и все отправилось)) спасибо большущеее)))