Your sample code hardcodes the destination folder in the saveAttachtoDisk
sub. You can pass this information via parameter into (a variation of) this sub:
Public Sub saveAttachtoDisk(itm As Outlook.MailItem, saveFolder As String)
Dim objAtt As Outlook.Attachment
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub
and call it like this:
Dim saveFolder As String
saveFolder = "C:\Some\Where\Else"
saveAttachtoDisk itm, saveFolder
...
saveAttachtoDisk otheritm, "d:\why\not\here"
Of course, now the question is: How should these 'other folders' be determined? By user interaction? By a function applied to some Outlook/User/Main/System property?