outlookが起動してるかどうかを取得したい

質問

Sub Outlookが起動してないなら起動する()
Dim oApp 'As Outlook.Application OutlookのApplication オブジェクトを入れる
Dim myNameSpace 'As Outlook.NameSpac
Dim myFolder 'As Outlook.Folder

If Outlookが起動してるなら Then Exit Sub

'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
Set oApp = CreateObject("Outlook.Application")

Set myNameSpace = oApp.GetNamespace("MAPI")

Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー
myFolder.Display

'(通常サイズ olNormalWindow=2 , olMaximized=0,olMinimized=1)
oApp.ActiveWindow.WindowState = 0
End Sub
/////////////////////////////////////////////////////////////////

のような事がしたいのですが、
If Outlookが起動してるなら Then Exit Sub
をどうすればいいのか教えていただけませんか？

当方OFFICE２００７を使用しています。

回答No.1

cj_mover · ベストアンサー

こんにちは。

On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If Not o Is Nothing Then Exit Sub

とか

On Error Resume Next
Debug.Print GetObject(, "Outlook.Application").Name
If Err.Number = 0 Then Exit Sub
On Error GoTo 0

というようなことでしょうか。

お礼

ありがとうございました。