[Likefire]

С помощью MailItem.Body := ... - никак. А если иначе - вариантов как минимум два. Первый - редактирование послания делать с помощью Automation какого-либо текстового редактора, открывая диалог этого самого редактора, а при закрытии диалога, сохраняя текст в формате rtf, чтобы потом в виде BLOB этот текст влепить в тело письма одним из методов того же MailItem. Второй вариант - написать свой собственный Automation, который будет с помощью метода, аналогичного MailItem.Body не формировать единожды весь текст письма, а добавлять текст при каждом вызове к уже имеющемуся. Вот так вот...