Deprecated: str_replace(): Passing null to parameter #1 ($search) of type array|string is deprecated in /var/www/jsd/data/www/jsd.ru/plugins/system/admintools/src/Feature/CustomAdminFolder.php on line 83
Подключение VBA скриптов к Аутлуку (Установка ПО)
Skip to main content

Подключение VBA скриптов к Аутлуку (Установка ПО)

1. Файл -> Параметры -> Настроить ленту

Запустить Майкрософтовский Аутлук, разумеется.

В верхнем меню выьрать самый левый пункт "Файл", затем в нижней левой части открывшейся области найти пункт "Параметры".

Откроется окно параметров Outlook, в левой части окна нужно выбрать вкладку "Настроить ленку".

2. Активировать пункт "Разработчик"

В правой части окна под заголовком "Настройки однострочной ленты" должен быть выбран пункт "Основные вкладки".

В списке основных вкладок найти и активировать пункт "Разработчик".

Нажать кнопку "ОК", окно закроется.

В верхнем горизонтальном меню основного окна MS Outlook появится пункт "Разработчик".

3. Разработчик -> Visual Basic

Нажать пункт меню "Разработчик", а в панели инструментов выбрать графическую кнопку слева "Visual Basic".

Откроется окно "Microsoft Visual Basic for Applications" - редактор Visual Basic.

Вызвать это окно можно не заморачиваясь с предшествовавшей настройкой меню, просто используя сочетание клавиш Alt + F11.

4. Импорт файлов

Для импортирования файлов выберите пункт меню "File", а затем "Import file..." или просто нажмите сочетание клавиш Ctrl + M.

В проект нужно поштучно импортировать файлы, необходимые для работы Аутпучного копирулера:

  • CopyRule.cls
  • Main.bas
  • RForm1.frm

5. Открыть ThisOutlookSession

Вниз по дереву в левой части окна: Проект1 -> Microsoft Outlook Objects -> ThisOutlookSession.

Затем правой кнопкой мыши на ThisOutlookSession вызвать контекстное меню и выбрать пункт "View Code".

Откроется окно редактора кода.

6. Вставить код

В открывшемся окне редактора вставить код:

Private Sub Application_Startup()
    Load RForm1
End Sub

7. Сохранить проект

В меню редактора Visual Basic нажмите пунтк "File", затем "Save Проект1".

Кстати, сам "Проект1" перед сохранением вполне можно переименовать во что-нибудь более благопристойное.

Закрыть окно редактора после сохранения проекта.

8. Создание вкладки и группы

Чтобы новый инструментарий вызывался кнопкой и не путался с уже имеющимися стандартными наборами инструментов, создадим для него отдельный пункт верхнего горизонтального меню.

Для этого вернёмся к настройкам ленты: Файл -> Параметры -> Настроить ленту.

В нижней правой части окна настроек нажмите кнопку "Создать вкладку". При этом появятся "Новая вкладка (настраиваемая)", а в ней "Новая группа (настраиваемая)".

Порядок вкладок и групп внутри них можно менять перетаскиванием с зажатой левой кнопкой мыши на выбранной строке.

9. Переименования вкладки и группы

Чтобы задать имена созданной вкладке и группе, нужно поочерёдно выделить каждую из них и нажать кнопку "Переименовать..." в нижней правой части окна.

Вкладке дадим имя "JSD" (Joined Solutions Development), а группу назовём "Custom copy rules for MS Outlook", так будет красиво и понятно.

Для группы при переименовании доступен выбор иконки.

10. Добавление макроса в группу

Выделить группу "Custom copy rules for MS Outlook" в списке групп и вкладок, а над списком слева от него под заголовком "Выбрать команды:" выберите опцию "Макросы".

Содержимое списка слева сменится на список доступных макросов в формате "Имя_проекта.Имя_макроса". Выделите макрос "CopyForm" и нажмите кнопку "Добавить", находящуюся между левым и правым списками.

11. Кнопка настройки правил

Переименуйте добавленный макрос в "Rule managment" или "Управление правилами" и выберите подходящую по смыслу иконку, которая и станет кнопкой вызова окна создания и настройки правил копировани.

Для сохранения всех настроек нажмите "ОК" окна параметров Outlook.

12. Результат

Если всё сделано правильно, то нажатие кнопки "Rule managment" будет приводить к появлению окна создания и настройки правил копирования.

  • Создано
    04 августа 2023
  • Последняя правка
    04 августа 2023