Configurar Bodyformat mail en VBA

Hola Expertos,
Mediante código VBA a través de Excel 2007 estoy enviando emails
con Outlook.
En Outlook la configuración que tengo es que todos los
nuevos mensajes salgan en formato HTML. Esa configuración la debo de seguir manteniendo
para otras tareas, sin embargo, necesito que cuando mande emails mediante VBA
estos sean en formato de texto plano.
Este es mi código actual, donde ya he probado algunas cosas
sin éxito:

   
Dim OutApp
As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail =
OutApp.CreateItem(olformatplain)
    On Error Resume Next
    With OutMail
        .BodyFormat = olformatplain
        ·Msg.BodyFormat = 1
        .SentOnBehalfOfName = ""
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = ""
        .Display 
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Con este código no consigo mi propósito, que es enviar mails
en formato de texto plano.
¿Qué puedo estar haciendo mal?
Muchísimas gracias de antemano