helpf.pro
Регистрация
 0 
Распечатать

Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом

Код 1C v 8.х
  // Пробуем подключиться
Профиль = Новый ИнтернетПочтовыйПрофиль;
// Получение почты нам не нужно, коментируем
// Профиль.АдресСервераPOP3 = POP3Сервер;
Профиль.АдресСервераSMTP = СокрЛП(Константы.SMTPSERVER.Получить()); // айпишник екченжа
//Если ВремяОжиданияСервера > 0 Тогда
// Профиль.ВремяОжидания = ВремяОжиданияСервера;
//КонецЕсли;
Профиль.Пароль = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());
Профиль.Пользователь = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());
//Профиль.ПортPOP3 = ПортPOP3;
Профиль.ПортSMTP = СокрЛП(Константы.SMTPSERVERPORT.Получить());

Профиль.ПарольSMTP = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());
Профиль.ПользовательSMTP = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

//Профиль.ПарольSMTP = УчетнаяЗапись.Пароль;
//Профиль.ПользовательSMTP = УчетнаяЗапись.Логин;

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

ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
ПочтовоеСообщение.ИмяОтправителя = "1C-ka";
ПочтовоеСообщение.Отправитель = СокрЛП(Отправитель.Email);
ПочтовоеСообщение.Тема = Тема;

ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Получатель.Email));
ПочтовоеСообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.ПростойТекст);

Если Не пустаястрока(файл) Тогда
Данные = Новый ДвоичныеДанные(файл);
ПочтовоеСообщение.Вложения.Добавить(Данные,файлн);
конецесли;
попытка
ИнтернетПочта.Послать(ПочтовоеСообщение);
исключение
Сообщить(ОписаниеОшибки());
конецпопытки;
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 13904
 0 
Распечатать
Возможно, вас также заинтересует
17 правил для составления оптимального ЗАПРОСа к данным базы 1С 52
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
Как программно получить Картинку из базы и сохранить ее преобразовав в другой формат? 5
//Получим и сохраним Общую картинку из библиотеку картинок конфигурации ИмяКартинки = Метаданные.ОбщиеКартинки.OutlookExpress; ВыбраннаяКартинка = БиблиотекаКартинок ; // Сохраним полученную картинку в c:temp ВыбраннаяКартинка.Записать(" c:te
Как работать с "1С Конвертация данных" 6
Инструкция создания одностороннего обмена данными между конфигурациями " Источник" и " Приемник" с нуля: 1 Скачиваем последнюю версию конфигурации " Конвертация данных" . Сейчас на сайте ИТС перестали почему-то публиковать полные дистрибутивы, поэ
Некоторые полезные настройки при работе с УРИБ. 0

ОБЪЕДИНИТЬ результаты запросов 1
Если Вы работаете с одной таблицей, то Вам нет необходимости использовать объединение. Совсем другое дело, когда Вы работаете с несколькими таблицами и Вам, например, нужно получить данные, и по покупкам и по продажам товаров. Для объединения исполь
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.