С помощью правила в 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

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

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

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

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