Outlook több levél melléklete mentése egyszerre párbeszédpanellal makroval?

Több levél mellékletét akarom lementeni egyszerre, ezt sikerült is, de csak egy fix mappába.

Kód:

"Sub Mellékletek()

Dim oApp As New Outlook.Application

Dim oExp As Outlook.Explorer

Dim oSel As Outlook.Selection ' You need a selection object for getting the selection.

Dim oItem As Object ' You don't know the type yet.

Set oExp = oApp.ActiveExplorer ' Get the ActiveExplorer.

Set oSel = oExp.Selection ' Get the selection.

For i = 1 To oSel.Count ' Loop through all the currently .selected items

Set oItem = oSel.Item(i) ' Get a selected item.

' MsgBox oItem ' Display information about it.

For Each csat In oItem.Attachments

csat.SaveAsFile "Z:\" & csat.DisplayName

Next

Next i

End Sub"

Hogy lehetne azt, hogy ne egy fix mappába mentse, hanem én tudjam kitallózni, hogy melyik mappába akarom menteni annak az x levélnek a mellékleteit?

"csat.SaveAsFile "Z:\" & csat.DisplayName" ez helyett kellene valami más, de annyira nem értek még a makrózásokhoz.