Форум Программирование Общие вопросы программирования (Dev)

Добрый день.и с наступающие Новым Годом.Нужна помощь

1. user635247_md37ivanovo 31.12.16 12:12 Сейчас в теме

Добрый день.и с наступающие Новым Годом.Нужна помощь
Начинаю обучение в 1с,и есть немного задумок,
как в данноё наработке ,сделать так чтобы электронные адреса контрагентов попадали в эту разработку и можно было сделать выбор по контрагентам

Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.Пользователь = "md37iv@mail.ru";
Профиль.ПользовательSMTP = "md37ivo@mail.ru";
Профиль.Пароль = "kkkkkkk";
Профиль.ПарольSMTP = "gfhjkm";
Профиль.АдресСервераSMTP = "smtp.mail.ru";
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
Профиль.ИспользоватьSSLSMTP = Истина;

ТекСообщение = Новый ИнтернетПочтовоеСообщение;
ТекСообщение.Тема = "Заказ Товара ООО МиксФрукт";
ТекСообщение.Получатели.Добавить("den37i@yandex.ru");
ТекСообщение.Получатели.Добавить("md@mail.ru");
выводилось под меню с выбором контрагента и электронного адреса
ТекСообщение.ОбратныйАдрес.Добавить("md37ivanovo@mail.ru");
ТекСообщение.Отправитель = "@mail.ru";
ТекСообщение.ИмяОтправителя = "Денис";
ТекСообщение.Тексты.Добавить("Примите Заказ Товаара");
ТекСообщение.Вложения.Добавить("H:\гггггг.pdf");
ТекПочта = Новый ИнтернетПочта();
ТекПочта.Подключиться(Профиль);

ТекПочта.Послать(ТекСообщение);

Ответы

В избранное Подписаться на ответы

Свернуть все

2. Cooler 22 31.12.16 12:35 Сейчас в теме

(1) Денис, в качестве общей подсказки: публиковать в коде реальный пароль от своего ящика довольно глупо.

3. user635247_md37ivanovo 31.12.16 13:47 Сейчас в теме

(2) блин

Спасибо

4. Alister 9 31.12.16 14:14 Сейчас в теме

(3) точно все убрал? )

6. user635247_md37ivanovo 31.12.16 16:03 Сейчас в теме

(4) да я ступил с паролем ,а Вы что все пробовали на почту зайти

7. Alister 9 31.12.16 16:08 Сейчас в теме

(6) я нет.

5. lefthander 31.12.16 14:50 Сейчас в теме

(1)У Вас представлен механизм создания и отправки почтового сообщения. А собственно откуда должно вызываться это действие? Из карточки контрагента или из формы списка документов?
Для того чтобы получить адрес контрагента нужно считать данные о контактной информации
Вот пример: в табличной части есть ссылка на контрагента и получаем его эл. адрес.

	
&НаКлиенте
Процедура КлиентыСправочникКлиентПриИзменении(Элемент)

	ТекущиеДанные = Элементы.Клиенты.ТекущиеДанные;
	
	Если ЗначениеЗаполнено(ТекущиеДанные.СправочникКлиент) Тогда
	
		ТекущиеДанные.ИмяКлиента =  ТекущиеДанные.СправочникКлиент;
		
		ТЗКонтИнфы =  ТекущиеДанные.СправочникКлиент.Партнер.КонтактнаяИнформация;
		
		ОтборЭА = Новый Структура;
		ОтборЭА.Вставить("Тип", ВернутьТипКонтактнойИнфы() );
		ЭлектронныеАдреса = ТЗКонтИнфы.НайтиСтроки(ОтборЭА);
		Если ЭлектронныеАдреса.Количество() =1 Тогда
			ТекущиеДанные.ЭлектронныйАдрес = ЭлектронныеАдреса[0].АдресЭП;
		Иначе
			ТекущиеДанные.ЭлектронныйАдрес = "";
		КонецЕсли;
		ТекущиеДанные.Условия = ТекущиеДанные.СправочникКлиент;
		
	Иначе
		ЭлАдрес = ТекущиеДанные.ЭлектронныйАдрес;
		ТекущиеДанные.ЭлектронныйАдрес = ЭлАдрес;
		
	КонецЕсли;
КонецПроцедуры


&НаСервере
Функция ВернутьТипКонтактнойИнфы()
	
	Возврат Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты; 
КонецФункции

Показать

8. user635247_md37ivanovo 31.12.16 16:51 Сейчас в теме

(5) спасибо,только куда это вставить ,отдельную кнопку делать

9. Alister 9 31.12.16 17:02 Сейчас в теме

(8) это процедура списка элементов справочника, вызываемая по событию ПриИзменении в управляемой форме.
Может еще озвучишь свою конфу, чтобы было понятнее.

10. user635247_md37ivanovo 31.12.16 19:51 Сейчас в теме

(9)конфигурация самописная

11. user635247_md37ivanovo 31.12.16 19:59 Сейчас в теме

(9) я обучаюсь и разбираюсь потихоньку,опыта ищё мало

12. lefthander 01.01.17 00:42 Сейчас в теме

(9)нет, это процедура из обработки, в табличной части список контрагентов с электронными адресами, в цикле перебор всех строк и отправка прайса, если строка выбрана. Это процедура при выборе в строке контрагента.
Привел ее что бы показать один из способов получения КИ контрагента.

