Thank you, but I got error in this line

myAtts=olNameSpace.GetDefaultFolder(olFolderInbox).Items

olFolderInbox variable is not found. I have folder inbox in outlook and folder where are messages is "ptt" (subfolder of inbox).