Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
    saveFolder = "c:temp"

    MkDir itm.Parent, saveFolder ' here creating folder if not exist

    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "" & itm.Parent & "" & objAtt.DisplayName
        Set objAtt = Nothing
    Next

End Sub