Работа с электронной почтой. СРОЧНО!!!

[dimalf]

Добрый день!

Помогите пожалуйста! Нужно массово отправить по электронным адресам клиентов их документы. Табличный документ создан. Как теперь отправить сообщение, например, через АУТЛУК? Пользователь не должен больше ничего нажимать. Очень нужно. И СРОЧНО!!!

[mixqn]

Есть специальный объект - ИнтернетПочта. Посмотри синтаксис-помощник. Подробнее сейчас не могу ответить (я с телефона), дома буду - могу куски кода скинуть если надо.

[dimalf]

Буду благодарен. Послал на Ваш адрес пустое письмо с аналогичной темой

[mixqn]

Письмо получил, но отвечу все же в теме 
Для начала пара советов общего характера: во-первых, рекомендую пользоваться синтаксис-помощником, там все описано; во-вторых, пользуйтесь глобальным поиском, тогда можно найти примеры кода в типовых конфигурациях, в данном случае – примеры работы с объектом ИнтернетПочта.

Итак, пример кода по отправке письма при помощи ИнтернетПочта (вам надо будет задать свои реальные параметры):

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

ПочтовыйПрофиль = Новый ИнтернетПочтовыйПрофиль; // Набор свойств для соединения с сервером.

ПочтовыйПрофиль.АдресСервераPOP3 = АдресPOPСервера;
ПочтовыйПрофиль.ПортPOP3 = ПортPOPСервера;
ПочтовыйПрофиль.Пользователь = Пользователь;
ПочтовыйПрофиль.Пароль = Пароль;

ПочтовоеСообщение=Новый ИнтернетПочтовоеСообщение; // собственно сообщение
ПочтовоеСообщение.Тема = "Привет Мир!";
ПочтовоеСообщение.Отправитель = Отправитель;
ПочтовоеСообщение.Получатели.Добавить(Получатель);
ПочтовоеСообщение.Текст = "Привет Мир!";

Почта = Новый ИнтернетПочта; // объект ИнтернетПочта

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


[sadovod]

Добавлю вариант - рассылка с помощью класса 'Почта'.
Работает через почтовый клиент системы, настроенный по умолчанию, не нужно настраивать сервера, порты и отправителя:

&НаКлиенте
Процедура Рассылка(Команда)
    Почта = Новый Почта;
    Письмо = Новый ПочтовоеСообщение;
    Письмо.Текст = "Текст письма";
    Письмо.Получатели.Добавить("email@mail.ru");
//  если несколько адресов, то можно их тут добавить
    Почта.Подключиться();
    Почта.Послать(Письмо);
    Почта.Отключиться();
КонецПроцедуры

Только Outlook может запросить подтверждение для соединения...

[dimalf]

Всем большое, ОГРОМНОЕ СПАСИБО!!!!!!!!!!!! Иду пробовать.

[dimalf]

Люди, а не подскажите, почему такое сообщение:
Ошибка при вызове метода контекста (Подключиться): Соединение закрыто сервером.
?