Отправка письма на почту с вложениями
Доброе утро, товарищи!
Возник вопрос касаемый отправки письма с 1с на почтовый ящик пользователя.
Тезисно : проблема с отправкой если имеется вложение.
Подскажите советом, или возможно я где то допустил ошибку.
Заранее спасибо, товарищи.
Возник вопрос касаемый отправки письма с 1с на почтовый ящик пользователя.
Тезисно : проблема с отправкой если имеется вложение.
Подскажите советом, или возможно я где то допустил ошибку.
Заранее спасибо, товарищи.
&НаКлиенте
Процедура ПолучитьПрофильПочты(Команда)
//ФайлМой = Новый ДвоичныеДанные("E:\Приложение.txt");
Данные = СсылкаНаФайлДляЧтения(КПФайл1);
МойФайл = Строка(Данные[1]);
ИмяФайла = Строка(Данные[2]);
Почта(МойФайл,ИмяФайла);
КонецПроцедуры
Показать
&НаСервере
Функция Почта(ФайлОтправки,ИмяФайла)
Почта = Новый ИнтернетПочта;
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Профиль.ПользовательSMTP = Строка(ПочтовыйАдресОтправителя);
Профиль.ПарольSMTP = "Cnfc2019*";
Почта.Подключиться(Профиль);
СообщениеПочты = Новый ИнтернетПочтовоеСообщение;
СообщениеПочты.УведомитьОПрочтении = Истина;
СообщениеПочты.Тема = Строка(ТемаПисьма);
СообщениеПочты.Получатели.Добавить(Строка(ПочтовыйАдресПолучателя));
СообщениеПочты.Отправитель.Адрес = Строка(ПочтовыйАдресОтправителя);
СообщениеПочты.Отправитель.ОтображаемоеИмя = Строка(Отправитель);
СообщениеПочты.Важность = ВажностьИнтернетПочтовогоСообщения.Высокая;
СообщениеПочты.Тексты.Добавить(Строка(ТемаПисьма),ТипТекстаПочтовогоСообщения.ПростойТекст);
СообщениеПочты.Вложения.Добавить(ФайлОтправки,ИмяФайла);
Почта.Послать(СообщениеПочты);
Почта.Отключиться();
КонецФункции
Показать
&НаСервере
Функция СсылкаНаФайлДляЧтения(Ссылка)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Файлы.Ссылка КАК Ссылка,
| Файлы.ИмяКП1 КАК ИмяКП1,
| Файлы.Файл КАК Файл
|ИЗ
| Справочник.Файлы КАК Файлы
|ГДЕ
| Файлы.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка",Ссылка);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Массив = Новый Массив(3);
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
//Сообщить(ВыборкаДетальныеЗаписи.Ссылка);
//Сообщить(ВыборкаДетальныеЗаписи.ИмяКП1);
//Сообщить(ВыборкаДетальныеЗаписи.Файл);
Массив.Вставить(0,ВыборкаДетальныеЗаписи.Ссылка);
Массив.Вставить(1,ВыборкаДетальныеЗаписи.ИмяКП1);
Массив.Вставить(2,ВыборкаДетальныеЗаписи.Файл);
Возврат Массив;
КонецЦикла;
КонецФункции
ПоказатьПо теме из базы знаний
- Отправка письма контактному лицу контрагента по e-mail через MS Outlook из 1С
- Автоматическое формирование документов "Акт сверки" с отправкой по электронной почте
- Отправка электронной почты из БП 2.0 + Внешняя печатная форма "Акт сверки с печатью"
- Отправка электронной почты с помощью локального почтового клиента из 1С, развернутой под удаленным рабочим столом
- Отправка письма поставщику о заказе из документа "Заказ поставщику"(расширение)
Найденные решения
Остальные ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Вакансии
Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)