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
+(8)
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший