Как проверить, установлен ли Outlook на вашем компьютере?

При переходе на новую должность и работе на новом компьютере может возникнуть необходимость проверить, установлен ли Outlook в системе. Как быстро выполнить такую проверку, не покидая Microsoft Excel или документ Word? Ниже приведён простой и быстрый способ решить эту задачу.

Проверка установки Outlook с помощью кода VBA

---

Проверка установки Outlook с помощью кода VBA

Выполните следующие действия, чтобы убедиться, что Outlook установлен на вашем компьютере.

1. Если вы используете Microsoft Excel или Word, нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте приведённый ниже код VBA в окно модуля. См. снимок экрана:

Код VBA: Проверка установки Outlook на вашем компьютере

Sub Outlook_Check()
    Dim xOLApp As Object
    On Error GoTo L1
    Set xOLApp = CreateObject("Outlook.Application")
    If Not xOLApp Is Nothing Then
        MsgBox "Outlook " & xOLApp.Version & " installed", vbExclamation, "Kutools for Outlook"
        Set xOLApp = Nothing
        Exit Sub
    End If
L1: MsgBox "Outlook not installed", vbExclamation, "Kutools for Outlook"
End Sub

3. Нажмите клавишу F5, чтобы запустить код.

Если Outlook установлен на вашем компьютере, появится диалоговое окно Kutools для Outlook, в котором отобразится версия установленного Outlook, как показано на снимке экрана ниже.

Если Outlook не установлен, появится окно с сообщением, как показано ниже.