Cómo comprobar si Outlook se está ejecutando, utilizando vbscript

outlook.application

Question

Cómo comprobar si Outlook se está ejecutando, utilizando vbscript, necesito esto para mi procedimiento de instalación para pedirle al usuario que cierre Outlook antes de instalar mi aplicación.

Gracias,

Answer 1

llamar a CheckOutlookAndSendEmail

Sub MailViaOutlook () Dim OutApp Dim OutMail Establecer OutApp = CreateObject ("Outlook.Application") Establecer OutMail = OutApp.CreateItem (0)

On Error Resume Next
With OutMail
.to = "youremailid"
.CC = ""
.BCC = ""
.Subject = "your Subject"
.Body =" Thanks - .......:)"
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing

End Sub

La función ''Abajo'' es para Outlook abierto

sub OpenOutlook ()

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "Outlook"
If Err <> 0 then
Err.Clear
Set ObjOL= CreateObject("Outlook.Application")
End If

End sub ''End Function OpenOutlook

Sub CheckOutlookAndSendEmail ()

dim Process, strObject, strProcess
Const strComputer = "."
strProcess = "OUTLOOK.exe"
strObject = "winmgmts://" & strComputer
For Each Process in GetObject( strObject ).InstancesOf( "win32_process" )
If UCase( Process.name ) = UCase( strProcess ) Then
call MailViaOutlook '' no need to open outlook as it is already open, Hence using the exesting and send email
exit sub
end if
Next
call OpenOutlook '' Open Outlook
call MailViaOutlook '' send email using outlook

terminara si

End Sub

Answer 2

Puede tratar de obtener el objeto Aplicación de Outlook utilizando la función GetObject . Si la llamada a función tiene éxito, significa que Outlook se está ejecutando actualmente:

On Error Resume Next
Dim Outlook: Set Outlook = GetObject(, "Outlook.Application")
If Err.Number = 0 Then
'' Outlook is running
Else
'' Outlook is not running
Err.Clear
End If
On Error Goto 0

Answer 3

Dim Process, strObject, strProcess
Const strComputer = "."
strProcess = "OUTLOOK.exe"
IsProcessRunning = False
strObject = "winmgmts://" & strComputer
For Each Process in GetObject( strObject ).InstancesOf( "win32_process" )
If UCase( Process.name ) = UCase( strProcess ) Then
MsgBox "Outlook is running"
End If
Next