ActiveXはオブジェクトを作成できません - OutA = CreateObject（ "Outlook.Application"）

Question

私は従来のVB6アプリケーションを持っており、何日も何もしないという問題を抱えています。

このアプリでは、アプリケーション自体からメールを送信できます。 7 Windowsでは、これは完全に正常に動作します（電子メールを送信するときに、ユーザーがOutlookのオープンがあっても）、問題はWindows 10である以下のコードを見てください... Windows 7のOffice 2007ので

Dim outA As Outlook.Application 

Set outA = New Outlook.Application 

If outA Is Nothing = True Then 
    'Outlook is not open... so need to create a new outlook 
    Set outA = CreateObject("Outlook.Application") 
End If 

それはPERFECT作品。ユーザーはOutlookを開いておくことができ、問題なく動作します。

Windows 10 Office 2016では、この同じコードは機能しません。それは私にエラーを与える

Set outA = New Outlook.Application. 

あなたがOutlookが開いていない場合は、コードは問題なしで動作します。私はOutlookがすでに開いている場合にのみ、このエラーが発生します。 ActiveXは私が自分のコンピュータ上のローカルprivelagesを持っていることを追加する必要がありますオブジェクトエラー429

を作成することはできません

エラーがあります...。 VB6 .exeをADMINとして明示的に開き、OutlookをADMINとしても開くと、コードによって問題は発生しません。 UACプロンプトが無効になっています。私はADMINの権利をユーザーに与えることはできません - 残念ながら。

何が問題になりますか？私はDLLや何かを逃している - これは私を夢中にされている。 Windows 7で使用されているアプリケーションがもう少しありますが、この問題は発生していません。これをWindows 10に移動した場合のみです。

Answer 1

開発のための初期バインディングを保持し、一度完了すると、後でバインドするためにスクラップします。 VBEのMicrosoft Outlook xx Object Libraryへの参照を削除することを忘れないでください。

アーリーバインディング：

Dim outA As Outlook.Application 
Set outA = New Outlook.Application 

レイトバインディング：

Dim outA As Object 
Set outA = CreateObject("Outlook.Application") 

理由は、事前バインディングを参照のOutlookなどの特定のバージョンMicrosoft Outlook 14.0 Object LibraryはOffice 2010に固有のものですので、使用できない場合はエラーが発生します。参照自体には「欠落」と記されています。

レイトバインディングのCreateObject("Outlook.Application")はそれを処理します。