VBAでOutlookの受信メールをexcelに出力するときにエラーが出ます

VBA初心者です
度重なる質問で申し訳ないです
現在下記サイト様を参考にし表題のVBAを書いているのですが受信トレイを開いて全行取得する際、91エラーが出ます
（60行目For Each itms〜の部分です）
内容がオブジェクト変数、またはwithブロック変数が設定されていないという内容なので
itmsとitms1に変数を設定するのかな？と思うのですがSet item =のあとに何を入れるべきかわからなくて質問させてもらいました

ちなみに関係ない部分にはなりますが、
End SubとError発生時の処理は入れています

https://www.depthbomb.net/?p=208

質問者からの補足コメント

• 

  回答ありがとうございます！
  結果としてはアカウントの設定なのですが、自身のPCで自身のアドレスを使った場合うまく行くことがわかったんですが、
  いざ会社のPCで会社のアドレスを使用すると同じエラーが発生します…

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/07/15 10:43

No.5 ベストアンサー 回答者： Qchan1962 回答日時： 2020/07/17 19:51

会社のPCでOutlookのデフォルト設定を変更する事でも出来そうです。

が、
デフォルト設定でないアカウントのフォルダを取得するには、
デフォルトでないアカウントにはGetDefaultFolderが通らないと思いますので
60行　For Each itms In objOutlookStore.GetDefaultFolder(6).Items　を以下のように書き換えます。

　　Dim fldr As Folder, TargetFolder As Folder
　　Dim oAccount As Account

　　For Each oAccount In objOutlook.Session.Accounts
　　　　For Each fldr In objOutlook.GetNamespace("MAPI").Folders
　　　　　　If fldr = TargetAccount Then　'設定されているアカウント名（データ ファイルプロパティで確認）
　　　　　　　　Set TargetFolder = fldr.Folders("受信トレイ")　'受信トレイ　は、実際のフォルダ名で
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　Next
　　For Each itms In TargetFolder.Items

27行目　TargetAccount＝　　の　"対象のアカウント名"　は、メールアドレスとは限りません。
実際にデータ ファイルプロパティで確認してください。

No.4 回答者： nekoronda 回答日時： 2020/07/16 23:55

それってOutlook上で会社PCのアドレスでアカウントを作成していますか？

この回答へのお礼

そうです！

お礼日時：2020/07/17 09:18

No.3 回答者： Qchan1962 回答日時： 2020/07/15 20:49

こんばんは、

60行目は For Each itms In objOutlookStore.GetDefaultFolder(6).Items
なので、デフォルトアカウントの受信フォルダが対象ですね、会社のPCの会社アドレスは、デフォルトアカウントですか？
他のアドレスもOutLookにありませんか？確認してみてください。

もし、デフォルトアカウントでない場合は、他の質問に回答した別アカウントのフォルダを取得する
方法を試してみてください。

No.2 回答者： Qchan1962 回答日時： 2020/07/15 00:33

こんばんは、

60行目、のコードにエラーがあるように思えません。
各変数への代入は、正しく行っていますか？
アカウント設定に不具合があれば
On Error GoTo ErrorProcess　ではじかれるはず
＞Error発生時の処理は入れています
であれば、もしかすると、
変数宣言を強制していないのであれば、エラーが出る行に
タイプミス（半角スペース）などで新たな変数になっていませんか？

No.1 回答者： nekoronda 回答日時： 2020/07/14 18:43

私の方で環境が無いので確証はありませんが、、、、

60行目でエラーとなっているのであればobjOutlookStoreがセットされていない、
つまり49行目でセットが失敗しているような気がします。
49行目からさらに遡って行くと、27行目の対象のアカウント名にぶち当たりますので
そこで正しいアカウントを設定していないのではありませんか？