コンパイルエラー：オブジェクトライブラリ機能がサポートされていませんOutlook.Application

Question

Microsoft AccessシステムでVBで問題を修正する作業がありましたが、わかりません。この問題は、ソフトウェアを実行している5台のPCのいずれかでのみ発生します。 私は、Outlook &アクセスし、それを再インストールを削除

• 試してみました。
• Microsoft Accessアプリケーションを削除して再インストールします。
• 他のサイトで見つけた回答に一致するようにコードを変更しました。

このコードは次のようにコードがあるエラー が表示されます。

Dim objOutlook As Outlook.Application 
    Dim objMailItem As MailItem 
    Dim db As DAO.Database 

    'Create email object and send attachment 

    Set objOutlook = DetectOutlook() 
    If objOutlook Is Nothing Then 
     Set objOutlook = New Outlook.Application 
    End If 

他のサイトで推奨されているように変更しました。

Dim objOutlook As Object 
    Dim objMailItem As MailItem 
    Dim db As DAO.Database 

    'Create email object and send attachment 

    If GetObject(, "Outlook.Application") = True Then 'Outlook was already running 
     Set objOutlook = GetObject(, "Outlook.Application") 'Bind to existing instance of Outlook 
    Else 'Could not get instance of Outlook, so create a new one 
     Set objOutlook = New Outlook.Application 
    End If 

このコードの変更により、実行時に強制的にシャットダウンへのアクセスが強制終了されました。 私はVBとAccess Developmentの新機能ですので、これは簡単な修正です。詳しい情報が必要な場合はお尋ねください。その2016 MicrosoftのFYI。 ありがとうございます

Answer 1

私は、異なる見通しのバージョンへの間違った参照が疑わしいと思う。

あなたのユーザー環境で異なるバージョンのOutlookまたはアクセスが使用される可能性がある場合は、遅延バインディングを使用する必要があります。あなたが投稿した2番目のコードはそこに半分ですが、私はここで読むことをお勧めします。 http://sourcedaddy.com/ms-access/late-binding.html

Answer 2

Dreadfoolの示唆している奇妙な回避策をMSDNで試してみることもできます。コード行を変更する必要はありません。

マクロを別のファイルに保存し、この新しいファイルをプロジェクトにインポートするだけです。この単純な手順は、私の場合、コードが365の更新後に動作しなくなったときに役立ちました。

Answer 3

Visio 2016 64bitをインストールした後もOutlookマクロが動作しなくなりました（同じエラーメッセージですが、 "GetFolder" Office 2016 ProPlus 64bitインストールと並行してインストールします。

最初にリブートを試みました - >効果なし。

次に、Officeのオフライン修復を試みました - >効果なし。

オンライン修復 - >再び動作させました。