VB.netのOutlookエラー

Question

以下のコードは先週完璧に動作していましたが、現在このエラーが発生していますが、どこが間違っているのか分かりません。

できません。タイプをインタフェースするタイプ 'システム.__ comobject'「のCOMオブジェクトにMicrosoft.office.interop.outlook.mailitem

Try 
    Dim olApp As Outlook.Application 
    Dim olNs As Outlook.NameSpace 
    Dim olMail As Outlook.MailItem 
    Dim i As Integer 

    olApp = New Outlook.Application 
    olNs = olApp.GetNamespace("MAPI") 

    Dim Fldr As MAPIFolder 
    Fldr = olNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail) 
    i = 1 

    For Each olMail In Fldr.Items 
     If InStr(olMail.Subject, TextBox1.Text) <> 0 Then 
      olMail.Display() 
      i = i + 1 
     End If 
    Next olMail 

    Catch ex As System.Exception 
     MsgBox(Err.Description) 
End Try 

Answer 1

をキャストおそらく/アイテムでMailItem以外のオブジェクト（例えばReportItem、MeetingItem）がありますされますリスト。あなたがした何のために本当に感謝..

Try 
    Dim olApp As Outlook.Application 
    Dim olNs As Outlook.NameSpace 
    Dim olMail As Outlook.MailItem 
    Dim oObject As Object 
    Dim i As Integer 

    olApp = New Outlook.Application 
    olNs = olApp.GetNamespace("MAPI") 

    Dim Fldr As MAPIFolder 
    Fldr = olNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail) 
    i = 1 

    For Each oObject In Fldr.Items 
     If TypeOf oObject Is Outlook.MailItem Then 
      olMail = CType(oObject, Outlook.MailItem) 
      If InStr(olMail.Subject, TextBox1.Text) <> 0 Then 
       olMail.Display() 
       i = i + 1 
      End If 
     End If 
    Next olMail 

    Catch ex As System.Exception 
     MsgBox(Err.Description) 
End Try 

Answer 2

はい、それはやったトリックの下に試してみてください。..感謝の

トン。