Имя: Пароль:
1C
1С v8
Не отправляет почту из 1С
0 ogion83
 
14.09.15
11:06
Пытаюсь настроить отправку почты, вот нашел как делать:
Сообщение = Новый ПочтовоеСообщение;
    Сообщение.Текст = "текст сообщения";
    Сообщение.Отправитель = "АДРЕС";
    Сообщение.Тема ="Тема сообщения";
    Сообщение.Получатели.Добавить("АДРЕС");
    Сообщение.Вложения.Добавить(Новый ДвоичныеДанные("D:\ДляОтправки\ПСА.xls"),"ПСА.xls");

    Почта = Новый Почта;

    Почта.Подключиться(,);

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

    //отключение
    Почта.Отключиться();
При отправке открывается почтовый клиент (Thunderbird), но письма в нем не появляется. При обычной отправке все уходит нормально.
Может кто подскажет в чем может быть проблема?
1 mehfk
 
14.09.15
11:09
А если попробовать другой почтовый клиент?
2 ogion83
 
14.09.15
11:11
(1)Попробую
3 cons74
 
14.09.15
11:38
Почта.Подключиться(,);

Это что? Подключение к пустому профилю, с пустым паролем? И потом удивление?
4 ogion83
 
14.09.15
11:39
Не нашел других бесплатных программ. В 1С7.7 все работало. Дело в 1С 8.2. Что там может быть не так. Нашел 5 способов отправки писем из 1С8, ни один не работает
5 ogion83
 
14.09.15
11:40
//подключаемся без параметров, к клиенту установленному по умолчанию в системе
    Почта.Подключиться(,);
6 VikingKosmo
 
14.09.15
11:42
Может стоит попробовать отправить почту встроенным почтовым клиентом, в 1С???
7 ЧеловекДуши
 
14.09.15
11:46
(5) тогда, причем тут 1С?
Вы понадеялись на систему, все вопросы к Администратору :)
8 ЧеловекДуши
 
14.09.15
11:46
+ Кто такой "к клиенту установленному по умолчанию в системе"?
9 ЧеловекДуши
 
14.09.15
11:46
+ И с чем его "едят"? :)
10 lamme
 
14.09.15
11:51
а зачем использовать ПочтовоеСообщение
может ИнтернетПочтовыйПрофиль  
?
тогда пофг что будет установлено - Thunderbird, бат , аутлук или иное
11 ogion83
 
14.09.15
12:01
(6) пробовал и встроенным, не пашет
12 lamme
 
14.09.15
12:08
Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP     = "Указать";
    Профиль.АдресСервераPOP3     = ""Указать";
    Профиль.Пользователь         = ""Указать";
    Профиль.Пароль                 = ""Указать";
    Профиль.ПользовательSMTP    = ""Указать";
    Профиль.ПарольSMTP            = ""Указать";
    Профиль.АутентификацияSMTP  = СпособSMTPАутентификации.Login;
    Профиль.АутентификацияPOP3  = СпособPOP3Аутентификации.Обычная;
    Профиль.ВремяОжидания        = 90;
    
    Сообщение = Новый ИнтернетПочтовоеСообщение;
    Сообщение.Тема = "Хеллоу ";
        
    Сообщение.Отправитель.Адрес              = Сокрлп(текПользователь.email);
    Сообщение.Отправитель.ОтображаемоеИмя = Сокрлп(текПользователь.email);
    
    
    
    Сообщение.Тексты.Добавить("Добрый день!
    | ВНИМАНИЕ!
    | Данное письмо сгенерировано роботом и носит информационный характер! Просьба НЕ ОТВЕЧАТЬ на него
    |
    | ХЕЛЛОУ
    |
    | ВНИМАНИЕ!
    | Данное письмо сгенерировано роботом и носит информационный характер! Просьба НЕ ОТВЕЧАТЬ на него
    |
    | Спасибо.");
    
    

    
    
    Сообщение.Получатели.Добавить(Сокрлп(текПользователь.email));
    
    Сообщение.Вложения.Добавить(ИмяФайлаТмп);
        
        
    Почта = Новый ИнтернетПочта;
    Попытка
        Почта.Подключиться(Профиль);    
    Исключение
        Сообщить("Не удалось подключиться к почтовому серверу !", СтатусСообщения.ОченьВажное);
        Сообщить("Ошибка: " + ОписаниеОшибки());
    КонецПопытки;    

    
    Попытка
        Почта.Послать(Сообщение);
        Сообщить("Письмо отправлено " + Сокрлп(текПользователь.email) +".", СтатусСообщения.Информация);
        
    Исключение
        Сообщить("Не удалось отправить письмо " + Сокрлп(текПользователь.email) + "!", СтатусСообщения.ОченьВажное);
        Сообщить("Ошибка: " + ОписаниеОшибки());
    КонецПопытки;    
    
    Почта.Отключиться();
13 yavasya
 
14.09.15
12:21
(0)  домен почты ?
14 ogion83
 
15.09.15
15:49
С другой программой заработало)
2 + 2 = 3.9999999999999999999999999999999...