UserName = Environ("USERNAME")
'sFileType = ".txt"
sDateMail = Format(Now, "dd.mm.yyyy")
saveFolder = "C:\Data\" & UserForm1.TextBox2.Text
For Each myObj In Application.ActiveExplorer.Selection
If myObj.Class = olMail Then
For Each objAtt In myObj.Attachments
FullPath = saveFolder & "\" & sDateMail & "_" & objAtt.FileName '& sFileType
'FullPath = saveFolder & "\" & objAtt.DisplayName
objAtt.SaveAsFile FullPath
End If
Set objAtt = Nothing
Next
End If
MsgBox ("Файлы успешно сохранены:" & FullPath)
Next

userFolder = "Test" ' папка выбранного почтового адреса

.To = "Test@test.ru"
saveFolder = "C:\" + userFolder

Sub CopyFiles()
Dim Okno As FileDialog
Dim Path1 As String
Dim Path2 As String

Пример где указывают пути... Надо чтобы открывалось окно для выбора файла и сохранялось
' Path1 = "С:\"  
' Path2 = "D:\"
' FileCopy (Path1, Path2)


Set Okno = Application.FileDialog(msoFileDialogFilePicker)
With Okno
    .AllowMultiSelect = False
    .ButtonName = "Выбрать"
    .InitialFileName = "C:\"
    .Title = "Выберите файл"
    .Show
    If .SelectedItems.Count > 0 Then
        Path1 = .SelectedItems(1)
        Cells(1, 1) = Path1
        
    Else
        Exit Sub
    End If
End With
End Sub