MyTetra Share
Делитесь знаниями!
Как проверить открыто приложение Outlook или нет?
31.07.2019
22:38
Текстовые метки: поиск нужного процесса
Раздел: !Закладки - VBA

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


Код:


'она проверяет запущенные процессы,в них производит поиск нужного процесса

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




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования