Outlook添付ファイルの数が正しくない番号を表示

Question

選択したメールに添付されているすべてのアイテムをループ処理しようとしていますが、添付ファイルの数が不当な値を示しています。

Sub ABU_out() 

Dim olapp As Outlook.Application 
Dim olmail As Outlook.MailItem 
Dim item As Object 
Dim olath As Outlook.Attachments 




Set olapp = GetObject(, "Outlook.Application") 
Set olmail = olapp.ActiveExplorer.Selection(1) 


If Not olmail.Attachments.Count = 0 Then 

Debug.Print olmail.Attachments.Count 

     For Each olath In olmail.Attachments 

      If InStr(LCase(olath.FileName), "certificate") Then 

       If InStr(LCase(olath.FileName), "endorsement") = 0 Then 

        Debug.Print olath.FileName 

        olath.SaveAsFile "C:\Users\mohit.bansal\Desktop\Automations\ABU\Slips Sample\" & olath.FileName 

       End If 

      End If 

     Next 

End If 



End Sub 

私は2つのアイテム「のDebug.Print」でメールを選択した場合の問題は、メールはそれが5エラーコードで何が間違っているのは何もわからないと言うolathに来ると言う3つの項目がある場合は3を言うと発生、私は円滑に動作する私的なイベントで同様のコードを使用しています。

Answer 1

エラーが見つかりました。私はoutlook.attachmentsとしてolathを宣言していますが、オブジェクトとして宣言すると動作します。