0

受信メールを処理してから、いくつかの xls 添付ファイルをファイルとして保存する必要があります。だから、私はすべての添付ファイルを次のように取得します

For Each att In mail.Attachments

(私は実際にすべての添付ファイルをattオブジェクトに持っています - プロパティと添付ファイルの名前を比較して確認しました -問題ありませんatt.FileName。) しかし、添付ファイルをファイルとして保存しようとすると、たとえば次のようになります。

att.SaveAsFile "C:\test.xls"

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

4

1 に答える 1

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
于 2012-04-05T17:42:42.207 に答える