Уважаемые коллеги, нужен совет.
Каждый день приходит письмо с вложенным архивом .zip
Имя у архива всегда одинаково.
Имя файла в архиве такое-же как у самого архива.
Файл а архиве 1
Хочу заставить outlook автоматически разархивировать архив, добавляя к имени разархивированного файла порядковый номер, соответствующий текущему дню месяца _(dd), затирая уже существующие файлы с таким же именем.
Написал простой скрипт для Outlook, который атоматически сохраняет архив из вложения Outlook, и разархивирует его.
вот он:
| Код |
|---|
Sub save_a(myItem As Outlook.MailItem)
Dim att_count As Integer
Dim toDay
toDay = Int(Now)
For att_count = 1 To myItem.Attachments.Count
myItem.Attachments.Item(att_count).SaveAsFile ("C:\stat\" & Format(toDay, "dd") & myItem.Attachments.Item(att_count).FileName)
Next
Shell "C:\Program Files (x86)\WinRar\Winrar.exe e c:\stat\*.zip
c:\stat\unzipstat\"
end Sub |
Первая часть кода сохраняет вложение в C:\stat\
Вторая шеллом разархивирует это в c:\stat\unzipstat\
| Код |
|---|
Shell "C:\Program Files (x86)\WinRar\Winrar.exe e c:\stat\*.zip
c:\stat\unzipstat\" |
Проблема в том что разархивированному файлу не присваивается _(dd).
Единственное к чему мне удалось прикрутить это присваивание, так это к самому архиву, а это в моем случае как собаке пятая нога.
Помогите пожалуйста.
