Зачем откладывать сохранение до 8:00?
В правиле, которое "захватывает эти письма", сохраняйте с помощью "Запустить скрипт".
Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "D:\temp" ' change to your path
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & Format(Now, "yyyy-mm-dd") & ".xls"
Next
End Sub
Редактировать на основе комментария:
Не уверен, что вы захотите сделать это внутри saveAttachtoDisk, но для работы с книгой после ее сохранения существует Excel.
Попробуйте GetObject, если есть ошибка, тогда используйте CreateObject("Excel.Приложение ")http://support.microsoft.com/kb/288902
Тогда что-то вроде этого или любой другой способ работает для вас, так как вы знаете Excel VBA.
Workbooks.Открыть (имя файла)
Рабочие листы (1).Имя = "Лист 1"
Редактировать 2 на основе комментария:
Вы должны передать параметр.
Откройте mailitem тогда F8 здесь.
Sub saveAttachtoDisk_test
Dim currItem as mailitem
set curritem = activeinspector.currentitem
saveAttachtoDisk curritem
set currItem = nothing
end sub