Имя: Пароль:
1C
1С v8
1c отправка почты netangels
0 33554432
 
23.05.17
09:30
Я написал код отправки письма с mail ru, все отправляется. По аналогии переписываю на netangels, ничего не уходит. Кто-нибудь писал код на 1с для отправки письма под netangels? Поделитесь, что там у них не как у всех?
3 Ц_У
 
23.05.17
09:33
аналогию покажешь?
4 Lexey_
 
23.05.17
09:34
(0) что пишет?
5 33554432
 
23.05.17
09:37
(4)
ничего не пишет, просто ничего не приходит
6 Ц_У
 
23.05.17
09:39
(5) с моей стороны пули вышли, проблема у вас?
7 33554432
 
23.05.17
09:44
(3) верний вариант работант, который закомменчен. нижний нет. названия почт и паролей там заменены на х

// Профиль = Новый ИнтернетПочтовыйПрофиль;
   // Профиль.АдресСервераSMTP = "smtp.mail.ru";
   // Профиль.АдресСервераPOP3 = "pop.mail.ru";
   // Профиль.ПортPOP3 = 110;
   // Профиль.ПортSMTP = 587;
   // Профиль.Пользователь = "testxxxxxxxxx@mail.ru";
   // Профиль.Пароль = "32132xxxxxxxxxSD21";
   // Профиль.ПользовательSMTP = "testxxxxxxxxxx@mail.ru";
   // Профиль.ПарольSMTP = "xxxdsadDDASASD21";
   //Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
   // Почта = Новый ИнтернетПочта;
   // Письмо = Новый ИнтернетПочтовоеСообщение;
   // Текст = Письмо.Тексты.Добавить("Привет Саша");
   // Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
   // Письмо.Тема = "Пробное письмо";
   // Письмо.Отправитель = "testxxxxxxxxx@mail.ru";
   // Письмо.ИмяОтправителя = "Саша";
   // Письмо.Получатели.Добавить("xxxxxxxxxx@inbox.ru");
   // письмо.Вложения.Добавить(выбфайл);
   
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP = "mail.xxxxxxxxxx-ural.com";
    Профиль.АдресСервераPOP3 = "mail.xxxxxxxxxx-ural.com";
    Профиль.ПортPOP3 = 25;
    Профиль.ПортSMTP = 465;
    Профиль.Пользователь = "xch@xxxxxxxxxx-ural.com";
    Профиль.Пароль = "xxxxxxxxxx2020";
    Профиль.ПользовательSMTP = "xch@xxxxxxxxxx-ural.com";
    Профиль.ПарольSMTP = "xxxxxxxxxx2020";
   Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
    Почта = Новый ИнтернетПочта;
       Письмо = Новый ИнтернетПочтовоеСообщение;
    Текст = Письмо.Тексты.Добавить("тест ");
    Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML;
    Письмо.Тема = "тест";
    Письмо.Отправитель = "xch@xxxxxxxxxx-ural.com";
    Письмо.ИмяОтправителя = "тест";
    Письмо.Получатели.Добавить("xxxxxxxxxx@inbox.ru");
     письмо.Вложения.Добавить(выбфайл);

    Попытка
        Почта.Подключиться(Профиль);
        Сообщить("Подключенено");
        Почта.Послать(Письмо);
        Сообщить("Письма отправлены");
    Исключение
        Сообщить("Не удалось подключиться к серверу");
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
    
    Почта.Отключиться();
    Сообщить("Соединение завершено");
8 Лефмихалыч
 
23.05.17
10:57
(7) telnet'ом попробуй отправить почту, сразу понятно станет все.
9 Лефмихалыч
 
23.05.17
10:57
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан