Error Saving Outlook attachment Via Excel code

[charlesdh]

HI,



Hate to say this but, I have a problem that I can not resolve.
In this part of the code is where I get a error for permission. It worked on Saturday. But, when I went back to it today(Sunday) to test before I moved it to my actual project it failed me.

If oOlItm.Attachments.Count <> 0 Then
            For Each oOlAtch In oOlItm.Attachments
                '~~> Download the attachment
                oOlAtch.SaveAsFile NewFileName & oOlAtch.Filename''Failes here
                Exit For
            Next
        Else
            MsgBox "The First item doesn't have an attachment"
        End If