VBA - 「ActiveXコンポーネントはオブジェクトを作成できません」のエラー

Question

■のように、IEオブジェクトやOutlookオブジェクト作成時、
レイトバインディング(?)した場合のみ、下記のエラーが出ます。

どのようなロジックでこのエラーが起きてしまうのでしょうか。
回避方法を教えてください。
（検索してもよくわかりませんでした...)

実行時エラー'429'
ActiveX コンポーネントはオブジェクトを作成できません。

###IEオブジェクトの作成時

'エラーが出る
Dim objIE As InternetExplorerMedium
Set objIE = CreateObject("InternetExplorer.ApplicationMedium")

'エラーが出ない
Dim objIE As InternetExplorerMedium
Set objIE = New InternetExplorerMedium

###Outlookオブジェクトの作成時

'エラーが出る
Dim OLobj As Outlook.Application
Set OLobj = GetObject(, "Outlook.Application")

'エラーが出ない
Dim OLobj As Outlook.Application
Set OLobj = New Outlook.Application

Comments

[kenshirou]

Outlookのエラーが出るパターンのOLobjの定義は、「Dim OLobj As Outlook.Application」が正しい（「Outlook.aApplication」の小文字のaは誤記）という理解でよいでしょうか？
あと、GetObject(, "Outlook.Application")を行うときは、すでにOutlookが起動している状態でしょうか？（起動していなければ、上記GetObjectは確かにエラーになります。）

[koyamashinji]

杜撰な表記ですみません。
・小文字のaは誤記です。
・おっしゃる通りOutlookが起動していない状態で試していました。起動している状態だと、エラーはでませんでしたので、レイトバインディングは関係なさそうです。
ご指摘２点、修正いたします。

Answer 1

InternetExplorerMediumについては、遅延バインドを使用するためにはレジストリ操作が必要のようです。
以下の知恵袋の回答に情報があります。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13129179303

また、OutlookのGetObject(, "Outlook.Application")については、CreateObjectではないので、そもそもOutlookが起動していなければエラーになります。

※参照設定を行っているなら、遅延バインドを使うメリットはないのですが、どうなのでしょうか。

Comments

[koyamashinji]

回答ありがとうございます。
参照設定しているので、アーリーバインディングで対応したいと思います。