You don't need const for path. Just use what you commented to set the value for path.
To use another folder, you will need the path. Look at how I got that and used it in this thread: http://www.vbaexpress.com/forum/show...ch-appointment
For the marking read, maybe:
I don't know what you mean by subject line unique parts.'other stuff If olitem.attachments.Count <> 0 Then olitem.read = True 'other stuff