Отправка письма со вложенным файлом

[antoneus]

Кавычки в пути к файлу - это неправильно, их надо СтрЗаменить(ПутьКФайлу, """", "")

Что такое стрБумага?

[LexaK]

Код Выделить Развернуть


&НаСервере
Функция ПолучитьВалютуБумага(Ссылка)
       
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ЦифраМатериал.Наименование,
        |    ЦифраМатериал.Валюта КАК Валюта
        |ИЗ
        |    Справочник.ЦифраМатериал КАК ЦифраМатериал
        |ГДЕ
        |    ЦифраМатериал.Наименование = &Ссылка";
   
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
   
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
       
    Возврат РезультатЗапроса [0].Валюта;
КонецФункции

в поцедуре наКлиенте
    БумагаВалюта = ПолучитьВалютуБумага(стрБумага);
    Сообщить(БумагаВалюта);

Выводит пустое сообщение (просто какой-то тупняк жуткий)


а зачем так сложно? тем более с ошибками!

попробуйте так, гораздо проще

Код Выделить Развернуть


в поцедуре наКлиенте
    БумагаВалюта = ПолучитьВалютуБумага(стрБумага);
    Сообщить(БумагаВалюта);

&НаСервере
Функция ПолучитьВалютуБумага(Ссылка)
Если ТипЗнч(Ссылка) = Тип("СправочникСсылка.ЦифраМатериал") Тогда
Валюта = Ссылка.Валюта;
Иначе
Валюта = Неопределено;
КонецЕсли;
    Возврат Валюта; // и все!!!
КонецФункции



[Funt Фунтиков]

Кавычки в пути к файлу - это неправильно, их надо СтрЗаменить(ПутьКФайлу, """", "")

все тоже самое, письмо приходит без вложенного файла

Добавлено: 16 мая 2020, 00:45

Код Выделить Развернуть


&НаСервере
Функция ПолучитьВалютуБумага(Ссылка)
       
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ЦифраМатериал.Наименование,
        |    ЦифраМатериал.Валюта КАК Валюта
        |ИЗ
        |    Справочник.ЦифраМатериал КАК ЦифраМатериал
        |ГДЕ
        |    ЦифраМатериал.Наименование = &Ссылка";
   
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
   
    РезультатЗапроса = Запрос.Выполнить().Выгрузить();
       
    Возврат РезультатЗапроса [0].Валюта;
КонецФункции

в поцедуре наКлиенте
    БумагаВалюта = ПолучитьВалютуБумага(стрБумага);
    Сообщить(БумагаВалюта);

Выводит пустое сообщение (просто какой-то тупняк жуткий)


а зачем так сложно? тем более с ошибками!

в данном виде я хотя бы немного понимаю, а какие ошибки в этом запросе, может подскажите если не затруднит

[antoneus]

Вот это работает?

Интересно, страниц до десяти добьем тему?

[Funt Фунтиков]

Вот это работает?

Интересно, страниц до десяти добьем тему?

В понедельник проверю и обязательно отпишусь по ответу системы и ошибкам

[Dethmontt]

UPD: Если бы вы вручную захотели этот файл прикрепить к письму - где и как бы вы его взяли?

[Funt Фунтиков]

Кавычки в пути к файлу - это неправильно, их надо СтрЗаменить(ПутьКФайлу, """", "")

Что такое стрБумага?

все равно приходит пустое письмо без вложения

Добавлено: 18 мая 2020, 12:20

UPD: Если бы вы вручную захотели этот файл прикрепить к письму - где и как бы вы его взяли?

Добавил на форму кнопку, выбираю путь к файлу в ручную показывает путь E:\1C\принт_1С\Shtamp\Kroy\Sh_150.pdf.
Письмо приходит пустым без вложения, путь к файлу прописывает правильно, но почему-то сам файл не прикрепляет
Видимо проблема к прикреплением самого файла

Код Выделить Развернуть

СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();
    ПутьКБД = Сред(СтрокаСоединенияСБД, 7, СтрДлина(СтрокаСоединенияСБД) - 8);
//ПутьКФайлу = ПутьКБД + "\Shtamp\Kroy\"+ЭтаФорма.НомерШтампа+".pdf";
ПутьКФайлу = ЭтаФорма.ИмяФайла;
Сообщить(ПутьКФайлу);
    Вложение = Новый ДвоичныеДанные(СтрЗаменить(ПутьКФайлу, """", ""));


[antoneus]

Сдаюсь)

На крайний случай могу подцепиться по какому-нибудь ammyy или anydesk посмотреть на это чудо (а чудес не бывает).

[LexaK]

Funt Фунтиков,

в данном виде я хотя бы немного понимаю,

-очень интересно! что вы понимаете, когда пишите ТАКОЕ?

Код Выделить Развернуть


        |ГДЕ
        |    ЦифраМатериал.Наименование = &Ссылка";

[Funt Фунтиков]

Funt Фунтиков,

в данном виде я хотя бы немного понимаю,

-очень интересно! что вы понимаете, когда пишите ТАКОЕ?

Код Выделить Развернуть


        |ГДЕ
        |    ЦифраМатериал.Наименование = &Ссылка";

понимание структуры запроса и понимание и знание синтаксиса - разные вещи!

Добавлено: 18 мая 2020, 13:56

Сдаюсь)

