С помощью правила в outlook, вызываю скрипт ниже 

Public Sub saveAtt(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment

Dim saveFolder As String

Dim sDateMail As String

sDateMail = Format(itm.CreationTime, "hh-mm-ss_dd.mm.yyyy") saveFolder = "C:\Users\???\Desktop\Pisma"\

For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "\" & sDateMail & "_" & objAtt.FileName

Set objAtt = Nothing Next objAtt

End Sub

Но он сохраняет все в одну папку. Хотелось бы чтоб сохранял в новую папку с названием темы письма и временем, в папке назначения

2 года назад
paw15
Павел 
34 года
6 лет в сервисе
Был
2 года назад

Заявки фрилансеров

Андрей
 
33 года
2 года в сервисе
Был
2 года назад
2 года назад