Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Использование mailto. Как проверить, установлен ли клиент по умолчанию          
Inkognito Подменю пользователя
сообщение 18.02.17, 10:15
Сообщение #1

Ветеран
*******
Группа: Пользователи
Сообщений: 940
Из: Україна
Спасибо сказали: 446 раз
Рейтинг: 13.5

Если на компьютере установлен Outlock-Thunderbird, тогда все ОК. Иначе подвисает намертво.
Если пользователь запускает в терминале, там где админ ничего не устанавливал, не настраивал, и не собирается (нет смысла).
Вопрос: как сделать проверку на наличие установленного по умолчанию почтового клиента?

Flexy Подменю пользователя
сообщение 18.02.17, 12:33
Сообщение #2

Танцор с Бубном
Иконка группы
Группа: Местный
Сообщений: 1121
Из: Днепра
Спасибо сказали: 230 раз
Рейтинг: 0

Нужно читать реестр с помощью WSH (или какого нибудь еще COM-Объекта).
[HKEY_CLASSES_ROOT\mailto\shell\open]

[HKEY_CLASSES_ROOT\mailto\shell\open\command]
@="\"C:\\PROGRA~1\\MICROS~1\\Office16\\OUTLOOK.EXE\" -c IPM.Note /mailto \"%1\""

Сообщение отредактировал Flexy - 18.02.17, 12:35

Inkognito Подменю пользователя
сообщение 19.02.17, 7:07
Сообщение #3

Ветеран
*******
Группа: Пользователи
Сообщений: 940
Из: Україна
Спасибо сказали: 446 раз
Рейтинг: 13.5

Flexy @ Вчера, 13:33 * ,
Сравнил два реестра:
1) Где есть установленный по умолчанию Thunderbird, в mailto (в корне) есть следующее:
(по умолчанию), значение Thunderbird URL
2) Где ничего не настроено, в том же mailto (в корне) есть следующее:
(по умолчанию), значение URL:MailTo Protocol
Похоже, то что нужно: получить это значение, и если оно НЕ="URL:MailTo Protocol", тогда все ОК.
Спасибо!

Что-то не получается получить данное значение. Код:
    ЗначениеПараметра="";
    HKEY_CLASSES_ROOT = 2147483648; //  https://msdn.microsoft.com/en-us/library/aa384911(v=vs.85).aspx               
    
    ПутьККлючу = "HKEY_CLASSES_ROOT\mailto";            
    ИмяПараметра = "(По умолчанию)";
    Reg = ПолучитьCOMОбъект("winmgmts:{impersonationLevel = impersonate}!\\" + ИмяКомпьютера() + "\root\default:stdRegProv");
    Reg.GetStringValue(HKEY_CLASSES_ROOT, ПутьККлючу, ИмяПараметра, ЗначениеПараметра);
    Сообщить("Значение"+ЗначениеПараметра);

Прошу помочь, - где ошибка?

Вот скрин проблемного реестра (Виндовс 2003 сервер, пользователи работают в терминалке, им почту никто настраивать не будет):

Flexy Подменю пользователя
сообщение 19.02.17, 11:52
Сообщение #4

Танцор с Бубном
Иконка группы
Группа: Местный
Сообщений: 1121
Из: Днепра
Спасибо сказали: 230 раз
Рейтинг: 0

Наверное "Имя компьютера() не нужно.
RegProv=ПолучитьCOMОбъект(
"winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"
);

Flexy Подменю пользователя
сообщение 19.02.17, 14:10
Сообщение #5

Танцор с Бубном
Иконка группы
Группа: Местный
Сообщений: 1121
Из: Днепра
Спасибо сказали: 230 раз
Рейтинг: 0

Или так:
Попытка
  WshShell =Новый COMОбъект("WScript.Shell");
  DefPrm= WshShell.RegRead("HKEY_CLASSES_ROOT\mailto\"); // -> "URL:mailto"
Исключение
  Сообщить(ОписаниеОшибки());
КонецПопытки;

Inkognito Подменю пользователя
сообщение 23.02.17, 11:23
Сообщение #6

Ветеран
*******
Группа: Пользователи
Сообщений: 940
Из: Україна
Спасибо сказали: 446 раз
Рейтинг: 13.5

Flexy @ 19.02.17, 15:10 * ,
Супер, последний пример помог.

Vofka Подменю пользователя
сообщение 23.02.17, 11:58
Сообщение #7

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4520 раз
Рейтинг: 3642.8

Inkognito, для спасибо у нас кнопочка специальная есть.

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 24.04.24, 2:52
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!