Outlook 2010に、特定のメールフォルダー内のすべてのアイテムを反復処理し、そこからExcelスプレッドシートを自動入力するアドインを作成しようとしています。現時点では、デフォルトの受信トレイにさえアクセスできません。Visual Studio 2010 Proからアドインを作成し、必要に応じてオートコンプリートオプションを利用しています。私の問題は、基本的な変数を設定するだけでも、コードを実行するたびに「オブジェクトが見つかりません」というエラーが発生し、例外がスローされることです。何が悪いのかわかりませんので、よろしくお願いします。
Imports Microsoft.Office.Interop
Public Class ThisAddIn
Private Sub ThisAddIn_Startup() Handles Me.Startup
Dim olApp As Outlook.Application
Dim olNamespace As Outlook.NameSpace
Dim olFolders As Object
Dim olReadFolder As Outlook.Folder
Dim readCollection As Microsoft.Office.Interop.Outlook.Items
Dim currentMessage As Outlook.MailItem
Dim exWorksheet As Excel.Worksheet
olApp = New Outlook.Application
olNamespace = olApp.GetNamespace("MAPI")
'olFolders = olNamespace.Folders
olReadFolder = olNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) '<-- Add-in fails here
End Sub
Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
End Sub
End Class