Автоматическое сохранение вложений из почты на сетевом диске

зачем откладывать сохранение до 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.

книги.Open (имя файла)

листы(1).Имя = "Лист 1"

Изменить 2 на основе комментария:

вы должны передать параметр.

откройте mailitem, затем F8 здесь.

Sub saveAttachtoDisk_test
Dim currItem as mailitem
set curritem = activeinspector.currentitem
saveAttachtoDisk curritem
set currItem = nothing
end sub