Имя: Пароль:
1C
 
Как создать обработку для отправки почты из 1С
,
0 Vendetta_12
 
10.05.16
17:50
В режиме предприятия в форме обработки должна быть возможность указать e-mail получателя и текст письма. А также необходимо создать кнопку "Отправить" для отправки письма получателю.
Я примерно понял что можно так:
     Профиль = Новый ИнтернетПочтовыйПрофиль;
     Профиль.АдресСервераSMTP = Емайл;
     Профиль.ПортSMTP = 587;
     Профиль.Пользователь = "[email protected]";
     Профиль.Пароль = "12345";
     Профиль.АутентификацияSMTP     = СпособSMTPАутентификации.Login;
     Профиль.ПарольSMTP           = "12345";
     Профиль.ПользовательSMTP     = "[email protected]";
     Почта = Новый ИнтернетПочта;
     Попытка
        Почта.Подключиться(Профиль);
     Исключение
        Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
        Возврат;
     КонецПопытки;
     Сообщение = Новый ИнтернетПочтовоеСообщение;
     Сообщение.Отправитель = "[email protected]";
     Сообщение.Получатели.Добавить("[email protected]");
     Сообщение.Тема = "Выгрузка";
     Сообщение.Тексты.Добавить("Сабж",ТипТекстаПочтовогоСообщения.HTML);
     Сообщение.Вложения.Добавить("C:\1.xls");
     Почта.Послать(Сообщение);
     Почта.Отключиться();
но неправильно
1 КМ155
 
10.05.16
17:51
(0) код ошибки ?
2 ДенисЧ
 
10.05.16
17:51
ЧТо неправильно?
3 Vendetta_12
 
10.05.16
17:53
надо чтоб я сам писал email и текст, а в этом коде я не смогу ее написать
4 Heckfy
 
10.05.16
17:54
Вынеси емаил и текст в реквизиты формы и забирай значения из них.
5 Vendetta_12
 
10.05.16
17:54
(4) примерно покажешь как
6 CountR
 
10.05.16
17:57
(5) радченко в помощь, у него спроси. и словарь грамматики еще.
7 Lama12
 
10.05.16
17:57
(5) 5000 и покажу. Номер счета высылать?
8 Vendetta_12
 
10.05.16
17:58
(7) давай
9 Heckfy
 
10.05.16
17:58
(8) Эко тебя прижало то....
10 Vendetta_12
 
10.05.16
17:59
(9) нет
11 MishaD
 
10.05.16
18:00
(7) ты бы валюту уточнял, а то вышлет старыми белорусскими.
12 Lama12
 
10.05.16
18:02
(8) Номер счета в яндекс деньгах - 410011850477201
Рубли. :)
13 Lama12
 
10.05.16
18:03
12+ И да. Сделаю только - "Вынеси емаил и текст в реквизиты формы и забирай значения из них."
14 Vendetta_12
 
10.05.16
18:04
(12) а так не сможешь подсказать
15 Lama12
 
10.05.16
18:06
(14) Сессия что ли? Вопрос на знание методов конфигурирования. Это не то что б базовый уровень, это даже ниже него. Ну не серьезно такие вопросы задавать.
Чем режим конфигуратора от режима предприятия отличается знаем?
16 Vendetta_12
 
10.05.16
18:07
(15) Ну я начинающий разработчик так сильно не ругай
17 MishaD
 
10.05.16
18:08
Что то у меня подозрение, что человек будущую конфигурацию 1с: Спамер пишет. И адреса, явки пароли нужно будет брать из справочника, или РС.
18 Lama12
 
10.05.16
18:20
(16) Возьми УПП, там это реализовано.
19 PR пять
 
10.05.16
18:34
Что-то странно, то (8), то (14).
Сначала собирался прокинуть что ли, а потом понял, что в случае аванса не получится?
20 Vendetta_12
 
10.05.16
18:35
(19) ага
21 Звездец
 
