Обработка отправка на почту 1С 8.2 (ОФ) Пример
Легко дорабатывается для печати списка товаров из нужного документа, либо под иные задачи.
При возникновении задач доработки, пишите, возможна доработка.
//////////////////////////////////////////////////////////////////////////////////
Текст обработки:
Процедура КнопкаВыполнитьНажатие(Кнопка)
Если НЕ ТекстСообщения = “” Тогда
ПользовательPOP3 = “”; //Имя почты отправителя
ПользовательSMTP = “”; //Имя почты отправителя
АдресОтправителя = “”; //Имя почты отправителя
ТемаСообщения = “1с”; //Тема сообщения
АдресПолучателя = “”; //Имя почты получателя
АдресПолучателя2 = “”; //Имя почты получателя 2 ( копия письма )
POP3Сервер = “127.0.0.1”; //адрес поп3 сервера почты
SMTPСервер = “127.0.0.1”; //адрес смтп сервера почты
ПарольPOP3 = “password”; //Пароль почты отправителя
ПарольSMTP = “password”; //Пароль почты отправителя
ПортPOP3 = “110”; //Порт поп3 для отправки
ПортSMTP = “25”; //Порт смтп для отправки
ИнПочта = Новый ИнтернетПочта;
ИнПрофиль = Новый ИнтернетПочтовыйПрофиль;
Сообщение = Новый ИнтернетПочтовоеСообщение ;
ИнПрофиль.АдресСервераPOP3 = POP3Сервер;
ИнПрофиль.АдресСервераSMTP = SMTPСервер;
ИнПрофиль.Пароль = ПарольPOP3;
ИнПрофиль.ПарольSMTP = ПарольSMTP;
ИнПрофиль.ПортPOP3 = ПортPOP3;
ИнПрофиль.ПортSMTP = ПортSMTP;
ИнПрофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
ИнПрофиль.Пользователь = ПользовательPOP3;
ИнПрофиль.ПользовательSMTP = ПользовательSMTP;
Сообщение.Отправитель.Адрес = АдресОтправителя;
Сообщение.Копии.Добавить(АдресПолучателя2);
Сообщение.Отправитель.ОтображаемоеИмя = ПользовательSMTP;
ТемаСообщения = ТекущаяДата();
Сообщение.Тема = “Письмо ” + ТемаСообщения;
Текст = Сообщение.Тексты.Добавить(ТекстСообщения);
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Сообщение.Получатели.Добавить(АдресПолучателя);
Сообщение.Кодировка = “windows-1251” ;
ИнПочта.Подключиться(ИнПрофиль);
Попытка
ИнПочта.Послать(Сообщение);
Сообщить(“Отправлено сообщение на адрес: ” + АдресПолучателя);
Исключение
Сообщить(“ОБМЕН: Ошибка при подключении к почтовому профилю! Обмен не выполнен! ” +
ОписаниеОшибки(), СтатусСообщения.ОченьВажное);
Возврат;
КонецПопытки;
КонецЕсли;
КонецПроцедуры
//////////////////////////////////////////////////////////////////////////////////
Цифровой товар продается на условии “КАК ЕСТЬ”. Обмену и возврату не подлежит.
Представленные здесь обработки при покупке можно править сходный код, он открыт и могут вноситься любые изменения и дополнения.
Публикация без разрешения владельца запрещена.
Отзывы
Отзывов пока нет.