Имя: Пароль:
1C
 
отправка почты из 1с
0 lordworld17
 
07.05.15
12:53
ПочтовыйАдресТехподдержки = "88888";
АдресСервераSMTP = "8888";
ПочтовыйАдресОтправителя= "88888888";
ПользовательSMTP             = "888888";
ПарольSMTP = "888888";

    
    // ----- Профиль почтового ящика -----
    ПрофильПочты = Новый ИнтернетПочтовыйПрофиль;
    ПрофильПочты.АдресСервераSMTP     = АдресСервераSMTP;
    ПрофильПочты.ПользовательSMTP     = ПользовательSMTP;
    ПрофильПочты.ПарольSMTP         = ПарольSMTP;
    ПрофильПочты.ПортSMTP             = 25;

    
    // ----- Письмо -----
    Письмо = Новый ИнтернетПочтовоеСообщение;
    Письмо.Тема = Объект.ТемаОбращения;
    Письмо.Получатели.Добавить(ПочтовыйАдресТехподдержки);
    
    // добавляем к письму имя отправителя
    Письмо.ИмяОтправителя              = СокрЛП(Объект.Пользователь);
    Письмо.Отправитель.Адрес           = ПочтовыйАдресОтправителя;
    
    // устанавливаем важность письма
    Если Объект.Срочность = 0 Тогда
        Письмо.Важность = ВажностьИнтернетПочтовогоСообщения.Низкая;
    ИначеЕсли Объект.Срочность = 2 Тогда
        Письмо.Важность = ВажностьИнтернетПочтовогоСообщения.Высокая;
    Иначе
        Письмо.Важность = ВажностьИнтернетПочтовогоСообщения.Обычная;
    КонецЕсли;
    
    // добавляем вложения к письму
    Если Вложения <> Неопределено Тогда
        Для Каждого ЭлементВложение Из Вложения Цикл
            Письмо.Вложения.Добавить(Новый ДвоичныеДанные(ЭлементВложение.ИмяФайлаНаКомпьютере), ЭлементВложение.ИмяФайла);
        КонецЦикла;
    КонецЕсли;
    
    // добавляем текст
    //Текст = Письмо.Тексты.Добавить(Объект.ОписаниеПроблемы.ПолучитьТекст(), ТипТекстаПочтовогоСообщения.HTML);
    Объект.ОписаниеПроблемы.ПолучитьHTML(HTML, Картинки);
    Для Каждого Картинка Из Картинки Цикл
        Вложение = Письмо.Вложения.Добавить(Картинка.Значение.ПолучитьДвоичныеДанные());
        Вложение.Идентификатор = Картинка.Ключ;
        HTML = СтрЗаменить(HTML, Картинка.Ключ, "cid:" + Вложение.Идентификатор);
    КонецЦикла;
    ТекстСообщения = Письмо.Тексты.Добавить(HTML, ТипТекстаПочтовогоСообщения.HTML);
    
    ТекстСообщения = Письмо.Тексты.Добавить("", ТипТекстаПочтовогоСообщения.HTML);
    ТекстСообщения = Письмо.Тексты.Добавить("Контактная информация: "+Объект.КонтактнаяИнформация, ТипТекстаПочтовогоСообщения.HTML);
    ТекстСообщения = Письмо.Тексты.Добавить("Срочность заявки: "+ЭтаФорма.Элементы.Срочность.ВыделенныйТекст, ТипТекстаПочтовогоСообщения.HTML);
    
    // ----- Отправка письма -----
    Соединение = Новый ИнтернетПочта;
    Попытка
        Соединение.Подключиться(ПрофильПочты);
    Исключение
        Сообщить(ОписаниеОшибки());
        Предупреждение("Произошли ошибки при подключении к почтовому серверу.
           |Описание ошибки приведено в окне сообщения.");
        Возврат;
    КонецПопытки;
    Соединение.Послать(Письмо);
    Соединение.Отключиться();
    
    Сообщить("Письмо отправлено.");
    
    // ----- Очищаем поля для нового письма -----
    Объект.Срочность         = 1;
    Объект.ТемаОбращения     = "";
    Объект.ОписаниеПроблемы.Удалить();
    Вложения.Очистить();


Собственно из БП 3.0 нормально отправлет в КА 1.1 выкидывает ошибку Указано недопустимое имя почтового ящика (SMTP error code 553)
1 Stim
 
07.05.15
12:58
платформа?
2 lordworld17
 
07.05.15
13:00
8.3.5.1482
3 Бубка Гоп
 
07.05.15
13:03
(0) АдресСервераSMTP = "8888";
и недопустимое имя ящика?
хм... действительно, с чего бы это
4 lordworld17
 
07.05.15
13:07
АдресСервераSMTP=25
5 Бубка Гоп
 
07.05.15
13:09
(4) может, 25 - это порт?
6 User_Agronom
 
07.05.15
13:10
(4) Адрес? Нужно писать фактический адрес помещения, где находится сервер. Например,
АдресСервераSMTP= "ЧереззаборногшуЗадерищинск, дом 25 помещение 12";
7 1С_Fitness
 
07.05.15
13:11
(4) БП3.0 ссл шифрование поддерживает , КА - не факт
8 1С_Fitness
 
07.05.15
13:12
SMTP 110 и 25 как то так было
9 ДенисЧ
 
07.05.15
13:13
SMTP 110 - можно мне такого же зелья?
10 lordworld17
 
07.05.15
13:15
(5) конечно порт
11 User_Agronom
 
07.05.15
13:15
(7) Я тут что-то не понял: кто шлёт письма? Платформа или конфигурация? Если платформа, то при чём тут БП3 или КА?
12 ColonelAp4u
 
07.05.15
13:15
а разве не такой ли должен быть смтп адрес? smtp.mail.ru&
13 ColonelAp4u
 
07.05.15
13:16
а цифры это порт
14 Бубка Гоп
 
07.05.15
13:16
(10) тогда почему
АдресСервераSMTP=25
???
15 Бубка Гоп
 
07.05.15
13:18
(14) намекаю:
адрес <> порт
16 lordworld17
 
07.05.15
13:18
ПочтовыйАдресТехподдержки = "[email protected]";
АдресСервераSMTP = "smtp.kr-gallery.ru";
ПочтовыйАдресОтправителя = "[email protected]";
ПользовательSMTP     = "[email protected]";
ПарольSMTP     = "8888888";
17 Бубка Гоп
 
07.05.15
13:18
(16) вот, другое дело
18 lordworld17
 
07.05.15
13:19
(11) вот и мне интерсно.с бп 3.0 уходят письма и даже приходят а с ка 1.1 нет.платформа то одна и та же.
19 Бубка Гоп
 
07.05.15
13:22
(18) попробуй из пустой конфигурации, ради эксперимента
20 User_Agronom
 
07.05.15
13:24
(18) Скорее всего с формированием письма связано. Может тело пустое или вложения слишком большие.

Попробуй послать письмо с текстом "Тестовое сообщение" и темой "тест" без вложений и т.д.
21 Бубка Гоп
 
07.05.15
13:29
(18) бп и ка на одном компе или на разных? антивирусы, фаерволы одинаковые?