![]() |
|
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
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |