Форум Программирование Общие вопросы программирования (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:

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

Остатки на указанный период (13) 1 $m Dev 1cv8.cf v8::Запросы	13	сегодня, 06:06 Mahon83
Система компоновки данных (медленный вывод в коллекцию значений при РСВ) (4) 1 $m Dev УПП1 v8::СКД	4	вчера, 18:48 StAlexei
Отчёт СКД. Данные выводятся не в те ту строку. (2) 0.9 $m Dev УТ11 v8 ИТ-компания 1С	2	вчера, 10:18 user1500067
Путевые листы в БП 3.0 (6) 0.5 $m TMS БП3.0	6	12.04.2021 German_Tagil
Тонкая настройка СКД (добавление строки) (8) 1.49 $m Dev	8	09.04.2021 Shecurok
Доработать запрос отчета в СКД для регистра сведений Цены Номенклатуры (8) 0.5 $m Dev	8	08.04.2021 rosenword
Как выгрузить список новых созданных контрагентов (создаются программно) (16) 1 $m Dev	16	08.04.2021 Shecurok
Синхронизация УТ 11.4 и БП 3.0, справочник Виды номенклатуры (3) 0.09 $m Обмен БП3.0 УТ11	3	08.04.2021 Grek_Master
Курсовые разницы в РБ по 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
Не отображается общая параметризуемая команда в списке глобальных команд на форме элемента (1) 0.1 $m Dev	1	06.04.2021 Symbiat
Проблема при возврате по безналу бп 3.0 (1) 1 $m БУ	1	05.04.2021 seva1405
Нужна помощь в доработке обработки СБИС (12) 5 $m Dev УТ10	12	05.04.2021 al_zzz
Не указано значение параметра "Тип кода маркировки" (4) 0.15 $m Dev УТ11 Маркировка	4	05.04.2021 user1003434
Резервы отпусков разница БУ и НУ (18) 1 $m Зарплата ЗУП3.x	18	02.04.2021 Romanets
Не удалось заблокировать таблицу _NODE15215 (14) 0.5 $m Dev ДО УТ11	14	01.04.2021 BlinOFF
УТ 10.3. Маркировка. ОСНО + ПСН (2) 3 $m Торговля УТ10 Розничная и сетевая торговля (FMCG) НДС ПСН (патентная система налогообложения) Вопрос	2	01.04.2021 dvshaymardanov
Проверка при обмене (3) 0.16 $m Dev	3	01.04.2021 smzaly
Не переносится номенклатура в 1с Бухгалтерию (18) 1 $m Торговля Розница	18	01.04.2021 user1433617
УТ 11.4 автоматическое создание документа "Установка цен номенклатуры" при проведение "Приобретения товаров и услуг" (23) 1 $m Dev	23	30.03.2021 serg_art