HOla !
Estoy intentando enviar unos mensajes mediante programacion y no hay manera de poder poner la letra en courier en el cuerpo del mensaje.

Utilizo el siguiente codigo :

Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object

'Se declara un objeto de tipo Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Se crea un nuevo mensaje
Set objMail = objOutlook.CreateItem(olMailItem) 'Create a new
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
'Se le asignan los valores a las distintas propiedades del objeto "mail"
With objMail

'A quien va dirigido se podría escribir un grupo de usuarios de Outlook
.To = Text2
'Se especifica el asunto
.Subject = text3

'Se especifica lo que se quiere que diga el mensaje

.body = text4

'Se escriben el o los archivos a adjuntar en el mail

.ReadReceiptRequested = True

'Se manda el mensaje

.Send

End With

'Se cierran todos los objetos utilizados
Set objMail = Nothing
Set objOutlook = Nothing


Gracias de antemano !!