На крайний случай могу подцепиться по какому-нибудь ammyy или anydesk посмотреть на это чудо (а чудес не бывает).

в процессе проб разных вариантов кода на пару строчек выдавала ошибку и они были закрыты.
сейчас все работает и итоговый код выглядит вот так:

Код Выделить Развернуть


//Подключение файла штампа
СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();
        ПутьКБД = Сред(СтрокаСоединенияСБД, 7, СтрДлина(СтрокаСоединенияСБД) - 8);
ПутьКФайлу = ПутьКБД + "\Shtamp\Kroy\"+ЭтаФорма.НомерШтампа+".pdf";
Сообщить(ПутьКФайлу);
        Вложение = Новый ДвоичныеДанные(СтрЗаменить(ПутьКФайлу, """", ""));

// Сформировать почтовый профиль.
// При отправке нет необходимости указывать настройки, связанные с POP сервером.
ИПП = Новый ИнтернетПочтовыйПрофиль;
ИПП.АдресСервераSMTP = "smtp.mail.ru";//для gmail, для других серверов может быть другой 
ИПП.ВремяОжидания = 30;
ИПП.Пользователь = "432286@mail.ru";
ИПП.Пароль = "***";
ИПП.ПользовательSMTP = "432286@mail.ru";
ИПП.ПарольSMTP = "***";
ИПП.ПортSMTP = 465;//для gmail, для других серверов может быть другой
ИПП.ИспользоватьSSLSMTP = Истина;
ИПП.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

// Создать сообщение.
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Получатели.Добавить(ЭтаФорма.Адрес);
Сообщение.Отправитель.Адрес = "432286@mail.ru";
Сообщение.Тема = "Срочно в номер!";
Сообщение.Тексты.Добавить("!"+ЭтаФорма.ИмяФайла);
Сообщение.Вложения.Добавить(Вложение,"прикрепленный файл.pdf");

// Подключиться и отправить.
Почта = Новый ИнтернетПочта;
Почта.Подключиться(ИПП);
Почта.Послать(Сообщение);
Почта.Отключиться();


Добавлено: 18 мая 2020, 13:59

Funt Фунтиков,

в данном виде я хотя бы немного понимаю,

-очень интересно! что вы понимаете, когда пишите ТАКОЕ?

Код Выделить Развернуть


        |ГДЕ
        |    ЦифраМатериал.Наименование = &Ссылка";

прикалываться это легко - а Вы вот возьмите и подскажите нормальный рабочий код запроса по данным параметрам!