tipo de mensaje en mail con objetos

[TUESDAY]

Hola, quiero enviar un mail mediante objetos, pero quiero que el formato del texto sea HTML, alguien sabe cual es la propiedad del mensaje para decirle que tipo de mensaje es?
Os escribo el código que envia el mensaje por si sirve de ayuda.
Gracias de antemano.

FORM enviar_mail_con_objetos.

PERFORM averiguar_mail.
PERFORM crea_body.

DATA: appoutlook TYPE ole2_object.
DATA: appout2 TYPE ole2_object.
DATA: appitem TYPE ole2_object.
DATA: namespace TYPE ole2_object.
* Crear objeto OLE : outlook.application
CREATE OBJECT appoutlook 'outlook.application' .
* Mensajes vía MAPI
CALL METHOD OF appoutlook 'GetNameSpace' = namespace
EXPORTING #1 = 'MAPI'.
* Crea objeto nuevo ITEM ( nuevo mensaje )
CALL METHOD OF appoutlook 'CreateItem' = appitem
EXPORTING #1 = '0'.
* Propiedades TO , SUBJECT y BODY
SET PROPERTY OF appitem 'To' = mail.
SET PROPERTY OF appitem 'Subject' = 'Listado de pedidos'.
SET PROPERTY OF appitem 'content-type' = 'TEXT/XML'. --> Esta es la linea que no se como poner.
SET PROPERTY OF appitem 'Body' = cuerpo_html.
* Envía ITEM
CALL METHOD OF appitem 'Send'.
* Libera Espacio del objeto
FREE OBJECT appitem.
FREE OBJECT namespace.
* Cierra Outlook ( solo si se quiere que quede cerrado )
*** CALL METHOD OF APPOUTLOOK 'Quit'.
FREE OBJECT appoutlook.

ENDFORM. " ENVIAR_MAIL