10.05.16
18:36
(20) не с того ты начал тут общение. Да и ответ на твой вопрос находится легким гуглением
22 Vendetta_12
 
10.05.16
18:37
(21) ну просто покажи как и все
23 Звездец
 
10.05.16
18:39
24 Звездец
 
10.05.16
18:43
25 Звездец
 
10.05.16
18:54
(22) не ужели после того, как ты сам признался, что хотел кинуть планируешь получить помощь просто так?
26 PR пять
 
10.05.16
18:59
(25) Сейчас он начнет рассказывать, что никого не хотел кинуть, что пошутил, что он хороший и т. д. и т. п.
27 Звездец
 
10.05.16
19:01
(26) вот они все такие одинаковые. Клонирование точно не разрешали?
28 Pistol
 
10.05.16
19:08
(27) Смотря кого
29 Vendetta_12
 
10.05.16
19:43
(25) ну извини я не хотел никого кидать
30 Vendetta_12
 
10.05.16
20:06
ПараметрыПочты = новый ИнтернетПочтовыйПрофиль;
    ПараметрыПочты.АдресСервераSMTP = "smtp.server.com";
    ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
    ПараметрыПочты.ПользовательSMTP = "user";
    ПараметрыПочты.ПарольSMTP="pass";
    
    Письмо=новый ИнтернетПочтовоеСообщение;
    Письмо.Тема="Уведомление о задолженности";
    Письмо.ИмяОтправителя="ООО Рога и копыта";
    Письмо.Отправитель="[email protected]";
    Письмо.Получатели.Добавить(Емайл);
    
    Подключение=новый ИнтернетПочта;
    Попытка
        Подключение.Подключиться(ПараметрыПочты);
        Подключение.Послать(Письмо);
        Сообщить ("Письмо отправлено успешно.");
    Исключение
        Сообщить ("Письмо не отправлено." + ОписаниеОшибки());
    КонецПопытки;

Вот так сделал пишет ошибку
Письмо не отправлено.{Обработка.ОтправитьПочту.Форма.Форма.Форма(18)}: Ошибка при вызове метода контекста (Подключиться): Произошла ошибка при работе с SMTP. Код ошибки: 25 (Отказ в установлении соединения со стороны сервера.)
31 Vendetta_12
 
10.05.16
20:09
спасибо примерно нашел
https://www.youtube.com/watch?v=UnINphFcTto
32 Vendetta_12
 
10.05.16
23:36
&НаСервере
Процедура ОтправитьНаСервере()
    ПараметрыПочты = новый ИнтернетПочтовыйПрофиль;
    ПараметрыПочты.АдресСервераSMTP = "smtp.mail.ru";
    ПараметрыПочты.ПортSMTP = 25;
    ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
    ПараметрыПочты.ПользовательSMTP = Емайл;
    ПараметрыПочты.ПарольSMTP = "";
    Письмо=новый ИнтернетПочтовоеСообщение;
    Письмо.Получатели.Добавить(Емайл);
    Подключение=новый ИнтернетПочта;
    Попытка
        Подключение.Подключиться(ПараметрыПочты);
        Подключение.Послать(Письмо);
        Сообщить ("Письмо отправлено успешно.");
    Исключение
        Сообщить ("Письмо не отправлено." + ОписаниеОшибки());
    КонецПопытки;
КонецПроцедуры
Ошибка выходит:
Письмо не отправлено.{Обработка.ОтправитьПочту.Форма.Форма.Форма(15)}: Ошибка при вызове метода контекста (Послать): Почтовый ящик не доступен (SMTP error code 550): [email protected]
Почтовый ящик не доступен (SMTP error code 550): not local sender over smtp
подскажите что может быть
33 Звездец
 
10.05.16
23:47
(32) а что мозг в программировании применять не модно? ты где такие настройки сервера smtp mail.ru взял? нельзя просто взять и закопипастить из интернета, код надо понимать

он давно работает на 465 порту с ssl