13. ice-net 20 03.01.17 10:12 Сейчас в теме

Созадешь ТЗ "ТаблицаФормы" кладешь на форму с 3 полями: "флаг (булево)", "контрагент(Ссылка/строка любой)", "адрес (строка)" отмечаешь нужные, затем:

Профиль = Новый ИнтернетПочтовыйПрофиль; 
Профиль.Пользователь = "xxxxxx@mail.ru"; 
Профиль.ПользовательSMTP = "xxxxxx@mail.ru"; 
Профиль.Пароль = "xxxxxx"; 
Профиль.ПарольSMTP = "xxxxxx"; 
Профиль.АдресСервераSMTP = "smtp.mail.ru"; 
Профиль.ПортSMTP = 465; 
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию; 
Профиль.ИспользоватьSSLSMTP = Истина; 
ТекСообщение = Новый ИнтернетПочтовоеСообщение; 
ТекСообщение.Тема = "Заказ Товара ООО МиксФрукт";

//Заполняешь получателей
МассивСтрокПолучателей = ТаблицаФормы.НайтиСтроки(Новый Структура("Флаг", Истина));
Для каждого СтрокаТаблицы ИЗ МассивСтрокПолучателей Цикл
	Если ЗначениеЗаполнено(СтрокаТаблицы.Адрес) Тогда
		ТекСообщение.Получатели.Добавить(СокрЛП(СтрокаТаблицы.Адрес));
	КонецЕсли;
КонецЦикла;

ТекСообщение.ОбратныйАдрес.Добавить("md37ivanovo@mail.ru"); 
ТекСообщение.Отправитель = "@mail.ru"; 
ТекСообщение.ИмяОтправителя = "Денис"; 
ТекСообщение.Тексты.Добавить("Примите Заказ Товаара"); 
ТекСообщение.Вложения.Добавить("H:\гггггг.pdf"); 
ТекПочта = Новый ИнтернетПочта(); 
Попытка
	ТекПочта.Подключиться(Профиль); 
	ТекПочта.Послать(ТекСообщение);
Исключение
    ОбщегоНазначения.СообщитьИнформациюПользователю("Письмо не отправлено!"+Символы.ПС+ОписаниеОшибки());
КонецПопытки;

Показать

Оставьте свое сообщение

E-mail:

Вопросы с вознаграждением

Напоминание от системы (25) 0.15 $m Dev	25	вчера, 22:41 user1087014
Получение данных (3) 0.2 $m Dev БП3.0	3	16.04.2021 suuuumcaa
Основная таблица динамического списка задана неверно (2) 0.14 $m Dev	2	16.04.2021 Symbiat
Как в вычисляемом поле скд округлить число? (30) 1 $m Dev	30	16.04.2021 Shecurok
Отчет о розн продажах из 1С унф в 1С унф (6) 1 $m Обмен УНФ	6	15.04.2021 user1523568
Сумма задолженности меньше суммы документа оплаты. Обратите внимание на сформированные проводки! (0) 1 $m БУ	0	15.04.2021 mvl_dimir
При нажатие на кнопку Сформировать (5) 0.2 $m Dev	5	15.04.2021 user1087014
Анкетирование и проведение опросов в ЗУП КОРП (HR - аналитика) (0) 0.1 $m Зарплата	0	15.04.2021 Raskad
Обработка чистки базы. Удаление лишних организаций. Нужна помощь. (22) 9.5 $m Testing БП3.0	22	15.04.2021 Kuzya_brаtsk
Утверждение документов ЗУП 3.1 (9) 0.2 $m Зарплата ЗУП3.x	9	14.04.2021 Verdad
Перечисление алиментов (как физлицу напрямую так и в УФК) параметры платежей (КБК, ОКТМО) (2) 0.1 $m БУ	2	14.04.2021 Raskad
1с Розница РМК поиск по штрихкоду (13) 0.07 $m Торговля Розница v8	13	14.04.2021 Nubsdale
Как добавить номер строки в РМК Розница 2.4? (8) 0.3 $m Dev	8	14.04.2021 koden@list.ru
Передача материалов в эксплуатацию УПП с 2021 (5) 0.2 $m Dev УПП1	5	14.04.2021 user824140
Система компоновки данных (медленный вывод в коллекцию значений при РСВ) (4) 1 $m Dev УПП1 v8::СКД	4	13.04.2021 StAlexei
Отчёт СКД. Данные выводятся не в те ту строку. (2) 0.9 $m Dev УТ11 v8 ИТ-компания 1С	2	13.04.2021 user1500067
Путевые листы в БП 3.0 (11) 0.5 $m TMS БП3.0	11	12.04.2021 German_Tagil
Доработать запрос отчета в СКД для регистра сведений Цены Номенклатуры (8) 0.5 $m Dev	8	08.04.2021 rosenword
Курсовые разницы в РБ по 159 указу (0) 2 $m БУ 1cv8.cf БП1.6 Беларусь 1С БУ Бухгалтер Программист Вопрос	0	07.04.2021 keyn5565`
Доступ в 1С по web-сервису. Внутренний и внешний сервера. (21) 0.44 $m Admin v8	21	06.04.2021 TVA_11