エクセルｖｂａで アウトルック2010を開く

ＰＣにアウトルックの2013と2010両方入っていますが、2010のみ使用している環境で、2010を指定したいのですが・・・

　Dim oApp 'As Outlook.Application OutlookのApplication オブジェクトを入れる
Dim myNameSpace Dim myFolder
Dim z As Integer

Set oApp = CreateObject("Outlook.Application")
Set myNameSpace = oApp.GetNamespace("MAPI")

'次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display)
Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定
myFolder.display '表示 いつものクセで .Visible = True とやりがちだけど
'通常サイズ olNormalWindow=2 で表示(ほかに olMaximized=0,olMinimized=1)
oApp.ActiveWindow.WindowState = 2 'olNormalWindow=2 を セット
Call oApp.Session.SendAndReceive(True)

上記、他のマシンで2013が動いているマシンでは　コピペで動いてはいるのですが、2013にメール受信のセットアップが完了していないマシンで困っています。
というか、そのマシン、ＯＳをアップデートしていない為か、2013が　VBA-com　エラーが出ます。
で、2010でセットアップ完了、使用可能ではあるのですが、上記では、2013を起こします。

で、2010のアウトルックを指定したい。
フルパスだと、Office14　の中に成るのですが

よろしくどうぞ。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2016/09/20 20:45

>ＰＣにアウトルックの2013と2010両方入っていますが、2010のみ使用している環境で、2010を指定したいのですが・・・

結論から言うと、それはできません。

Outlookに関してのみですが、複数のバージョンがある場合は、ひとつしか稼働しなくなるはずです。もしくは、インストール時に、上位バージョン側のOutlookのイントールを取りやめにすることもあります。

>Set oApp = CreateObject("Outlook.Application")

MSのサポートでは
「Outlook に関しては同じコンピューター上で異なるバージョンを同時に使用することができないため、Outlook 2013 がコンピューターにインストールされると、古いバージョンの Outlook が削除されます。」

だということですが、必ずしも、そうではないようです。しかし、立ち上げてみると、新しい方の　Outlookが起動していなければ、エラーが発生しているはずです。

もちろん、オートメーションで呼び出したときにも、すでにひとつにきまっているのですが、それを、ExcelやWordのようには、使い分けることができないはずです。もしも、ここで、Office 2013 のOutlook が呼び出されていないとすれば、一度、Office 2013 の修復をかけないといけません。

なお、この件は、私も同様の経験しました。

この回答へのお礼

お礼が遅れまして、陳謝。
色々、確認が取れましたが、マクロの未整理と思う。
2013、修復かけたら、両方使える。
2010、起こして、上記叩いたら2010でそのまま実行。
ただ、相変わらず、プログラムは指定できない・・・・

使い方で工夫するより。

お礼日時：2016/09/22 12:11