When pulling in emails try this :

VB Code:
  1. Item.Subject = "This is a new subject"