VBA Outlook SaveAsFileメソッドで空のファイルが作成される

Question

受信メールを処理してからxls添付ファイルをファイルとして保存する必要があります。 だから、私は

For Each att In mail.Attachments 

としてすべての添付ファイルを取得します（私は本当にattオブジェクト内のすべての添付ファイルを持っている - 私は私の添付ファイルの名前とatt.FileNameプロパティを比較することによって、それをチェックする - 。それは大丈夫だ）しかし、私は私の添付ファイルを保存しようとすると、

att.SaveAsFile "C:\test.xls" 

ファイルは作成されますが、常に空です。添付ファイルのソースファイルにはデータ、テキスト、画像が含まれていますが、保存されたファイルは空です。

Answer 1

問題がどのようなものかをコードから特定するのは難しいです。 Outlook 2003を使用して、これを任意の/すべての.xls添付ファイルで正常に動作させるようにしました。

Sub TestSub() 
    Dim mail As Outlook.Inspector 
    Dim att As Variant 
    Set mail = Application.ActiveInspector 
    For Each att In mail.CurrentItem.Attachments 
     att.SaveAsFile "P:\test.xls" 
    Next att 
End Sub