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
をどうすればいいのか教えていただけませんか?
当方OFFICE2007を使用しています。
お礼
取得できました。 これだけで取得できたんですね。 あれだけ調べてわからなかったのが恥ずかしいです。 ありがとうございました。