Имя: Пароль:
1C
1С v8
Отправка почтового сообщения
0 1C_Patriot
 
23.01.12
10:35
Здравствуйте,
Ситуация не получается отправить письмо средствами 1С:Предприятие 8.2 при чем раньше работало а сейчас нет. Главно доходит до момент послать и встает колом не ошибки ничего.
ОС: Windows 7 (домашняя расширенная)
1С:Предприятие 8.2 (8.2.14.540)
1 1C_Patriot
 
23.01.12
12:38
люди умные не оставьте проблему без ответа мудрого
2 le_
 
23.01.12
12:42
Для того, чтобы эстрасенсы могли приступить к работе, необходимо дать им какую-нибудь вещь, принадлежащую "пациенту", например, кусок кода, которым отправляется почта / настройки почтового профиля.
3 1C_Patriot
 
23.01.12
12:57
(2) )))


Функция ПолучитьПочтовыйПрофиль()
   ПочтовыйПрофиль = Новый ИнтернетПочтовыйПрофиль;
   ПочтовыйПрофиль.АдресСервераSMTP = Константы.АдресСервераSMTPОбмена.Получить();  
   ПочтовыйПрофиль.ПользовательSMTP = Константы.УчетнаяЗаписьПочты.Получить();
   ПочтовыйПрофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;    
   ПочтовыйПрофиль.ПарольSMTP = Константы.ПарольУчетнойЗаписи.Получить();  
   ПочтовыйПрофиль.АдресСервераPOP3 = Константы.АдресСервераPOP3Обмена.Получить();
   ПочтовыйПрофиль.ПортSMTP = Константы.SMTPПорт.Получить();
   ПочтовыйПрофиль.ПортPOP3 = Константы.POP3Порт.Получить();
   ПочтовыйПрофиль.Пользователь = Константы.УчетнаяЗаписьПочты.Получить();
   ПочтовыйПрофиль.Пароль = Константы.ПарольУчетнойЗаписи.Получить();
   //ПочтовыйПрофиль.ВремяОжидания = 20;
   
   Возврат ПочтовыйПрофиль;
КонецФункции
4 Wobland
 
23.01.12
13:03
(3) возвращает почтовый профиль?
5 Vovan1975
 
23.01.12
13:05
а ви таки уверены что он в этом месте колом встает а не при попытке отправки сформированного письма?
6 1C_Patriot
 
23.01.12
13:15
(5)колом встает когда отрабатывается Почта.Послать(НовоеПочтовоеСообщение);
(4) да
7 Wobland
 
23.01.12
13:16
(6) я так и знал ;)
ОписаниеОшибки() что говорит?
8 1C_Patriot
 
23.01.12
13:17
(7) удивительно, но ничего
9 1C_Patriot
 
23.01.12
13:18
(8) я бы сказал что даже затыкается на этом месте
10 1C_Patriot
 
23.01.12
13:18
могу привести весь код
11 Wobland
 
23.01.12
13:19
(10) давай, уже, не стесняйся ;)
12 1C_Patriot
 
23.01.12
13:20
Процедура ВыполнитьВыгрузку(Тема = "") Экспорт
   
   //Если ПараметрыСеанса.ИдетОбменРаспределеннойБазы = Истина Тогда
   //    Возврат;
   //КонецЕсли;
   
   ИдентификаторИБ = Константы.ИдентификаторИБ.Получить();
   
   УзелОбмена = Неопределено;
   
   Выборка = ПланыОбмена.Полный.Выбрать();    
   Пока Выборка.Следующий() Цикл
       Если Выборка.Ссылка <> ПланыОбмена.Полный.ЭтотУзел() Тогда
           УзелОбмена = Выборка.Ссылка;
       КонецЕсли;        
   КонецЦикла;
   
   Если УзелОбмена = Неопределено Тогда
       Возврат;    
   КонецЕсли;
   
   //ПараметрыСеанса.ИдетОбменРаспределеннойБазы = Истина;
   
   Сообщить(""+ТекущаяДата()+Символы.Таб + "Выгрузка начата...");
   
   ЗаписьХМЛ = Новый ЗаписьXML;
   ИмяФайла = КаталогВременныхФайлов() +ИдентификаторИБ +"_" + СокрЛП(ПланыОбмена.Полный.ЭтотУзел().Код) + "_" + СокрЛП(УзелОбмена.Код) + ".xml";    
   ЗаписьХМЛ.ОткрытьФайл(ИмяФайла, "UTF-8");
   ЗаписьСообщения = ПланыОбмена.СоздатьЗаписьСообщения();
   ЗаписьСообщения.НачатьЗапись(ЗаписьХМЛ, УзелОбмена);
   ПланыОбмена.ЗаписатьИзменения(ЗаписьСообщения);
   ЗаписьСообщения.ЗакончитьЗапись();
   ЗаписьХМЛ.Закрыть();
   
   Сообщить(""+ТекущаяДата()+Символы.Таб + "Выгрузка завершена!");
   
   ИмяФайла = Заархивировать(ИмяФайла);
   
   //ПараметрыСеанса.ИдетОбменРаспределеннойБазы = Ложь;
   
   
   ПочтовыйПрофиль = ПолучитьПочтовыйПрофиль();
   
   
   Почта = Новый ИнтернетПочта;

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

   
   Файл = Новый Файл(ИмяФайла);
   
   
   Тема = ?(ЗначениеЗаполнено(Тема), Тема, "1С:Обмен " + ИдентификаторИБ + " " + СокрЛП(ПланыОбмена.Полный.ЭтотУзел().Код) + "-" + УзелОбмена.Код);
   
   Попытка
       НовоеПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
       НовоеПочтовоеСообщение.Тема = Тема;
       НовоеПочтовоеСообщение.Отправитель.Адрес = СокрЛП(Константы.УчетнаяЗаписьПочты.Получить());
       НовоеПочтовоеСообщение.ИмяОтправителя = "Робот";
       НовоеПочтовоеСообщение.Вложения.Добавить(ИмяФайла, Файл.Имя);
       НовоеПочтовоеСообщение.Получатели.Добавить(СокрЛП(Константы.УчетнаяЗаписьПочты.Получить()));    
       
       Сообщить(""+ТекущаяДата()+Символы.Таб + "Начата отправка...");
       
       Почта.Послать(НовоеПочтовоеСообщение);
       
       Сообщить(""+ТекущаяДата()+Символы.Таб + "Отправлено!");
   Исключение
       Сообщить("Письмо не отправлено! "+ОписаниеОшибки());
   КонецПопытки;
   
   
   Попытка
       Почта.Отключиться();
   Исключение
       Сообщить("Отключение не выполнено! "+ОписаниеОшибки());
   КонецПопытки;
   
