Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

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

Проконсультироваться
со специалистом 1С

Консультироваться

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

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

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

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

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

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

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


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.