'..snip...
For Each M In objInbox.Items
        Text = Text & M.Subject & vbCr
        x=x+1
	M.Body= "foo bar"      'Assignment
	msgbox M.Body          'Works perfectly
	M.Save
Next
'..snip...