vba - 設定 outlook.attachment = メール アイテムの添付ファイル

Question

添付ファイルをディレクトリに保存するスクリプトを作成しようとしています。実行すると、「タイプの不一致」というエラー メッセージが表示され、その行Set olAtt = olMi.Attachments が強調表示されます。誰かがアドバイスできますか？

Sub SaveAttachments()

Dim olApp As Outlook.Application
Dim olNs As Namespace
Dim Fldr As MAPIFolder
Dim MoveToFldr As MAPIFolder
Dim olMi As Outlook.MailItem
Dim olAtt As Outlook.Attachment
Dim MyPath As String
Dim i As Long
Dim j As Long
Dim filesavename As String

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
Set MoveToFldr = Fldr.Folders("Survey")
MyPath = "C:\Users\temp"


For i = (Fldr.Items.Count - 150) To Fldr.Items.Count 

    Set olMi = Fldr.Items(i)
    If InStr(1, olMi.Subject, "Survey") > 0 Then
        j = olMi.Attachments.Count
        Set olAtt = olMi.Attachments
        filesavename = MyPath & olAtt.Filename
        olAtt.SaveAsFile filesavename

        olMi.Save
        olMi.Move MoveToFldr

    End If
Next i

Set olAtt = Nothing
Set olMi = Nothing
Set Fldr = Nothing
Set MoveToFldr = Nothing
Set olNs = Nothing
Set olApp = Nothing

End Sub

Answer 1

olAttOutlook.Attachment(単数)として宣言されます。

olMi.Attachments添付ファイルのコレクションです。