Имя: Пароль:
1C
1С v8
проблемы с отправкой почты на внешние адреса
0 Дрюндель
 
12.07.12
15:48
Добрый день!
возникла необходимость отправки массовой рассылки клиентам из 1с.
встроенного почтового клиента нет!!! сделал внешнюю обработку и возникла проблема на внутренние адреса почта уходит на УРА а на внешние выдает ошибку
""Не удалось отправить {Форма.Форма.Форма(163)}: Ошибка при вызове метода контекста (Послать): Почтовый ящик не доступен (SMTP error code 550, 5.7.1 Unable to relay)""
Админы говорят что настройки почтовый сервер настроен нормально
Что может быть????

код

   ПараметрыОтбора = Новый Структура;
   ПараметрыОтбора.Вставить("П", Истина);
   
   ТЗВыбранныеОН = ТаблицаРезультат.Скопировать(ПараметрыОтбора,"Клиент,Емейл");
   
   //для получения доступа к набору свойств для соединения с сервером
   //создадим новый объект
   Профиль = Новый ИнтернетПочтовыйПрофиль;
   
   //Пропишем параметры соединения
   //ip адрес или имя SMTP сервера
   Профиль.АдресСервераSMTP = "АдресСервераSMTP";
   
   //Порт SMTP сервера
   Профиль.ПортSMTP = 25;

   Профиль.ВремяОжидания = 30;
   //Имя пользователя почтового ящика
   Профиль.Пользователь = "";
   
   //Пароль доступа к почтовому ящику      
   Профиль.Пароль = "";
   
   //При необходимости добавляем аутентификацию
   Профиль.АутентификацияSMTP   = СпособSMTPАутентификации.БезАутентификации;
   //Профиль.ПарольSMTP           = "";
   //Профиль.ПользовательSMTP     = "";
   
   // Создаем объект для работы с почтой
   Почта = Новый ИнтернетПочта;
   
   //Выполняем подключение, согласно указанный параметров
   Попытка
       Почта.Подключиться(Профиль);
   Исключение
       //При подключении возникла ошибка, сообщим
       Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
       Возврат;
   КонецПопытки;
   
   ТЗВыбранныеОН.Свернуть("Емейл");
   Н = 0;
   Для Каждого Стр Из ТЗВыбранныеОН Цикл
       
       //Создаем новое письмо (сообщение)
       Сообщение = Новый ИнтернетПочтовоеСообщение;

       //Указываем отправителя
       Сообщение.Отправитель = "";
       
       //Заполняем получателя
       Сообщение.Получатели.Добавить(Стр.Емейл);
       
       //Пишем тему письма
       Сообщение.Тема = "Новости компании";
       
       //Формируем текст письма,указываем тип письма
       Результат ="Уважаемые дамы и господа!";
   
       Сообщение.Тексты.Добавить(Результат,ТипТекстаПочтовогоСообщения.ПростойТекст);
       
       //При необходимости делаем вложение с файлом
       //Сообщение.Вложения.Добавить;
       
       //Непосредственно отправка сообщения
       Н = Н+1;
       Попытка
           Почта.Послать(Сообщение);
       Исключение
           Попытка
               Почта.Послать(Сообщение);
           Исключение
               Сообщить("Не удалось отправить "+ ОписаниеОшибки());
           Продолжить;
           КонецПопытки;
       КонецПопытки;
       Сообщить("Отправлено "+Стр.Емейл+" "+Строка(Н));
       ОбработкаПрерыванияПользователя();
   КонецЦикла;
   //После отправки закрываем соединение
   Почта.Отключиться();
1 Bell
 
12.07.12
16:01
Проходили. Судя по описанию в 8.3 сделали.
2 Дрюндель
 
12.07.12
16:13
в 8.2 и как решили?
3 shuhard
 
12.07.12
16:17
(0)[Профиль.АутентификацияSMTP   = СпособSMTPАутентификации.БезАутентификации;]
ни один публичный почтовик не примет почту без авторизации SMTP и если адрес отправки кривой
4 Дрюндель
 
12.07.12
16:18
а какой способ Аутентификации выбрать?
5 shuhard
 
12.07.12
16:20
(4) телепаты в отпуске до сентября
6 hhhh
 
12.07.12
17:26
(4) так у вас там какой-то почтовый сервер используется?
AdBlock убивает бесплатный контент. 1Сергей