Решить задачу из описания

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

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