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:
'other stuff
If olitem.attachments.Count <> 0 Then
  olitem.read = True
'other stuff
I don't know what you mean by subject line unique parts.