loItem.Save
cOldBody = loItem.body cNewBody = cOldBody + Chr(13)+ 'new text here....' loItem.Body = cNewBody loItem.Save