Please help me understand SaveAsFile for attachments

[Ed from AZ]

(WinXPpro, OL2003) I have a PST folder full of emails with Word
documents as attachments. I am trying to write a macro that will open
each of these emails and save the attachments to a folder as Word
docs. I am fairly decent with Word and Excel VBA, but not very
familiar with Outlook VBA. I found the SaveAsFile method, but I don't
quite understand how it works. I'm trying to use it in the following
code, but it errors out:

x = objDestFolder.Items.Count
For cntI = 1 To x
Set objItem = objDestFolder.Items(cntI)

y = objItem.Attachments.Count
For cntA = 1 To y
Set objAtt = objItem.Attachments(cntA)
strDoc = Left(objAtt.DisplayName, Len(objAtt.DisplayName) - 4)
strDate = Format(objItem.CreationTime, "mm/dd/yy")
strFile = strPath & strDoc & "_(" & strDate & ").doc"
objAtt.SaveAsFile strFile << ERROR HERE
Next cntA
Next cntI

I can get to the folder, the email, and the attachment. All strings
are fine. The objAtt.SaveAsFile line, though, errors with
-209256445: Cannot save the attachment. Path does not exist. Make sure
the path is correct.

Any help setting this straight is appreciated.

Ed

 

[Sue Mosher [MVP-Outlook]]

The problem isn't with SaveAsFile but with your file name. A file name cannot include the / characters that you're adding with strDate. Windows interprets those as part of a file path which, of course, does not exist.

 

[Ed from AZ]

D'oh!!!! 8>\

Thank you, Sue. It now works great!!

Ed