Application.ActiveInspectorでエラーがでます。

エクセル２０１３でOUTLOO１３のメールを取得しようと，VBを作ってます。
下記のVBで，→　でエラーになります。

　　　Dim myExplorer As Outlook.Explorer
　　　Dim mySelection As Outlook.Selection
　　　Dim myInspector As Outlook.Inspector
　　　Dim targetItem As Object

　　　→　Set myInspector = Application.ActiveInspector

原因が分かりません。ご教示ください。

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/02/19 11:29

こんにちは、

示されている所だけで判断すると　Set myInspector = Application.ActiveInspector　は、サポートしていないと表示されるのでは？

この段階での、Application　はExcelを指しています。
したがってOutlookのApplicationであることを明示しなければなりません。

例として
Dim objOutlook As Object
Set objOutlook = New Outlook.Application
Set myInspector = objOutlook.ActiveInspector

この回答へのお礼

ありがとうござました。エラーの原因がわかりました。

お礼日時：2020/02/19 13:16

No.4 回答者： Qchan1962 回答日時： 2020/02/19 14:47

＞ありがとうござました。

エラーの原因がわかりました。
良かったです。
＃１　めぐみん_　確認ミスで、同様の内容で回答、かぶりました。すみません。

No.3 回答者： めぐみん_ 回答日時： 2020/02/19 12:53

参照設定されているのでしょうから。

Dim myApp As New Outlook.Application
Dim mySelection As Outlook.Selection
Dim myInspector As Outlook.Inspector
Dim targetItem As Object

Set myInspector = myApp.ActiveInspector

では如何ですか？
取り合えずこれだけで実行させた際にはエラーは出ませんでした。

No.1 回答者： めぐみん_ 回答日時： 2020/02/19 10:57

OEについてはちょ～ど素人な者ですから、ただの戯言としておいてください。

＞Dim myInspector As Outlook.Inspector

で既に宣言されてますので

Set myInspector =new Outlook.ActiveInspector

とかならまだわかるかなぁ～とも思います。
→New は Dim の方でやれるかもですが検証も出来ないクズ野郎なもので・・・

この回答へのお礼

ありがとうございました。エラー出なくなりました。

お礼日時：2020/02/19 13:16