Доброго времени суток, есть необходимость отправлять эл. письма через 1с. Стал разбираться с этим вопросом, настраивал учетные записи и так, и эдак, в разных конфигурациях, с разными почтовыми серверами(общедоступными типа майл или гугл). Однако результата это не дало, тогда решил сам написать обработку, при указании параметров подключения - та же борода. Так вот возникает вопрос, а работает ли 1с с почтой? Кто работал с этим и у кого получалось, поделитесь опытом или кодом.

З.Ы. Знаю, что есть множество публикаций на эту тему, ничего полезного в них не нашел, хотя и перепробовал все советы.

неудачник

SSL работает только в 8.3, все остальное работает без проблем.

(0) Работает. пример кода в синтакс помошнике есть.

Работал и получалось. Главное что бы руки росли из правильного места

(1) поддерживаю.

(0) возможно firewall не пропускает

У нас куча конфигураций ежедневно шлёт отчёты о своей работе...
Проблем не вижу.
Единственное - у нас свой почтовик.

(0)[Знаю, что есть множество публикаций на эту тему, ничего полезного в них не нашел, хотя и перепробовал все советы.]
почта в 1С не работает, ни у кого, ибо платформа сырая,
так начальству и доложи

Кстати если речь идет про почтовый клиент в 1с, то он насколько помню не очень был.

(7) ну на собственный почтовый сервер я знаю что работает, а на общедоступные?

А у меня в 7.7 прекрасно работает отправка счета на мыло (сама писала).

(4) может есть код, чтоб сравнить со своим и понять, что не так?

Шли через свой почтарь. Т.е. ваш почтовик будет smtp релеем. Примеров написания подобныго функционала море, причем как с использованием всяких учетных записей 1с, так и без них.

+(2) на 82 SSL не работает или тунелирвание или почту на сервере без шифрования. И да, типовые настроены работают, свои написаны и работают. СП достаточно + подглядеть типовые.

(12) дай свой код?

(2) т.е. в 8.2 можно и не париться с почтовиками которые используют SSL?

Угу, примеров море. Их мелочей рекомендую проверять доступность серверов почтовый перед отсылкой и реализовать возможность отложенной отсылки сообщения если чтото идет не так. А то есть пример, когда отсылка уведомления в момент проведения счетов парализовала работу продаванов из-за неработающего почтового сервака.

(0) качни с инета книжку Михайлова "1с предприятие 7.7/8.0 системное программирование" - там найдеш все что нужно.

Еще как вариант можно dll всякие юзать из 1с.

(12) Код
Процедура КнопкаВыполнитьНажатие(Кнопка)
    Почта = Новый ИнтернетПочта;
    Попытка
        Почта.Подключиться(ПолучитьПрофиль());
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    Сообщение = Новый ИнтернетПочтовоеСообщение;
    
    Сообщение.Вложения.Добавить(Новый ДвоичныеДанные("C:\vcredist.bmp"),"vcredist.bmp");
    
    Сообщение.Отправитель = "[email protected]";
    Сообщение.ИмяОтправителя = "Вася";
    ПочтовыеАдреса = Сообщение.Получатели;
    ПочтовыйАдрес = ПочтовыеАдреса.Добавить();
    ПочтовыйАдрес.Адрес = "[email protected]";
    Сообщение.Тема ="Тема сообщения";
    
    ИнтернетТекстПочтовогоСообщения = Сообщение.Тексты.Добавить();
    ИнтернетТекстПочтовогоСообщения.Текст = "Текст сообщения";
    ИнтернетТекстПочтовогоСообщения.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
    
    Попытка
        // Пытаемся послать письмо
        Почта.Послать(Сообщение);
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    // отключение
    Почта.Отключиться();
КонецПроцедуры

Функция ПолучитьПрофиль()

Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
// SMTP сервер
Профиль.АдресСервераSMTP = "smtp.mail.com";

// Порт SMTP сервера
Профиль.ПортSMTP = 25;

// POP3 сервер
Профиль.АдресСервераPOP3 = "pop.mail.ru";

//  Порт POP3 сервера
Профиль.ПортPOP3 = 110;

