Обратная связь от наших пользователей. Кнопка Обратная связь
Хотите помочь пользователю написать Вам все, что он думает о вашей разработке?
Вы точно не боитесь этого и идете навстречу пожеланиям людей?
Тогда не поленитесь и добавьте небольшую кнопку в Вашу разработку — это кнопка "Обратная связь".
Это поможет пользователю прямо из вашей обработки или конфигурации отпарвить Вам письмо, написать комментарий на инфостарте или открыть страницу с вашей разарботкой. При этом пользователю не надо будет вспоминать, где же он нашел эту разработку!
- Описание
- Подробнее
Описание
Делаем, например, в самом простом Варианте кнопку, пишем на ней «Обратная связь» и в процедуру нажатия вставляем следующий текст
![]()
Процедура ОбратнаяСвязьНажатие(Элемент)
ЗапуститьПриложение("mailto:YourMail@gmail.com?subject=Обработка проверки контрагентов через интернет&Body=Ув. Игорь, |Спасибо Вам за обработку //sale.itcity.ru/public/152524/ | |"); КонецПроцедуры
Эта кнопка cоздает письмо с задаными Вами темой и содержанием)))
Вот вариант под 8 ку более сложнее. Здесь есть несколько возможностей
1. Письмо автору.
2. Открыть форум разработки на Инфостарт.
3. Открыть страницу разработки на Инфостарт.
4. Поставить плюс разработке.
Процедура ОбратнаяСвязьНажатие(Элемент) спВариантСвязи = Новый СписокЗначений; ПоУмолчанию = спВариантСвязи.Добавить(1, "Письмо автору"); спВариантСвязи.Добавить(2, "Форум разработки"); спВариантСвязи.Добавить(3, "Страница разработки"); спВариантСвязи.Добавить(4, "Поставить ПЛЮС разработке"); АдресРазработчика = "YourAddress@gmail.com"; ФорумРазработки = "https://forum.infostart.ru/forum24/topic70529/"; СтраницаРазработки = "//sale.itcity.ru/public/152524/"; ВыбВариантСвязи = ВыбратьИзСписка(спВариантСвязи, Элемент, ПоУмолчанию); Если Не ВыбВариантСвязи = Неопределено Тогда
Если ВыбВариантСвязи.Значение = 1 Тогда ЗапуститьПриложение("mailto:"+АдресРазработчика +"?subject=Обработка проверки контрагентов через интернет&Body=Ув. Игорь, |Спасибо Вам за обработку //sale.itcity.ru/public/152524/ | |");
ИначеЕсли ВыбВариантСвязи.Значение = 2 Тогда ЗапуститьПриложение(ФорумРазработки); ИначеЕсли ВыбВариантСвязи.Значение = 3 Тогда ЗапуститьПриложение(СтраницаРазработки); ИначеЕсли ВыбВариантСвязи.Значение = 4 Тогда ЗапуститьПриложение(СтраницаРазработки + "?rate=1"); КонецЕсли; КонецЕсли; КонецПроцедуры
