Delete the top row of an email message automatically

Hi there, I am trying to automatically delete the top row of any newly created message and the code I am using is; objolMailItem.Body = Replace (objolMailItem.Body, Left (objolMailItem.Body, Loc),"") where Loc points to the 1st vbCrLf of the message. The code works ok except that it takes away all the formatting in the body of the message. Am I doing something wrong and can someone please help, Thanks in advance Jon,