ExcelVBAについてご質問があります。

コードを実行しようとしたところ、以下のエラーメッセージが表示されたのですが、参照設定でどれにチェックを入れたらよいか
わからず困っております、お忙しいところ恐縮ですがどなたかご教示いただけますと幸いです。
よろしくお願いいたします。

「excel vba コンパイルエラーユーザー定義型は定義されていません。」

Public Sub ExportToExcel()
' EXCEL ファイルをフルパスで指定します
Const EXCEL_FILE = "c:\temp\調査管理.xlsx"
Dim objItem As MailItem
Dim objBook 'As Excel.Workbook
Dim objSheet 'As Excel.Worksheet
Dim r As Integer
' メールをどのように開いているか確認
If TypeName(Application.ActiveWindow) = "Inspector" Then
Set objItem = ActiveInspector.CurrentItem
Else
Set objItem = ActiveExplorer.Selection(1)
End If
' Excel ファイルを開く
Set objBook = GetObject(EXCEL_FILE)
objBook.Windows(1).Activate
Set objSheet = objBook.Sheets(1)
' データがない行まで移動
r = 2
While objSheet.Cells(r, 1) <> ""
r = r + 1
Wend
' メールの情報を Excel ファイルに追記
With objSheet
.Cells(r, 1) = objItem.SenderEmailAddress
.Cells(r, 2) = objItem.Subject
.Cells(r, 3) = objItem.Body
End With
' Excel ファイルを閉じる
objBook.Close True
End Sub