Доброго дня суток!

Перед отправкой нужно проверить открыто приложение 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