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