Как проверить открыто приложение Outlook или нет?

[Freerider1972]

Доброго дня суток!
Перед отправкой нужно проверить открыто приложение Outlook или нет?
Чтобы вторично не запускать его через (Shell "OUTLOOK").

[doober]

Public Function Cont_Proc() As Boolean
Dim Process As Object
Cont_Proc = False
For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")

If Process.Caption Like "OUTLOOK.EXE" Then
Cont_Proc = True
Exit For
End If
 Next
End Function

[Freerider1972]

doober Спасибо большое за функцию! Все работает!
я как понимаю можно сделать обращение к любому приложению через эту функцию?

нашел ранее пример, но я так и не понял его порядок работы...

Пример определения запущен-ли Excel.
Вместо 'XLMAIN' можно подставить имя главного
окна Outlook (я его не знаю).

Declare Function FindWindow Lib 'user32' Alias _
'FindWindowA' (ByVal lpClassName As String, _
ByVal lpWindowName As Long) As Long

Function DetectExcel() As Long
' Procedure dectects a running Excel and registers it.
Const WM_USER = 1024
Dim hWnd As Long
' If Excel is running this API call returns its handle.
hWnd = FindWindow('XLMAIN', 0)
If hWnd = 0 Then ' 0 means Excel not running.
Exit Function
Else
' Excel is running so use the SendMessage API

End If
End Function

[doober]

Это не с той оперы.Моя функция не окна проверяет,она проверяет запущенные процессы,в них производит поиск нухного процесса

[Freerider1972]

это я как раз и понял, что ваша функция проверяет процессы ))