//  Пароль к почтовому ящику
Профиль.Пароль = "*****";

// Пароль пользователя для SMTP сервера
Профиль.ПарольSMTP = "*****";

//  Логин пользователя
Профиль.Пользователь = "[email protected]";

//  Логин пользователя для SMTP сервера
Профиль.ПользовательSMTP = "1234";

//  Время ожидания выполнения операции в секундах

Профиль.ВремяОжидания = 50;
Возврат Профиль;

КонецФункции

При получении SMTP пишет ошибку, но я не прошу поправлять мой код. Прошу рассказать о своем опыте.

(20) когда ручками телнетом через свой релей шлеш - нормально уходит? Если да, то и 1с пусть шлет через релей. В противном случае - смотри настройки релея.

на своем релее для 1с ssl и прочее вообще отключи, тебе же только отправлять письма.

(21) СпособSMTPАутентификации пробовали ПоУмолчанию ставить?

(23) Что такое ререй? :)
(24) Пробовал

(23) релей*

(25) ну это сервер, который отсылает почту на ружу. В локалке же у вас есть сервер почтовый, вот шли из 1с почту через него, т.е. в качестве smtp указывай именно его (ну понятно, что если он авторизацию просит, то под майл.ру логином он тебя завернет) - это будет релей. Если он не пересылает - поговори с админом, пусть наладит.

(27) нет у меня почтового сервера, потому и пытаюсь к гуглу или майлу подключиться, а на них SSL не отключить

(0) уже не помню ничего, давно было, но помню, что работало

Тогда либо поставь его, либо в вроде было и про ssl и про почту и все остальное(18), либо ищи внешние компоненты соответствующие.

(30) спс

(28) для SSL и 1с надо настраивать туннелирование. Юзай эту программу stunnel

У меня в её конфиге такие настройки
client = yes
service=gmail
output = stunnel-log.txt
debug = 0
[SMTP Gmail ]
accept = 127.0.0.1:25
connect = smtp.gmail.com:465
[POP3 Gmail ]
accept = 127.0.0.1:110
connect = pop.gmail.com:995

Соответственно в 1с надо писать сервер pop3 и SMTP 127.0.0.1:110 и 127.0.0.1:25

Странно на Яндексе все норм работает, переделал настройки так и все ок, отправляется....


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

    Сообщение = Новый ИнтернетПочтовоеСообщение;
    //Сообщение.Вложения.Добавить(Имя);
    Сообщение.Отправитель = "[email protected]";
    Сообщение.ИмяОтправителя = "Офис на склад";
    ПочтовыеАдреса = Сообщение.Получатели;
    ПочтовыйАдрес = ПочтовыеАдреса.Добавить();
    ПочтовыйАдрес.Адрес = "[email protected]";
    Сообщение.Тема ="Полученные документы на складе за: " + Строка(ТекущаяДата());

    ИнтернетТекстПочтовогоСообщения = Сообщение.Тексты.Добавить();
    ИнтернетТекстПочтовогоСообщения.Текст = "Полученные документы на складе за: " + Строка(ТекущаяДата());
    ИнтернетТекстПочтовогоСообщения.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;

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


Функция ПолучитьПрофиль()

Профиль = Новый ИнтернетПочтовыйПрофиль;

// SMTP сервер
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
// Порт SMTP сервера
Профиль.ПортSMTP = 587;
// СпособSMTPАутентификации
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
// POP3 сервер
Профиль.АдресСервераPOP3 = "pop.yandex.ru";
// Порт POP3 сервера
Профиль.ПортPOP3 = 110;
// Пароль к почтовому ящику
Профиль.Пароль = "******";
// Пароль пользователя для SMTP сервера
Профиль.ПарольSMTP = "******";
// Логин пользователя
Профиль.Пользователь = "[email protected]";
// Логин пользователя для SMTP сервера
Профиль.ПользовательSMTP = "[email protected]";
// Время ожидания выполнения операции в секундах
Профиль.ВремяОжидания = 50;
Возврат Профиль;

КонецФункции

без внешних компонентов и тунелирования. Видимо они SSL не используют.