2

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
4

0 に答える 0