КонецПроцедуры
13 le_
 
23.01.12
13:20
(3) Можно попробовать телнетом законнектиться на SMTP, попробовать отправить почту и посмотреть, что происходит.

telnet mail.domain.com 25
hello
auth login
login
passwd
mail from: [email protected]
rcpt to: [email protected]
data
<text>
.
QUIT
14 le_
 
23.01.12
13:20
Каков размер цепляемого к сообщению файла?
15 PCcomCat
 
23.01.12
13:22
(0)Раньше всё работало? Сейчас вы ничего не меняли?
16 1C_Patriot
 
23.01.12
13:25
(15) Да, раньше работало. Я ничего не менял, но есть подозрение что могли поменять те кто админит сеть.
(14) 2-5 мб
17 1C_Patriot
 
23.01.12
13:26
(13) первое что пришло в голову но в windows 7 нету этой софтины
18 le_
 
23.01.12
13:30
(17) По-умолчанию нет. Но можно доустановить через установку/удаление - компоненты выньдос. Называется он там, как ни парадоксально, telnet-клиент.
19 1C_Patriot
 
23.01.12
13:32
(18) ок, сейчас попробуем
20 le_
 
23.01.12
13:32
(16) Можт, оно сильно медленно просто объемный файл отправляет?..
Ради теста попробуй прицепить файл помельче и отправить 1с-кой.
21 Vovan1975
 
23.01.12
13:33
(16) я тож склоняюсь к тому что твою софтину что-то в сетку не пущает...
22 PCcomCat
 
23.01.12
13:33
Короче, может поможет - у моего клиента были две ситуации:
- в первой, после долгих ковыряний, позвонили провайдеру, предоставлявшему услуги интернета: "а мы посмотрели, что у вас большие движения, и решили, что это спам." (жаль, что руками не могли достать, а то б порвали их);
- во второй оказалось попроще: зашли на почтовый ящик обычным способом (не через интернет), а там висит вверху сообщение, что было подозрение на взом паролей, поэтому ящик блокировали, и требовали сменить пароль.
23 PCcomCat
 
23.01.12
13:35
+ (22) Про софтины всякие: тоже думали на них и на антивмрусы грешили - тупо убили всё без разбора, но нет.
24 PCcomCat
 
23.01.12
13:38
(22) во даю! (не через интернет) = (не через 1С)
25 1C_Patriot
 
23.01.12
13:46
(13) проходит потелнету. Проверено!
26 1C_Patriot
 
23.01.12
13:58
(21) Вот что это может быть, надо же теперь предьявить
27 1C_Patriot
 
23.01.12
16:11
народ какие еще будут советы по данной проблеме?
28 le_
 
23.01.12
16:27
(27) Можно логи файрволов/антивирусов посмотреть, поотключать их.
29 fe55
 
09.02.12
15:10
(28) Не стоит ничего. Та же самая ситуация!
(27) C XP работает! По ходу косяк в 8.2.14.540. В 8.2.15.289 всё пашет!
30 ilpar
 
09.02.12
23:25
у меня были закрыты порты у провайдера.
На работе проверял, тот же провайдер ...
Т.е. заработало только при открытии 25 порта.

587 и 2525 так и не заработал на общеизвестные сервера
притом на mail.ru так и не заработало
31 ilpar
 
09.02.12
23:26
защита от спама у них такая типа
32 Поpyчик-4
 
10.02.12
00:56
33 fe55
 
10.02.12
10:27
(32) C УТ всё нормально пашет! А что за каша у вас УТ 11.0.7.13 8.2.15.294? Может УПП 8.2.15.294?! ОМГ а telnet на эти порты проходил(если порты у провайдера были закрыты то значит telnet не проходил - естественно и не работало!)?!СМ (29)!
34 fe55
 
14.02.12
14:33
хм - вообщем в толстом клиенте всё работает! Не работает в тонком и web!
Конфиг компа win2003 sql 2000. На 2008server + sql 2008 эта же база нормально отправляет из всех клиентов. Какой-то бред.
35 fe55
 
17.02.12
13:02
(34) Всё таки не работает под локальным пользователем!

Стоит ISA 2006(в домене) на выход в интернет! В системном журнале Windows 2008 вываливается ошибка: Приложение [rphost.exe]. Проверка подлинности не пройдена. Учетные данные пользователя не приняты ISA Server. Убедитесь, что учетная запись, для данного приложения имеет необходимый доступ.

Получается что Агент Сервера 1С предприятия нужно запускать под пользователем домена с определенными правами - подскажите по безопасности -какими минимальными правами?!
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой