エクセルおよびOutlook 2016 - object'_mailItemの方法の体は '」私はいくつかの支援をお願いしますすることができます願っていますエラー

Question

おはようみんな、

に失敗しました。 Excel 2010で、選択したOutlook 2010フォルダの電子メールを調べ、電子メール（HTML）本文から情報を取得するプログラムを作成しました。最近、Office 2016に更新されました。それ以来、MailItemオブジェクトの特定のプロパティを使用するとエラーが発生します。私は電子メールの件名をExcelに取り込むことができますが、特定のプロパティによってobject'_mailItemの "method 'body'が失敗しました（.Bodyと.Toのプロパティを含む）。以下は、私はこの問題を診断するために使用しているコードの簡易版である：

Sub GatherInfo() 

Dim ObjOutlook As Object 
Dim MyNamespace As Object 
Dim FormFolder As Object 

Set ObjOutlook = GetObject(, "Outlook Application") 
Set MyNamespace = ObjOutlook.GetNamespace("MAPI") 
Set FormFolder = MyNamespace.PickFolder 

For i = 1 To FormFolder.Items.Count 

Range("A2").Select 
ActiveCell.Value = FormFolder.Items(i).Subject 
ActiveCell.Offset(0, 1).Value = FormFolder.Items(i).To 

End Sub 

これは、その結果： 実行時エラー「-2147467259（80004005）」：オブジェクトの「から」 方法'_MailItem'が失敗しました

私はいくつかの調査を行い、Outlook 2016のセキュリティ設定が責任を負う可能性があるかどうか疑問に思っています。これはExchangeサーバー上で実行されている企業の電子メールアカウントです。メールの本文や送信者にアクセスできなくなる可能性があると思いますか？電子メールのサブジェクトプロパティは機能しますが、ボディ/プロパティは機能しません。

物事私は除外しました：

1）私は同じ結果との両方のプレーンテキストとHTMLベースの電子メールを送ってきました。
2）Outlookオブジェクトを早期にバインドしようとしました（Outlook.ApplicationなどのDim ObjOutlook）

私はここで絶望的になり始めており、原因を見つけることができません。どんな援助、アイデア、回避策、何でも感謝します。

ありがとう皆さん！

Answer 1

避け、複数のドット表記とあなたが本当にMailItemオブジェクトを持っているかどうかを確認を使用して（あなたはまた、ReportItem持っているか、MeetingItemことができます）：2016

set items = FormFolder.Items 
For i = 1 To items.Count 
    set item = items.Item(i) 
    if item.Class = 43 Then 
    Range("A2").Select 
    ActiveCell.Value = item.Subject 
    ActiveCell.Offset(0, 1).Value = item.To 
    End If 
    set item = Nothing 
next 
set items = Nothing