vbscriptを使用してOutlookが実行されているかどうかを確認する方法

Question

Outlookが実行されているかどうかを確認する方法、vbscriptを使用してアプリケーションをインストールする前にOutlookを閉じるように求めるインストール手順が必要です。

おかげで、

Answer 1

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 

Answer 2

あなたはGetObject機能を使用してOutlook Applicationオブジェクトを取得してみてください。関数呼び出しが成功した場合、これは、Outlookが現在実行されていることを意味します

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

コールCheckOutlookAndSendEmail

サブMailViaOutlook（） 薄暗いOutApp 点心OutMail 設定OutApp =のCreateObject（ "Outlook.Application"） 設定し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の

エンド機能が

サブ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 

端

場合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 

オープン見通し

サブOpenOutlook（）のためのものです'

End Sub