Public Sub saveAttachSentDate()
Dim itm As Outlook.MailItem
Dim currentExplorer As Explorer
Dim Selection As Selection

Dim objAtt As Outlook.Attachment
Dim saveFolder As String

Dim file As String
Dim DateFormat As String

Dim enviro As String
enviro = CStr(Environ("USERPROFILE"))
saveFolder = enviro & "\.tresorit\Tresors\Attachments\test\"

Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection

On Error Resume Next
For Each itm In Selection
 DateFormat = Format(itm.SentOn, "yyyy-mm-dd ")
 For Each objAtt In itm.Attachments
 
 file = saveFolder & DateFormat & objAtt.DisplayName
 objAtt.SaveAsFile file
 
 Set objAtt = Nothing
 Next
 
 Next
 
 End Sub